如何获取块内DOTE图层上全部图元并在块外同样位置新建同样的图元

845245015

如何获取块内DOTE图层上全部图元并在块外同样位置新建同样的图元

xyp1964

1. (defun c:tt () ; tt(获取块内DOTE图层上全部图元并在块外同样位置新建同样的图元)
   
2.   (if (and (setq s1 (car (entsel "\n选择图块: ")))
   
3.            (xyp-Etype s1 "insert")
   
4.       )
   
5.     (progn (xyp-copy s1)
   
6.       (setq s0 (entlast))
   
7.       (xyp-ExplodeQf s1)
   
8.       (setq lst(vl-remove-if '(lambda (x) (equal (xyp-DXF 8 x) "DOTE"))(xyp-Ss2List (xyp-SSelEntnext s0))))
   
9.       (xyp-erase lst)
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )

(defun c:tt () ; tt(获取块内DOTE图层上全部图元并在块外同样位置新建同样的图元)<br />   (if (and (setq s1 (car (entsel "\n选择图块: ")))<br />            (xyp-Etype s1 "insert")<br />       )<br />     (progn (xyp-copy s1)<br />       (setq s0 (entlast))<br />       (xyp-ExplodeQf s1)<br />       (setq lst(vl-remove-if '(lambda (x) (equal (xyp-DXF 8 x) "DOTE"))(xyp-Ss2List (xyp-SSelEntnext s0))))<br />       (xyp-erase lst)<br />     )<br />   )<br />   (princ)<br /> )

999999

xyp1964 发表于 2020-7-9 08:51

请问大神，e派工具箱是需要注册的吗

alexmai

可以用ncopy命令

is44

牛逼，刚好也遇到这个问题