求大神帮忙把以下代码，点选改为框选

qwerasdf123456 · 发表于 2018-7-1 19:52

以下代码，可实现不用进块，直接删除块内图元，但是只能通过拾取框点选，求大神帮忙改为窗选或框选。

(defun C:sk (/ 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)
)

户籍科 · 发表于 2018-7-5 14:17

提示: 作者被禁止或删除内容自动屏蔽

bai2000 · 发表于 2018-7-27 21:37

加图元怎么做？

bai2000 · 发表于 2018-7-27 21:46

加图元怎么做？

Andyhon · 发表于 2018-7-30 09:33

(setq e (ssget "_+.:E:S" '((0 . "INSERT"))))
Try===>
(setq e (ssget '((0 . "INSERT"))))

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

户籍科户籍科当前离线积分 6847 明经币个注册时间 2018-7-5 在线时间小时威望金钱个贡献激情	发表于 2018-7-5 14:17 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报显身卡