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

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
(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

谢谢

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

感谢作者的分享！

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

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

本帖子中包含更多资源

相关帖子