sweetsea 发表于 2015-7-14 14:22
;统计封闭复线内的块。明经 ZZXXQQ 2009.6.8
(DEFUN C:TT ()
(IF (AND (SETQ S1 (ENTSEL "\nSelect a ...
你说的对。我也需要这样的插件。最好是可以同时选择多个块，然后一起统计。
sweetsea 发表于 2015-7-14 14:22
;统计封闭复线内的块。明经 ZZXXQQ 2009.6.8
(DEFUN C:TT ()
(IF (AND (SETQ S1 (ENTSEL "\nSelect a ...
(defun c:tt( )
(if(setq ss(ssget":E:S"'((0 . "INSERT"))))
(progn(setq bnm(cdr(assoc 2(entget(ssname ss 0)))))(if(and(setq s1(entsel"\n选择封闭多段线: "))(setq EN(entget(car s1)))(=(cdr(assoc 0 EN))"LWPOLYLINE")(=(cdr(assoc 70 EN))1))(progn(setq ptn'())
(foreach N EN(if(=(car N)10)(setq ptn (cons(cdr N)ptn))))(setq ss(ssget"WP"ptn(list'(0 . "INSERT") (cons 2 bnm))))))))(if ss(progn(setq nn(sslength ss))
(alert(strcat "共找到了图块""【" bnm "】"""(itoa nn)" 个"))))
(princ)
)