经常引用一些外部的文件,有时导入后要打散进行另外的编辑 但cad的操作就真的是不方便,于是写了一个简单的lisp (defun c:X( ) (SETQ GOP (SSADD)) (SETQ GOP (SSGET "p")) (IF (= GOP NIL) (SETQ GOP (SSGET)) ) (SETQ N (SSLENGTH GOP )) (SETQ M 0) (REPEAT N (SETQ ENT (ENTGET (SSNAME GOP M))) (SETQ DWG (CDR (ASSOC 2 ENT))) (command "-xref" "Bind" DWG ) (SETQ M (+ M 1)) ) (command "EXPLODE" GOP) )
炸是炸了,不过炸散后图元所在层的名字不知为何都带了文件名做前缀,请问这个问题有办法解决吗? |