求助lisp 取消重复设定区域问题
本人lisp菜鸟，出于工作需要拼凑了些代码想实现些功能，在指定区域内查找出某窗号的数量，如此循环即可
下边的代码初步实现了，点好基点，选择要查找的窗号，再选择一下要查的区域，就可以在基点处列出窗号和数量，并且画了
圆圈标示，然后再点好基点，选择要查找的窗号，再选择一下要查的区域
但是这样会有点麻烦，每次都要选区域，能否请大侠们帮改改，实现如下功能，先选好区域后，区域就暂时不变了，之后选择要查找的窗号，列出窗号数量，再选窗号，列出数量，区域就不用每次再选了，求大侠帮忙，感激不尽！
图中无窗图块，能选择窗号即可，
(defun c:tt ()
(setvar "cmdecho" 0)
(setq sspt (getpoint "\n请输入基点:"))
(WHILE 1
(setq stxt "")
(setq s1 (entsel "\n选择窗号 :"))
(setq ent (entget(car s1)))
(= (cdr(assoc 0 ent)) "TEXT")
(setq stxt (cdr(assoc 1 (entget(car s1)))))
(if (setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat "*" stxt "*"))))) (progn
(setq i 0)
(repeat (sslength ss)
(setq en (ssname ss i))
(vla-getboundingbox(vlax-ename->vla-object en) 'minp 'maxp)
(setq minp (vlax-safearray->list minp)
maxp (vlax-safearray->list maxp))
(setq pt (polar minp (angle minp maxp) (/ (distance minp maxp) 2)))
(command ".CIRCLE" pt 800)
(setq i (1+ i))
)
(setq spt1 (polar sspt 0 8000))
(command "text" sspt 1000 0stxt "")
(command "text" spt1 1000 0(sslength ss) "")
(setq sspt (polar sspt (- (/ pi 2)) 1500))
))
)
(princ "\n")
(setvar "CMDECHO" 1)
(princ)
)
建议在图文件上再加注说明,老实说前帖有看没有懂...
页:
[1]