[讨论]：封闭图形的判断:

saintdog

封闭图形的判断:
       相信大家对怎样判断多义线封闭都有自己的方法。
       最常用的就是用LIST和PEDIT命令来显示和判断多义线是否封闭。但是它们的缺点就是只能对单一线条进行判断，多重选择时就无法告示哪一线条不封闭。
       我编了一个小程序可以同时对多条多义线进行判断，判断结果是：封闭的多义线变为红色，不封闭的保持原来颜
色不变。但是当LINETYPEGENERATION（在PROPERTIES里面,并点选任一直线）为ON时，却不好用，虽说平常画的线条LINETYPEGENERATION均为OFF状态，不影响程序判断。但总感到遗憾。
       LINETYPEENERATION特性的控制参数在哪里呢？请大家帮忙指点一下该怎样处理呢？

(defun  C:JO (/ plines bnt count)
     (setq plines (ssget (prompt  "\n输入多义线:")))
          (setq count 0)
        (while  (< count (sslength plines))
               (setq bnt (entget (ssname plines count)))
               (if (= 1 (cdr (assoc 70  bnt)))
            (command  "chprop"  (ssname plines count) "" "c" "red" ""));if
                  (setq count  (+  1 count)))
             (PRINC)
            ) ;defun

lsjjm

试试(vlax-cueve-isclosed object)函数.

LUCAS

试试把(= 1 (cdr (assoc 70 bnt))) 改為(= (logand (cdr (assoc 70 bnt)) 1) 1)