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

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

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


(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:58

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

加图元怎么做？

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

加图元怎么做？

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

(setq e (ssget "_+.:E:S" '((0 . "INSERT"))))
Try===>
(setq e (ssget'((0 . "INSERT"))))
页: [1]
查看完整版本: 求大神帮忙把以下代码，点选改为框选