如何插入外部块
本帖最后由 明27662 于 2021-4-2 20:46 编辑如何插入外部块
(@:add-menu "文件布图" "等距插入" "(at-dwgfiles:insert-files)" )
(defun at-dwgfiles:insert-files (/ dir i%)
(@:help (strcat "输入一个目录，然后在绘图区点击两个点，按两点的角度和距离排入图纸。"))
(push-var)
(setvar "osmode" 0)
(setvar "attreq" 0)
(if (setq dir (system:get-folder "请选择要插入dwg文件所在的目录"))
(progn
(setq i% 0)
(setq pt (getpoint "请输入第一点:"))
(setq pt2 (getpoint pt "请输入第二点，用于确定图块排列方式:"))
(foreach dwg (vl-directory-files dir "*.dwg" 1)
(command "-insert" (strcat dir "\\" dwg) (polar pt (angle pt pt2) (* i% (distance pt pt2)))"1" "1" "0" )
(setq i% (1+ i%)))))
(pop-var)
)
页:
[1]