[求助]：请问怎样取得多义线的段数？如何判断是否封闭？

bolixin · 发表于 2005-10-22 14:57:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问怎样取得多义线的段数？如何判断是否封闭？

如图所示，正确的段数应均为4段

xyp1964 · 发表于 2005-10-22 15:55:41

检查多义线是否封闭，可以利用dxf组码70判断，90是顶点数：
[php](defun c:test ()
 (while (setq s1 (car (entsel "\n选择多义线<退出> : ")))
(if (or (= (cdr (assoc 0 (entget s1))) "POLYLINE")
 (= (cdr (assoc 0 (entget s1))) "LWPOLYLINE")
)
 (progn
(setq mode (cdr (assoc 70 (entget s1))))
(if (= mode 1)
 (princ "\n多义线封闭!")
 (princ "\n多义线不封闭!")
)
 )
 (princ "\n所选不是多义线!")
)
 )
 (princ)
)[/php]

xyp1964 · 发表于 2005-10-22 16:02:20

用pedit、c闭合的多义线，会多出一个顶点！
如果用dxf组码90的顶点数判断段数有可能出错。

bolixin · 发表于 2005-10-22 16:25:57

老兄：
很久不见了，还好吗？
这段时间一直没来深圳吗？怎么不见你打电话给我？下次来了记得给我电话哦。
还有问题要请教你：怎样取得多义线的段数？

Underway · 发表于 2005-10-22 17:34:35

是指这个吗 ?
;;; Creates a segment list for the polyline pname
  ;;; as a list of '(bulge p1 p2). A straight line has bulge 0.0
  ;;; Compute pts in ECS of pname. Accepts LWPOLYLINE's
  (defun PLINE-SEGS (pname / pts segs)
(setq segs
   (mapcar 'list
      (if (istypep pname "LWPOLYLINE")
      (group-only 42 (entget pname))
      (cplx-list 42 pname))
      (setq pts (getpts pname))    ; ->[23.1]
      (rot1 pts)))                   ; ->[20.1]
(if (flagsetp 1 pname)
   segs ;closed
   (butlast segs))) ;open: without the last segment, ->[20.1]

Ref info: http://www.faqs.org/faqs/CAD/autolisp-faq/part2/section-5.html

xyp1964 · 发表于 2005-10-22 19:23:26

[FONT=courier new]
;;;多义线的段数(不含0长的段)
(defun c:test ()
(cmdla0)
(while (setq s1 (car (entsel "\n选择多义线<退出> : ")))
(if (or (= (cdr (assoc 0 (entget s1))) "POLYLINE")
(= (cdr (assoc 0 (entget s1))) "LWPOLYLINE")
)
(progn
(setq mode (cdr (assoc 70 (entget s1)))
l (cdr (assoc 90 (entget s1)))
)
(if (= mode 1)
(comp-pt)
(setq l (- l 1))
)
(princ "\n共 ")
(princ l)
(princ " 段!")
)
(princ "\n所选不是多义线!")
)
)
(cmdla1)
)
(defun comp-pt ()
(setq i -1
pts (vlax-curve-getstartPoint s1)
l 0
)
(while
(setq pt0 (vlax-curve-getPointAtParam (vla-obj s1) (setq i (1+ i))))
(if (equal pt0 pts)
(setq pts pt0)
(progn
(setq pts pt0)
(setq l (1+ l))
)
)
)
)
[/FONT]

