求助lisp 取消重复设定区域问题

jly0406

本人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 0  stxt "")       (command "text" spt1 1000 0  (sslength ss) "")    (setq sspt (polar sspt (- (/ pi 2)) 1500))   )) ) (princ "\n") (setvar "CMDECHO" 1) (princ) )

Andyhon

建议在图文件上再加注说明,老实说前帖有看没有懂...