如何插入外部块

明27662

如何插入外部块

vitalgg

1. (@:add-menu "文件布图" "等距插入" "(at-dwgfiles:insert-files)" )
   
2. 
   
3. (defun at-dwgfiles:insert-files (/ dir i%)
   
4.   (@:help (strcat "输入一个目录，然后在绘图区点击两个点，按两点的角度和距离排入图纸。"))
   
5.   (push-var)
   
6.   (setvar "osmode" 0)
   
7.   (setvar "attreq" 0)
   
8.   (if (setq dir (system:get-folder "请选择要插入dwg文件所在的目录"))
   
9.       (progn
   
10.         (setq i% 0)
    
11.         (setq pt (getpoint "请输入第一点:"))
    
12.         (setq pt2 (getpoint pt "请输入第二点，用于确定图块排列方式:"))
    
13.         (foreach dwg (vl-directory-files dir "*.dwg" 1)
    
14.                  (command "-insert" (strcat dir "\\" dwg) (polar pt (angle pt pt2) (* i% (distance pt pt2)))  "1" "1" "0" )
    
15.                  (setq i% (1+ i%)))))
    
16.   (pop-var)
    
17.   )

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