移图到名为1的图层里

戏男

不知道哪位大神能帮小弟弄一个这个呀  呵呵 谢谢好心人 在线等待中  谢谢
测试图档：

戏男

是新建一个图层名为1的，图档原来没有名为1的图层，还有就是删掉重叠的图，不好意思

戏男

戏男 发表于 2016-5-25 09:39
是新建一个图层名为1的，图档原来没有名为1的图层，还有就是删掉重叠的图，不好意思

(defun c:tttt ()
(setvar "CMDECHO" 0)
(while (setq ss (ssget "X" '((0 . "INSERT"))))
  (command "QAFLAGS" "1" "_.EXPLODE" ss "" "QAFLAGS" "0")
)
(if (setq ss (ssget "X" '((0 . "*TEXT")))) (command "_.ERASE" ss ""))
(command "_.-LAYER" "M" "1" "")
(setq ss (ssget "X"))
(repeat (setq i (sslength ss))
  (setq ent (entget(ssname ss (setq i (1- i)))))
  (setq lnt (tblsearch "LAYER" (cdr(assoc 8 ent))))
  (if (not (assoc 62 ent))
   (entmod (setq ent (subst (assoc 62 lnt) (assoc 62 ent) ent)))
  )
  (if (not (assoc 6 ent))
   (entmod(setq ent (subst(assoc 6 lnt)(assoc 6 ent) ent)))
  )
  (if (assoc 39 ent) (entmod(setq ent(subst(cons 39 0.0)(assoc 39 ent)ent))))
)
(command "_.PURGE" "ALL" "*" "N")
(command "_.PURGE" "ALL" "*" "N")
(setq pt (getpoint "\n原点: "))
(command "_.MOVE" "ALL" "" pt "0,0,0")
(command "_.MOVE" "P" "" "0,0,0" "0,0,30E99")
(command "_.MOVE" "P" "" "0,0,0" "0,0,-30E99")
(command "change" ss "" "p" "la" "1" "t" "0" "")
(command "explode" "ALL" )
(command "_.PURGE" "ALL" "*" "N")
(vl-cmdf "_.-overkill" "all" "" "t" "" "")
(command "_.saveas" F:\1.dwg)
(setvar "CMDECHO" 1)
(princ)
)

帮我完善一下呀 要能删掉重叠的图元，再另存为F盘根目录下名为1的dwg文件，谢谢

戏男

有好心人吗

戏男

好心人都到哪里去了呀

vladimirputin

不错的资料， 谢谢楼主分享。