[功能] 删除块中对象

自贡黄明儒 · 发表于 2015-6-26 11:23:42

;;[功能] 删除块中对象
(defun C:delBlockEle (/ E P SS)
(cond
((and (setvar "nomutt" 1)
(princ "\n选择块：")
(setq e (ssget "_+.:E:S" '((0 . "INSERT"))))
(setvar "nomutt" 0)
)
(setq p (cadr (cadddr (car (ssnamex e)))))
(setq ss (car (nentselp p)))
(setq e (ssname e 0))
(vla-delete (vlax-ename->vla-object ss))
(entupd e)
)
)
(princ)
)

song宋_74729 · 发表于 2019-7-5 22:43:03

qwerasdf123456 发表于 2018-7-1 19:01
楼主这个想要想要从点选改成框选可以吗？就是从拾取框点选改为窗选？

(setq e (ssget "_+.:E:S" '((0 . "INSERT"))))
改为
setq e (ssget '((0 . "INSERT"))))
就是窗选

bing00 · 发表于 2023-10-30 21:12:25

song宋_74729 发表于 2019-7-5 22:43
(setq e (ssget "_+.:E:S" '((0 . "INSERT"))))
改为
setq e (ssget '((0 . "INSERT"))))

没啥用代码错了吧

KO你 · 发表于 2019-5-13 05:00:29

liu22737 发表于 2015-6-30 11:11
nentselp多此一举
块内选取直接挂N啊
拷贝这句试一下

怎样才能做到框选多选呢呢

ivde · 发表于 2015-6-26 11:57:32

nentsel 指哪打哪

自贡黄明儒 · 发表于 2015-6-26 11:59:24

ivde 发表于 2015-6-26 11:57
nentsel 指哪打哪

曲线救国呀

434939575 · 发表于 2015-6-26 12:48:17

这个有价值

wzg356 · 发表于 2015-6-26 13:39:32

专研精神可嘉

yoyoho · 发表于 2015-6-26 18:41:58

感谢分享程序!

sicky111 · 发表于 2015-6-26 23:56:45

(setq ss (car (nentselp p)))

血司 · 发表于 2015-6-30 08:45:38

感谢分享，很不错

叶曲冰寒 · 发表于 2015-6-30 10:06:56

好腻害啊，膜拜下！

liu22737 · 发表于 2015-6-30 11:11:28

本帖最后由 liu22737 于 2015-6-30 13:37 编辑

nentselp多此一举
块内选取直接挂N啊
拷贝这句试一下
(progn(vl-load-com)(vla-delete(vlax-ename->vla-object(cadar(ssnamex(setq e(ssget":s:n"))0))))(entupd(ssname e 0)))

用vla-regen要比entupd好些

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

[源码] [功能] 删除块中对象

评分