批量将某一图层做成外部块【自己解决了】

sasufa · 发表于 2016-2-16 18:05:21

本帖最后由 sasufa 于 2016-2-18 15:48 编辑

;程序用来提取某个文件夹下所有dwg文件中某一个图层
(defun c:batch ()
  (setq path "C:\\Users\\dell\\Desktop\\text - 副本") ;文件夹路径
  (setq layer "te") ;图层名
  (setq files (VL-DIRECTORY-FILES
path
"*.dwg"
1
      )
  )
  (foreach dwgname files
(if (/= (strcase
      (setq
dwgname (strcat path
"\\"
dwgname
)
      )
      )
      (strcase (strcat (getvar "dwgprefix") (getvar "dwgname")))
)
   (progn
; (PRINT dwgname)
(command "_.undo" "be")
(setvar "clayer" "0")
(command "-layer" "u" "*" "t" "*" "")
(command "-insert" dwgname "0,0,0" "1" "" "0")
(command "-layer" "u" "*" "t" "*" "")
;;;处理动作
(vl-cmdf "explode" "all" "" "")
(setq mm (ssget "X" (list (cons 8 layer))))
(setq dwgname (vl-filename-base dwgname))
(vl-cmdf "-wblock" dwgname "" "0,0" mm "")

   )
)
  )
  (princ)
)

sasufa · 发表于 2016-2-18 15:46:32

;程序用来提取某个文件夹下所有dwg文件中某一个图层
(defun c:batch ()
  (setq path "C:\\Users\\dell\\Desktop\\text - 副本") ;文件夹路径
  (setq layer "te") ;te是图层名
  (setq files (VL-DIRECTORY-FILES
path
"*.dwg"
1
      )
  )
  (foreach dwgname files
(if (/= (strcase
      (setq
dwgname (strcat path
"\\"
dwgname
)
      )
      )
      (strcase (strcat (getvar "dwgprefix") (getvar "dwgname")))
)
   (progn
; (PRINT dwgname)
(command "_.undo" "be")
(setvar "clayer" "0")
(command "-layer" "u" "*" "t" "*" "")
(command "-insert" dwgname "0,0,0" "1" "" "0")
(command "-layer" "u" "*" "t" "*" "")
;;;处理动作
(vl-cmdf "explode" "all" "" "")
(setq mm (ssget "X" (list (cons 8 layer))))
(setq dwgname (vl-filename-base dwgname))
(vl-cmdf "-wblock" dwgname "" "0,0" mm "")

   )
)
  )
  (princ)
)

sasufa · 发表于 2016-2-17 17:11:15

有人帮忙不
-wblock这个怎么把整个图层作为选集啊

sasufa · 发表于 2016-2-17 18:09:41

(defun c:tqtc  ()
  解决了使用后选择某个东西  就会把整个层做成外部块名字是原文件名  路径自动在我的文档里

(VL-LOAD-COM)
  (setq file (strcat (getvar "dwgname")))
  (setq layer (assoc 8 (entget (car (entsel "\n选择要提取的图层: ")))))
  (setq mm (ssget "X" (list layer)))
  (vl-cmdf "-wblock" file "" "0,0" mm "")
  )

账号		自动登录	找回密码
密码			注册

[提问] 批量将某一图层做成外部块【自己解决了】