求多条直线形成的多个交叉区域围成的多个多段线

yigexinren · 发表于 2018-7-19 09:28:37

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

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

×

请各位大神帮帮忙啊，这个完全没思路，不知道咋写了，如图中这样的

newer · 发表于 2018-7-19 12:33:18

1,2文字是什么意思？求什么多段线？请上传个条件图和结果图的对比截图。

yigexinren · 发表于 2018-7-20 20:52:04

newer 发表于 2018-7-19 12:33
1,2文字是什么意思？求什么多段线？请上传个条件图和结果图的对比截图。

图片是这样的，红色的线是多段线，直线相交的闭合区域生成多段线

newer · 发表于 2018-7-20 21:09:59

yigexinren 发表于 2018-7-20 20:52
图片是这样的，红色的线是多段线，直线相交的闭合区域生成多段线

很简单，核心的就一行代码 (xdrx_geom_searchregions (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))

矩形区域.gif

(defun c:tt ()
(if (and (xdrx_initssget "\n选择曲线<退出>:")
(setq ss (xdrx_ssget '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))))
)
(progn (xdrx_begin)
(setq ss1 (xdrx_geom_searchregions (xdrx_entity_copy ss)));; 生成联通区域
(xdrx_entity_setproperty ss1 "constantwidth" 5.0 "color" 1) ;;区域宽度设5，颜色红色
(xdrx_end)
)
)
(princ)
)

zhangfaren · 发表于 2018-7-21 08:38:52

newer 发表于 2018-7-20 21:09
很简单，核心的就一行代码 (xdrx_geom_searchregions (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))

...

哇，版主太厉害了！

yigexinren · 发表于 2018-7-21 08:56:08

newer 发表于 2018-7-20 21:09
很简单，核心的就一行代码 (xdrx_geom_searchregions (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))

...

谢谢版主大哥，您真厉害，我这里还有个问题想请教您一下，我整了很久都没整明白，就是用boundary的时候，老是提示点在对象上，其实点只是距离对象特别近而已，这种怎么处理啊

yigexinren · 发表于 2018-7-21 08:59:55

newer 发表于 2018-7-20 21:09
很简单，核心的就一行代码 (xdrx_geom_searchregions (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))

...

(defun c:tt ()
(defun 2epi ( e1 e2 mode / l r )
(setq obj1 (vlax-ename->vla-object e1)
obj2 (vlax-ename->vla-object e2)
l (vlax-invoke obj1 'intersectwith obj2 mode))
(repeat (/ (length l) 3)
(setq r (cons (list (car l) (cadr l) (caddr l)) r)
l (cdddr l)
)
)
(reverse r)
)
(defun ptslensort (ptlst / d maxd maxl mind minl n pt)
(setq minl (list (car ptlst) (cadr ptlst)) maxd 0 mind (apply 'distance minl))
(while (setq pt (car ptlst) ptlst (cdr ptlst))
(foreach n ptlst
(setq d (distance n pt))
(cond ((< maxd d) (setq maxd d maxl (list n pt)))
((> mind d) (setq mind d minl (list n pt)))
)
)
) (list maxl minl)
)
(defun sspis ( ss / a b i j l )
(repeat (setq i (sslength ss))
(setq a (ssname ss (setq i (1- i))))
(repeat (setq j i)
(setq b (ssname ss (setq j (1- j)))
l (cons (2epi a b acextendnone) l)
)
)
)
(apply 'append (reverse l))
)
(defun mklaco (la co)
(If (= (Tblsearch "layer" la) nil)
(vl-cmdf "layer" "m" la "c" co la "")
(vl-cmdf "layer" "t" la "s" la "c" co la "")
)
la
)
(mklaco "边界" 1)
(setq ss (ssget '((0 . "line"))))
(setq pts (sspis ss))
(setq pts (BF-list-delsame pts 0.0))
(setq dx (* 0.1 (apply 'distance (cadr (ptslensort pts)))))
(setq pl (apply 'append (mapcar '(lambda(x)
(list (mapcar '- x (list dx dx))
(mapcar '+ x (list dx dx))
(mapcar '- x (list dx (- dx)))
(mapcar '+ x (list dx (- dx)))
)
) pts)))
(command "_.boundary" "a" "b" "n" ss "" "")
(foreach x pl
(command x)
)
(command "")
(vl-cmdf "_draworder" (ssget "x" (list (cons 8 "边界"))) "" "_f")
)
(defun BF-list-delsame (lst buzz)
(if Lst
(cons (car Lst)
(BF-list-delsame
(vl-remove-if
'(lambda (x) (equal (car lst) x buzz))
(cdr lst)
)
buzz
)
)
)
)

(defun c:tt () 
(defun 2epi ( e1 e2 mode / l r ) 
    (setq obj1 (vlax-ename->vla-object e1) 
            obj2 (vlax-ename->vla-object e2) 
            l (vlax-invoke obj1 'intersectwith obj2 mode)) 
    (repeat (/ (length l) 3) 
        (setq r (cons (list (car l) (cadr l) (caddr l)) r) 
              l (cdddr l) 
        ) 
    ) 
    (reverse r) 
) 
(defun ptslensort (ptlst / d maxd maxl mind minl n pt) 
(setq minl (list (car ptlst) (cadr ptlst)) maxd 0 mind (apply 'distance minl)) 
(while (setq pt (car ptlst) ptlst (cdr ptlst)) 
(foreach n ptlst 
(setq d (distance n pt)) 
(cond ((< maxd d) (setq maxd d maxl (list n pt))) 
((> mind d) (setq mind d minl (list n pt))) 
) 
) 
) (list maxl minl) 
) 
(defun sspis ( ss / a b i j l ) 
    (repeat (setq i (sslength ss)) 
        (setq a (ssname ss (setq i (1- i)))) 
        (repeat (setq j i) 
            (setq b (ssname ss (setq j (1- j))) 
                  l (cons (2epi a b acextendnone) l) 
            ) 
        ) 
    ) 
    (apply 'append (reverse l)) 
) 
(defun mklaco (la co) 
  (If (= (Tblsearch "layer" la) nil) 
    (vl-cmdf "layer" "m" la "c" co la "") 
    (vl-cmdf "layer" "t" la "s" la "c" co la "") 
  ) 
  la 
) 
(mklaco "边界" 1) 
(setq ss (ssget '((0 . "line")))) 
(setq pts (sspis ss)) 
(setq pts (BF-list-delsame pts 0.0)) 
(setq dx (* 0.1 (apply 'distance (cadr (ptslensort pts))))) 
(setq pl (apply 'append (mapcar '(lambda(x) 
(list (mapcar '- x (list dx dx)) 
(mapcar '+ x (list dx dx)) 
(mapcar '- x (list dx (- dx))) 
(mapcar '+ x (list dx (- dx))) 
) 
) pts))) 
(command "_.boundary" "a" "b" "n" ss "" "") 
(foreach x pl 
        (command x) 
) 
(command "") 
(vl-cmdf "_draworder" (ssget "x" (list (cons 8 "边界"))) "" "_f") 
) 
 
(defun BF-list-delsame (lst buzz) 
  (if Lst 
    (cons (car Lst) 
          (BF-list-delsame 
            (vl-remove-if 
              '(lambda (x) (equal (car lst) x buzz)) 
              (cdr lst) 
            ) 
            buzz 
          ) 
    ) 
  ) 
)

这些是代码，是另一个朋友教我的，我已经大概看懂了，就是不会改这个出现的问题。他是先求出所有交点，然后取最近的交点的十分之一，用这个距离算出交点周边的四个点。然后把这些点给boundary作为参数，但是这样做，就是当点距离交点特别近的时候，就会提示点在对象上。

yigexinren · 发表于 2018-7-21 09:02:24

newer 发表于 2018-7-20 21:09
很简单，核心的就一行代码 (xdrx_geom_searchregions (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))

...

(defun c:tt ()
(defun 2epi ( e1 e2 mode / l r )
(setq obj1 (vlax-ename->vla-object e1)
obj2 (vlax-ename->vla-object e2)
l (vlax-invoke obj1 'intersectwith obj2 mode))
(repeat (/ (length l) 3)
(setq r (cons (list (car l) (cadr l) (caddr l)) r)
l (cdddr l)
)
)
(reverse r)
)
(defun ptslensort (ptlst / d maxd maxl mind minl n pt)
(setq minl (list (car ptlst) (cadr ptlst)) maxd 0 mind (apply 'distance minl))
(while (setq pt (car ptlst) ptlst (cdr ptlst))
(foreach n ptlst
(setq d (distance n pt))
(cond ((< maxd d) (setq maxd d maxl (list n pt)))
((> mind d) (setq mind d minl (list n pt)))
)
)
) (list maxl minl)
)
(defun sspis ( ss / a b i j l )
(repeat (setq i (sslength ss))
(setq a (ssname ss (setq i (1- i))))
(repeat (setq j i)
(setq b (ssname ss (setq j (1- j)))
l (cons (2epi a b acextendnone) l)
)
)
)
(apply 'append (reverse l))
)
(defun mklaco (la co)
(If (= (Tblsearch "layer" la) nil)
(vl-cmdf "layer" "m" la "c" co la "")
(vl-cmdf "layer" "t" la "s" la "c" co la "")
)
la
)
(mklaco "边界" 1)
(setq ss (ssget '((0 . "line"))))
(setq pts (sspis ss))
(setq pts (BF-list-delsame pts 0.0))
(setq dx (* 0.1 (apply 'distance (cadr (ptslensort pts)))))
(setq pl (apply 'append (mapcar '(lambda(x)
(list (mapcar '- x (list dx dx))
(mapcar '+ x (list dx dx))
(mapcar '- x (list dx (- dx)))
(mapcar '+ x (list dx (- dx)))
)
) pts)))
(command "_.boundary" "a" "b" "n" ss "" "")
(foreach x pl
(command x)
)
(command "")
(vl-cmdf "_draworder" (ssget "x" (list (cons 8 "边界"))) "" "_f")
)
(defun BF-list-delsame (lst buzz)
(if Lst
(cons (car Lst)
(BF-list-delsame
(vl-remove-if
'(lambda (x) (equal (car lst) x buzz))
(cdr lst)
)
buzz
)
)
)
)

(defun c:tt () 
(defun 2epi ( e1 e2 mode / l r ) 
    (setq obj1 (vlax-ename->vla-object e1) 
            obj2 (vlax-ename->vla-object e2) 
            l (vlax-invoke obj1 'intersectwith obj2 mode)) 
    (repeat (/ (length l) 3) 
        (setq r (cons (list (car l) (cadr l) (caddr l)) r) 
              l (cdddr l) 
        ) 
    ) 
    (reverse r) 
) 
(defun ptslensort (ptlst / d maxd maxl mind minl n pt) 
(setq minl (list (car ptlst) (cadr ptlst)) maxd 0 mind (apply 'distance minl)) 
(while (setq pt (car ptlst) ptlst (cdr ptlst)) 
(foreach n ptlst 
(setq d (distance n pt)) 
(cond ((< maxd d) (setq maxd d maxl (list n pt))) 
((> mind d) (setq mind d minl (list n pt))) 
) 
) 
) (list maxl minl) 
) 
(defun sspis ( ss / a b i j l ) 
    (repeat (setq i (sslength ss)) 
        (setq a (ssname ss (setq i (1- i)))) 
        (repeat (setq j i) 
            (setq b (ssname ss (setq j (1- j))) 
                  l (cons (2epi a b acextendnone) l) 
            ) 
        ) 
    ) 
    (apply 'append (reverse l)) 
) 
(defun mklaco (la co) 
  (If (= (Tblsearch "layer" la) nil) 
    (vl-cmdf "layer" "m" la "c" co la "") 
    (vl-cmdf "layer" "t" la "s" la "c" co la "") 
  ) 
  la 
) 
(mklaco "边界" 1) 
(setq ss (ssget '((0 . "line")))) 
(setq pts (sspis ss)) 
(setq pts (BF-list-delsame pts 0.0)) 
(setq dx (* 0.1 (apply 'distance (cadr (ptslensort pts))))) 
(setq pl (apply 'append (mapcar '(lambda(x) 
(list (mapcar '- x (list dx dx)) 
(mapcar '+ x (list dx dx)) 
(mapcar '- x (list dx (- dx))) 
(mapcar '+ x (list dx (- dx))) 
) 
) pts))) 
(command "_.boundary" "a" "b" "n" ss "" "") 
(foreach x pl 
        (command x) 
) 
(command "") 
(vl-cmdf "_draworder" (ssget "x" (list (cons 8 "边界"))) "" "_f") 
) 
 
(defun BF-list-delsame (lst buzz) 
  (if Lst 
    (cons (car Lst) 
          (BF-list-delsame 
            (vl-remove-if 
              '(lambda (x) (equal (car lst) x buzz)) 
              (cdr lst) 
            ) 
            buzz 
          ) 
    ) 
  ) 
)

这些是代码，是另一个朋友教我的，我已经大概看懂了，就是不会改这个出现的问题。他是先求出所有交点，然后取最近的交点的十分之一，用这个距离算出交点周边的四个点。然后把这些点给boundary作为参数，但是这样做，就是当点距离交点特别近的时候，就会提示点在对象上。

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

[编程申请] 求多条直线形成的多个交叉区域围成的多个多段线

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

点评