[FONT=courier new] 
;;;多义线的段数(不含0长的段) 
(defun c:test () 
  (cmdla0) 
  (while (setq s1 (car (entsel "\n选择多义线<退出> : "))) 
    (if        (or (= (cdr (assoc 0 (entget s1))) "POLYLINE") 
            (= (cdr (assoc 0 (entget s1))) "LWPOLYLINE") 
        ) 
      (progn 
        (setq mode (cdr (assoc 70 (entget s1))) 
              l           (cdr (assoc 90 (entget s1))) 
        ) 
        (if (= mode 1) 
          (comp-pt) 
          (setq l (- l 1)) 
        ) 
        (princ "\n共 ") 
        (princ l) 
        (princ " 段!") 
      ) 
      (princ "\n所选不是多义线!") 
    ) 
  ) 
  (cmdla1) 
) 
(defun comp-pt () 
  (setq        i   -1 
        pts (vlax-curve-getstartPoint s1) 
        l   0 
  ) 
  (while 
    (setq pt0 (vlax-curve-getPointAtParam (vla-obj s1) (setq i (1+ i)))) 
     (if (equal pt0 pts) 
       (setq pts pt0) 
       (progn 
         (setq pts pt0) 
         (setq l (1+ l)) 
       ) 
     ) 
  ) 
) 
[/FONT]

狂刀 · 发表于 2005-10-22 21:09:45

检测是否闭合写得太长了.我来写一个:

;| (x@iscl e) = 检测实体是否闭合---ok---by 狂刀.2005.10
参数 : e = 被检测的实体,不限制类型.自动出错处理.
返回 : T 闭合; nil 不闭合.
测试 :
(x@iscl (CAR (ENTSEL)))
|;
[color=blue]
(DEFUN x@iscl (e)
(EQ :VLAX-TRUE
(VL-CATCH-ALL-APPLY '(LAMBDA () (VLA-GET-CLOSED (VLAX-ENAME->VLA-OBJECT e))))
)
)
[/color]

计算多义线段数.我也写一个:,不过也短不了多少了.:)

[FONT=courier new]
;| 计算多义线段数(不含0长线段)---by 狂刀 2004.10
测试命令 c:test
|;
[color=blue]
(defun c:test ()
(while (and (setq e (car(entsel)))
(wcmatch (cdr(assoc 0 (entget e))) "*POLYLINE")
)
(princ "\n多义线段数(不含0长线段): ")
(princ (1- (length(@polyvxs e))))
)
)
(defun @polyvxs (e / i pt pts)
(setq i -1)
(while (setq pt(vlax-curve-getpointatparam e (setq i(1+ i))))
(if (not (equal pt (car pts) 1e-2))
(setq pts (cons pt pts))
)
)
(reverse pts)
) [/color]
[/FONT]

xyp1964 · 发表于 2005-10-22 21:16:35

最初由狂刀发布
[B]检测是否闭合写得太长了.我来写一个:
[code]
;| (x@iscl e) = 检测实体是否闭合---ok---by 狂刀.2005.10
参数 : e = 被检测的实体,不限制类型.自动出错处理.
返回 : T 闭合; nil 不闭合.
测试 :
(x@iscl (CAR ... [/B]

觉得检查段数（不含0长的段）的也太长，也改改吧！

bolixin · 发表于 2005-10-24 11:14:44

非常感谢各位的热心帮助！谢谢！！

eachy · 发表于 2005-10-24 12:06:33

1 闭合 (vl-catch-all-apply 'vlax-curve-isclosed (list ent))
2 段数 (1- (fix (vlax-curve-getendparam lwent)))

kohi · 发表于 2005-10-24 12:59:53

10楼的简洁明了. 其实搜索论坛可以找到以前曾发过的!

xyp1964 · 发表于 2005-10-24 15:59:35

最初由 eachy 发布
[B]1 闭合 (vl-catch-all-apply 'vlax-curve-isclosed (list ent))
2 段数 (1- (fix (vlax-curve-getendparam lwent))) [/B]

(1- (fix (vlax-curve-getendparam lwent))) 不适于不闭合和0长的情况。

litss · 发表于 2006-1-2 16:42:40

(vl-catch-all-apply 'vlax-curve-isclosed (list ent))

似乎对起点和终点不重合的闭合多段线判断不正确，如pline线最后一段和初始段重合的情况。而且如果是自己通过捕捉点来绘制封闭的pline线，而不是通过输入“C”来生成最后一点，绘制的pline线也被认为是不闭合的，为什么？

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

[求助] [求助]：请问怎样取得多义线的段数？如何判断是否封闭？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子