打开一个DWG文件并加载到自己命名的LAYOUT中

Lisphk

1. (defun C:LayoutImport()
   
2. 
   
3.   ;; Select a DWG file to import a Layout
   
4.         (setq myFile (getfiled "Select your DWG File:" " " "dwg" 8))
   
5.         (command"layout" "t" myFile "ABC")
   
6.         (alert "New Layout is inserted!")
   
7.         (princ)
   
8. )
   
9. 
   

(defun C:LayoutImport()<br /> <br />   ;; Select a DWG file to import a Layout<br />         (setq myFile (getfiled "Select your DWG File:" " " "dwg" 8)) <br />         (command"layout" "t" myFile "ABC") <br />         (alert "New Layout is inserted!") <br />         (princ) <br /> )<br /> <br />

xvjiex

感谢楼主分享 打开一个DWG文件并加载到自己命名的LAYOUT中