社区 › AutoLISP/Visual LISP 编程技术 › 块增加对象

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

黄老师太令人值得学习了

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

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

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

本帖最后由 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:41

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

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

看看吧 这个可以有 辛苦了

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

学习下黄老师的作品

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

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

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

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

entmake???不会吧？

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

晓东慢的不行

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

不懂，不过看看。

查看完整版本: 块增加对象