移图到名为1的图层里
本帖最后由 戏男 于 2016-5-31 08:56 编辑不知道哪位大神能帮小弟弄一个这个呀呵呵 谢谢好心人 在线等待中谢谢
测试图档： 本帖最后由 戏男 于 2016-6-1 08:46 编辑
是新建一个图层名为1的，图档原来没有名为1的图层，还有就是删掉重叠的图，不好意思 本帖最后由 戏男 于 2016-6-1 08:12 编辑
戏男 发表于 2016-5-25 09:39 static/image/common/back.gif
是新建一个图层名为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文件，谢谢 本帖最后由 戏男 于 2016-6-1 08:12 编辑
有好心人吗 好心人都到哪里去了呀 不错的资料， 谢谢楼主分享。
页:
[1]