自贡黄明儒 发表于 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 static/image/common/back.gif
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好些
页: [1] 2
查看完整版本: [功能] 删除块中对象