请教：如何判断一组由line,arc,pline相连接的对象是否构成了闭合区域？

wuxjld

如何判断一组由line,arc,pline相连接的对象是否构成了闭合区域？谢谢！

无痕

ｒｅｇｉｏｎ

wuxjld

除了用能否生成region来判断外，是否还有其它方法？谢谢！

zhong5

用这个函数试试吧

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;加载后运行ei
(defun c:ei()
  (initget 1)
  (setq SS (ssget ":S"))   ;选择实体;Creates a selection set from the selected object
  (vl-load-com)
  (setq N 0)
  (repeat (sslength SS)  ;repeat :循环  ;sslength ：Returns an integer containing the number of objects (entities) in a selection set
 (princ (strcat "\n" (itoa n) "\n"))
 (if (vlax-curve-isClosed (vlax-ename->vla-object (ssname SS N)))
  (princ "封闭实体")
  (princ "非封闭实体")
 )
 ;;;(princ (entget (ssname SS N)))   ;SSNAME   : Returns the object (entity) name of the indexed element of a selection set
    (setq N (1+ N))
  ) ;end repeat
  (princ "\n加载后运行ei\n")
  (princ)
)

wuxjld

首先谢谢楼上的答复！我的问题是由多个line,pline,arc首尾相连是否构成了一个闭合区域。

wuxjld

请版本帮忙，谢谢！

无痕

2. (DEFUN C:TT()
3. (SETQ SS(ssget '((0 . "LINE,ARC,*polyline"))))
4. (command "pedit" "m" SS "" )
5. (IF (WCMATCH (cdr(assoc 0 (entget (ssname ss 0)))) "LINE,ARC")
6.      (COMMAND "Y")
7. )
8. (COMMAND "j" "")
9. (setq e (entlast))
10. (equal (vlax-curve-getstartpoint e)(vlax-curve-getendpoint e) 1e-4)
11. )

(DEFUN C:TT() (SETQ SS(ssget '((0 . "LINE,ARC,*polyline")))) (command "pedit" "m" SS "" ) (IF (WCMATCH (cdr(assoc 0 (entget (ssname ss 0)))) "LINE,ARC")      (COMMAND "Y") ) (COMMAND "j" "") (setq e (entlast)) (equal (vlax-curve-getstartpoint e)(vlax-curve-getendpoint e) 1e-4) )