cad如何批量插入图纸，合并到原点，坐标不变，三维的平面线

君是我的泪

如题

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:car.zip 
下载次数:8  文件大小:39.8 KB 
下载权限: 不限 以上  [免费赚D豆]

这是要把他们经沙盒处理，平面变立体。难点是空间交点打断，还有沙盒破损修复，得到的图形面片支离破碎。图形简化，你看到的这些规则的线都是手工分离高度平面，一个面一个面画过来的。




(defun c:dwgins(/ folder dwglist  n )
(command "._undo" "_be")
(setq folder (GetFolder "选择文件夹"))
(setq dwglist (VL-DIRECTORY-FILES folder "*.dwg" 1))
(while (= (length dwglist) 0)
(setq folder (GetFolder "你选中的文件夹里没有DWG文件，重选！"))
(setq dwglist (VL-DIRECTORY-FILES folder "*.dwg" 1))
)
(setq n 0)
(repeat (length dwglist)
(command "insert" (strcat folder "\\" (nth n dwglist)) "0,0" "1" "1" "0"  )
(setq n (1+ n))
)
(command "._zoom" "e")
(command "._undo" "_e")
(princ "\n搞定！")
(princ "\n共插入")(princ (length dwglist))(princ "个DWG文件。")
(princ)
)

;; 子函数：(GetFolder "选择文件夹:") 返回值：字符串，文件夹路径，如果点了cancel, 返回nil

(defun GetFolder (msg / WinShell shFolder path catchit)
  (setq winshell (vlax-create-object "Shell.Application"))
  (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
  (setq
    catchit (vl-catch-all-apply
        '(lambda ()
     (setq shFolder (vlax-get-property shFolder 'self))
     (setq path (vlax-get-property shFolder 'path))
         )
      )
  )
  (if (vl-catch-all-error-p catchit)
    nil
    path
  )
)

zhystar

谢谢楼主分享

yuren008

做个对论坛有益的人。

yangjian001

做一个热心并受欢迎的人