726613 发表于 2013-5-4 21:17:00

如何在插入图块同时分解，且插入图块随层



(defun c:sb ()
   (setq pt (getpoint "\n-->请选取插入点:"))         
      (while (= (null pt) nil)         
         (command "insert" "sb.dwg" pause 1 1 0 )      
   (setq pt (getpoint "\n-->请选取插入点:")))
(princ)
)




请问如何解决，望高手指点一下，谢谢

wowan1314 发表于 2013-5-4 21:39:36

commamd imsert后面好像有个参数可控制插入块后是否咋开！随层的话可以用entnext函数得到当前插入的块名！然后你想怎么改就怎么改！

Gu_xl 发表于 2013-5-4 21:41:20

(command "insert" "*sb.dwg" pause 1 1 0 )

ZZXXQQ 发表于 2013-5-4 21:53:04

(defun c:sb ()
(while (setq pt (getpoint "\n-->请选取插入点:"))      
(command "insert" "sb.dwg" pause 1 1 0)
(command "_.explode" "L")
(command "_.chprop" "P" "" "LA" (getvar "CLAYER") "")
)
(princ)
)

wowan1314 发表于 2013-5-4 23:55:54

z版p   l选项运用的出神入化！

vlisp2012 发表于 2013-5-5 08:32:10

多谢Z版了，原来这里可以使用P，受教了！

726613 发表于 2013-5-5 09:21:36

ZZXXQQ 发表于 2013-5-4 21:53 static/image/common/back.gif
(defun c:sb ()
(while (setq pt (getpoint "\n-->请选取插入点:"))      
(command "insert" "sb. ...

多谢指教。

sicky111 发表于 2013-5-5 15:19:39

受教了，又学到了新的知识。

sjl_fyl 发表于 2024-1-8 13:18:28

{:1_1:}谢谢

tensir 发表于 2024-7-2 13:08:59

感谢作者的分享！
页: [1]
查看完整版本: 如何在插入图块同时分解，且插入图块随层