多段线自相交(自相交返回T)

/db_自贡黄明儒_ · 发表于 2013-11-23 09:08:38

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

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

×

本帖最后由 /db_自贡黄明儒_ 于 2013-11-23 09:09 编辑

;;多段线自相交(自相交返回T),封闭也为自相交
;;(LPintersSelf (car (entsel)))
(defun LPintersSelf (en / ENT LEN1 LEN2 OBJ PTS)
(setq ent (entget en))
(setq pts (vl-remove-if-not '(lambda (x) (= (car x) 10)) ent))
(setq Len1 (- (length (mapcar 'cdr pts)) 2))
(setq obj (vlax-ename->vla-object en))
(setq pts (vla-intersectwith obj obj 0))
(setq Len2 (vlax-safearray->list (vlax-variant-value pts)))
(setq len2 (/ (length len2) 3))
(not(equal len1 len2))
)

zyhandw · 发表于 2013-11-23 10:05:43

黄大侠又出新作了？顶一个！试用了下，觉得还应该再加以改进，无自相交而封闭的多段线也返回T；
还有，最好还是在开头加上(vl-load-com)这句。

st788796 · 发表于 2013-11-23 10:15:54

顶点数 (cdr (assoc 90 elst))

/db_自贡黄明儒_ · 发表于 2013-11-23 10:31:20

st788796 发表于 2013-11-23 10:15
顶点数 (cdr (assoc 90 elst))

;;多段线自相交(自相交返回T),封闭也为自相交
;;(LPintersSelf (car (entsel)))
(defun LPintersSelf (en / LEN1 LEN2 OBJ PTS)
(setq Len1 (- (cdr (assoc 90 (entget en))) 2))
(setq obj (vlax-ename->vla-object en))
(setq pts (vla-intersectwith obj obj 0))
(setq Len2 (vlax-safearray->list (vlax-variant-value pts)))
(setq len2 (/ (length len2) 3))
(not (equal len1 len2))
)

st788796 · 发表于 2013-11-23 10:33:17

/db_自贡黄明儒_ 发表于 2013-11-23 10:31

len1 为什么 - 2?

/db_自贡黄明儒_ · 发表于 2013-11-23 10:52:20

st788796 发表于 2013-11-23 10:33
len1 为什么 - 2?

Vla-intersectwith得到的点不包括起点和终点

st788796 · 发表于 2013-11-23 10:56:44

/db_自贡黄明儒_ 发表于 2013-11-23 10:52
Vla-intersectwith得到的点不包括起点和终点

狂刀是这样写的
http://bbs.xdcad.net/forum.php?mod=redirect&goto=findpost&ptid=465506&pid=2275085

/db_自贡黄明儒_ · 发表于 2013-11-23 11:02:19

本帖最后由 /db_自贡黄明儒_ 于 2013-11-23 15:24 编辑

st788796 发表于 2013-11-23 10:56
狂刀是这样写的
http://bbs.xdcad.net/forum.php?mod=redirect&goto=findpost&ptid=465506&pid=2275085
...

原来早就有了，还是狂刀{:soso_e179:}

;;[功能] 多段线自相交
;; (plinsp (car(entsel)))
(defun plinsp (en / FLAG LAPT N O PTS PTS1 STPT)
;;52.1 [功能] 3D点->2D点 By Caoyin
(defun 3d->2d (3dpt)
(mapcar '+ 3dpt '(0. 0.))
)
;;52.4 [功能] 3D点列表->2D点列表
(defun 3dlist->2dlist (3dplist)
(mapcar '3d->2d 3dplist)
)
;;52.5 [功能] 对表分段
;;(xl_div lst nom)表分段. -> 返回分段的表. －－－－－－by 无痕.2004.1
;; lst ＝表，nom = 分段的子表元素个数(从1开始计).
;;示例 (xl_div '(1 2 3 4 5 6 7 8 9) 3) -> ((1 2 3) (4 5 6) (7 8 9))
(defun xl-div (lst x / lst2)
(foreach n lst
(if (and lst2 (/= x (length (car lst2))))
(setq lst2 (cons (append (car lst2) (list n)) (cdr lst2)))
(setq lst2 (cons (list n) lst2))
)
)
(reverse lst2)
)
;;164.3 [功能] 多段线端点列表
;;示例(HH:PtLists (car (entsel)))
(defun HH:PtLists (en)
(mapcar 'cdr
(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en))
)
)
;;
;;(setq en (car (entsel)))
(setq o (vlax-ename->vla-object en))
(setq n (vlax-get o 'closed))
(cond ((equal n 0)
(setq laPt (vlax-curve-getEndPoint en))
(setq stPt (vlax-curve-getStartPoint en))
(setq pts (vlax-invoke o 'intersectwith o 0))
(setq pts (3dlist->2dlist (xl-div pts 3)))
(SETQ PTS1 (HH:PtLists EN))
(foreach i pts
(if (member i PTS1)
(setq flag T)
)
)
(or
flag
(/= (vlax-curve-getParamAtPoint en laPt)
(vlax-curve-getendparam en)
)
(/= (vlax-curve-getParamAtPoint en stPt)
(vlax-curve-getstartparam en)
)
(< (vlax-curve-getendparam en)
(+ 1 (/ (length pts) 3))
)
)
)
(T nil)
)
)

;;[功能] 多段线自相交 
;; (plinsp (car(entsel))) 
(defun plinsp (en / FLAG LAPT N O PTS PTS1 STPT) 
  ;;52.1 [功能] 3D点->2D点 By Caoyin 
  (defun 3d->2d (3dpt) 
    (mapcar '+ 3dpt '(0. 0.)) 
  ) 
  ;;52.4 [功能] 3D点列表->2D点列表 
  (defun 3dlist->2dlist (3dplist) 
    (mapcar '3d->2d 3dplist) 
  ) 
  ;;52.5 [功能] 对表分段 
  ;;(xl_div lst nom)表分段. -> 返回 分段的表.   －－－－－－by 无痕.2004.1 
  ;; lst ＝ 表，nom = 分段的子表元素个数(从1开始计). 
  ;;示例 (xl_div '(1 2 3 4 5 6 7 8 9) 3) -> ((1 2 3) (4 5 6) (7 8 9)) 
  (defun xl-div (lst x / lst2) 
    (foreach n lst 
      (if (and lst2 (/= x (length (car lst2)))) 
 (setq lst2 (cons (append (car lst2) (list n)) (cdr lst2))) 
 (setq lst2 (cons (list n) lst2)) 
      ) 
    ) 
    (reverse lst2) 
  ) 
  ;;164.3 [功能] 多段线端点列表 
  ;;示例(HH:PtLists (car (entsel))) 
  (defun HH:PtLists (en) 
    (mapcar 'cdr 
     (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en)) 
    ) 
  ) 
  ;; 
  ;;(setq en (car (entsel))) 
  (setq o (vlax-ename->vla-object en)) 
  (setq n (vlax-get o 'closed)) 
  (cond ((equal n 0) 
  (setq laPt (vlax-curve-getEndPoint en)) 
  (setq stPt (vlax-curve-getStartPoint en)) 
  (setq pts (vlax-invoke o 'intersectwith o 0)) 
  (setq pts (3dlist->2dlist (xl-div pts 3))) 
  (SETQ PTS1 (HH:PtLists EN)) 
  (foreach i pts 
    (if (member i PTS1) 
      (setq flag T) 
    ) 
  ) 
  (or 
    flag 
    (/= (vlax-curve-getParamAtPoint en laPt) 
        (vlax-curve-getendparam en) 
    ) 
    (/= (vlax-curve-getParamAtPoint en stPt) 
        (vlax-curve-getstartparam en) 
    ) 
    (< (vlax-curve-getendparam en) 
       (+ 1 (/ (length pts) 3)) 
    )    
  ) 
 ) 
 (T nil) 
  ) 
)

zyhandw · 发表于 2013-11-23 11:26:35

看来对自相交的理解还是不太一样啊

aeo · 发表于 2013-11-23 21:53:38

本帖最后由 aeo 于 2013-11-23 21:56 编辑

所有交点都在端点上就是不自相交吗？？
那我画一个8字呢？中间相X的地方刚好也是一个端点的情况呢?

牢固 · 发表于 2013-11-23 22:02:16

多段线有顶点重复的情况是不适用的！

aeo · 发表于 2013-11-23 23:17:12

牢固发表于 2013-11-23 22:02
多段线有顶点重复的情况是不适用的！

不重复呀，X的交叉的地方只是某一条是端点，另一条划过.

st788796 · 发表于 2013-11-24 07:47:04

aeo 发表于 2013-11-23 23:17
不重复呀，X的交叉的地方只是某一条是端点，另一条划过.

这种情况交点在IntersectWith内，不会忽略的

/db_自贡黄明儒_ · 发表于 2013-11-25 09:56:52

aeo 发表于 2013-11-23 21:53
所有交点都在端点上就是不自相交吗？？
那我画一个8字呢？中间相X的地方刚好也是一个端点的情况呢?

是呀，这种情况也应考虑到

itoboy · 发表于 2022-4-18 23:58:09

怎么看不见内容呢？

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

[研讨] 多段线自相交(自相交返回T)

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

浏览过的版块