块增加对象

菜卷鱼 · 发表于 2015-6-15 08:27

黄老师太令人值得学习了

菜卷鱼 · 发表于 2015-6-15 08:29

我的方法是把要增加的东西连同旧块做成新块，再用refedit把旧块炸了，或者不炸直接用

Linhay · 发表于 2015-6-15 09:51

本帖最后由 Linhay 于 2015-6-15 10:15 编辑

(defun C:w1 (/ E SS)
  (setq e (Fsxm-entsel "选择块" '((0 . "INSERT"))))
  (princ "\n选择块内要增加的图元")
  (setvar "nomutt" 1)
  (setq ss (ssget))
  (setvar "nomutt" 0)
  (command "-refedit" (cadr e) "o" "a" "n")
  (command "_.refset" "a" ss "")
  (command "_.refclose" "_sav")
  (princ)
)

运行好慢...

mjz521yy · 发表于 2015-6-16 15:17

贴上发在晓东论坛上的土办法

790027903 · 发表于 2015-6-16 17:03

看看吧这个可以有辛苦了

lz123456 · 发表于 2015-6-16 18:48

学习下黄老师的作品

edata · 发表于 2015-6-16 22:18

用entmake可以实现，算是纯lisp。

自贡黄明儒 · 发表于 2015-6-16 22:50

edata 发表于 2015-6-16 22:18
用entmake可以实现，算是纯lisp。

entmake??? 不会吧？

hao3ren · 发表于 2015-6-17 01:22

晓东慢的不行

ruirui999 · 发表于 2015-6-17 05:22

不懂，不过看看。

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

[讨论] 块增加对象