块拉伸和块增减，求大神给修改一下!

hyz932

网页上买了俩插件，结果都没法用，说有售后也联系不上人，好烦！！！

求大神给修改一下吧

qazxswk

那个块拉伸插件，不就是论坛里的大神写的嘛，有升级版了呀。http://bbs.mjtd.com/forum.php?mo ... hlight=%C0%AD%C9%EC

qazxswk

删除块内物体，也没有必要那么复杂。
(defun c:kd(/ en)
(vl-load-com)
(while (setq en(car(nentsel "\n点选要删除对象的块" )))
(vla-delete(vlax-ename->vla-object en))(entupd en)(command "regen"))
(princ))

1028882406@qq.c

qazxswk 发表于 2022-5-3 00:02
删除块内物体，也没有必要那么复杂。
(defun c:kd(/ en)
(vl-load-com)

大佬   能否把这个改成框选就完美呢