845245015 发表于 2020-7-7 20:15:23

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

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


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


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

999999 发表于 2020-8-31 00:21:30

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


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

alexmai 发表于 2023-8-6 21:23:18

可以用ncopy命令

is44 发表于 2023-8-16 17:46:36

牛逼，刚好也遇到这个问题
页: [1]
查看完整版本: 如何获取块内DOTE图层上全部图元并在块外同样位置新建同样的图元