;;;;;;;;;;;;;;;;;;;;;;
;  画单圈角筋[mini_dqjj]  ;;;
;;;;;;;;;;;;;;;;;;;;;;


(apply
	'(lambda( / x )
		(or mai_pile_text
			(not (setq x (mai_panel_search "谜你结构专业设置文件[mini_jiegou_config].lsp")))
			(load x)
		)
	)
	nil
)

(defun c:mini_dqjj ( / old_cmd old_pwidth p1 scale) ;s6
	(mini_start nil)
	(mai_last_com "mini_dqjj")
	(mai_get_scale)
	(setq old_pwidth (getvar "plinewid"))
	(setq p1 (getpoint "\n外箍位置第一角点:<退出>"))
	(or p1 (exit))
	(apply 'mai_create_layer mai_rein_layer)
	(setq scale (/ 100. mai_scale2))
	; (mai_entmake "circle" (list (mapcar '+ p1 (list (* scale 15.) (* scale 15.))) (* scale 5.)))
	(mai_entmake "DONUT" (list (mapcar '+ p1 (list (* scale 15.) (* scale 15.))) 0 (* scale 10)))
	(mai_gj_flips (entlast) p1 0 T T)
	(mai_end)
)
