[求助]如何判断PLine线“开口”、“闭合”

87282374 · 发表于 2009-6-13 16:03:00

如何判断PLine线“开口”、“封闭”

实现下图的定义！

caoyin · 发表于 2009-6-13 16:07:00

vlax-curve-isClosed

xyh · 发表于 2009-6-13 16:34:00

dxf组码

70 Polyline flag (bit-coded); default is 0:
1 = Closed; 128 = Plinegen

87282374 · 发表于 2009-6-13 18:46:00

采用vlax-curve-isClosed函数时
判断上图中第三种（键入“C”）为闭合的pline！
其他均为开口的pline！！

xyh · 发表于 2009-6-13 19:28:00

不能确定时再判断第一点与最后一点是否重合

clh521 · 发表于 2009-6-13 21:36:00

defun isclosed (poly) ; 判断多义线是否闭合
(= 1 (logand 1 (cdr (assoc 70 (entget poly)))))
)

87282374 · 发表于 2009-6-14 11:12:00

本帖最后由作者于 2009-6-14 11:44:11 编辑

(defun C:CJ (/ plines bnt count kk)
(setq plines (ssget (prompt "\n选择多义线:")))
(setq count 0)
(while (< count (sslength plines))
    (setq bnt (entget (ssname plines count)))
    (setq kk (isclosed (ssname plines count)) )
    (if kk
    (command "chprop" (ssname plines count) "" "c" "red" "")
    (vla-put-closed (ssname plines count) 1)

)
    (setq count (+ 1 count)))
    (princ)
)

(defun isclosed (poly) ; 判断多义线是否闭合
(or (= 1 (CDR (ASSOC 70 (entget poly))))
(< (distance (vlax-curve-getstartpoint poly) (vlax-curve-getendpoint poly)) 0.1)
)

samshs · 发表于 2009-7-4 14:22:00

如果能先判断多义线是否闭合
不是闭合的　改成闭合就好啦

账号		自动登录	找回密码
密码			注册

[求助]如何判断PLine线“开口”、“闭合”

本帖子中包含更多资源