求助:要求是可多选，选出S1和S2求出S1与S2的交点。

ymcui

求助:要求是可多选，选出S1和S2求出S1与S2的交点。谢谢
(setq s1 (ssget))
(setq s2 (ssget))

鱼与熊掌

遍历就是了

鱼与熊掌

2. (if        (not (vl-catch-all-error-p
   
3.                                 (setq
   
4.                                   iplist        (vl-catch-all-apply
   
5.                                           'vlax-safearray->list
   
6.                                           (list
   
7.                                             (vlax-variant-value
   
8.                                               (vla-intersectwith obj1 obj2 acextendnone)
   
9.                                             )
   
10.                                           )
    
11.                                         )
    
12.                                 )
    
13.                         )
    
14.                 )
    
15.                 iplist
    
16.         )

(if        (not (vl-catch-all-error-p<br />                                 (setq<br />                                   iplist        (vl-catch-all-apply<br />                                           'vlax-safearray->list<br />                                           (list<br />                                             (vlax-variant-value<br />                                               (vla-intersectwith obj1 obj2 acextendnone)<br />                                             )<br />                                           )<br />                                         )<br />                                 )<br />                         )<br />                 )<br />                 iplist<br />         )

ymcui

鱼与熊掌 发表于 2015-4-30 09:37

没看明白对程序只了解了一点点，希望能做个实例.谢谢

ymcui

鱼与熊掌 发表于 2015-4-30 09:37

黄总的是单选的:
;;[功能] 两对象交点列表
;;acextendnone 0 不延伸
;;acextendthisentity 1 延伸基准对象
;;acextendotherentity 2
;;acextendboth 3
;;示例(HH:TwoEntsInters (car(entsel)) (car(entsel)) 0)
(defun HH:TwoEntsInters (e1 e2 Flag / OBJ1 OBJ2 PTL PTS)
  (setq obj1 (vlax-ename->vla-object e1))
  (setq obj2 (vlax-ename->vla-object e2))
  (setq pts (vlax-invoke obj1 'Intersectwith obj2 Flag))
  (while pts
    (setq ptl (cons (list (car pts) (cadr pts)) ptl))
    (setq pts (cdddr pts))
  )
  ptl
)

ymcui

要求是可多选，选出S1和S2求出S1与S2的交点。
(setq s1 (ssget))
(setq s2 (ssget))
多选但不是所有的交点，是所选两组物体之间的交点.

ymcui

顶起来                  

ZZXXQQ

2. (defun Inters2 ( / SS OBJ1 OBJ2 PTL PTS)
   
3. (if (and (setq ss (ssget '((0 . "*POLYLINE,LINE,ARC"))))
   
4.           (= (sslength ss) 2)) (progn
   
5.   (setq obj1 (vlax-ename->vla-object (ssname ss 0)))
   
6.   (setq obj2 (vlax-ename->vla-object (ssname ss 1)))
   
7.   (setq pts (vlax-invoke obj1 'Intersectwith obj2 0))
   
8.   (while pts
   
9.     (setq ptl (cons (list (car pts) (cadr pts)) ptl))
   
10.     (setq pts (cdddr pts))
    
11.   )
    
12. ))
    
13. ptl
    
14. )
    

(defun Inters2 ( / SS OBJ1 OBJ2 PTL PTS)<br /> (if (and (setq ss (ssget '((0 . "*POLYLINE,LINE,ARC"))))<br />           (= (sslength ss) 2)) (progn<br />   (setq obj1 (vlax-ename->vla-object (ssname ss 0)))<br />   (setq obj2 (vlax-ename->vla-object (ssname ss 1)))<br />   (setq pts (vlax-invoke obj1 'Intersectwith obj2 0))<br />   (while pts<br />     (setq ptl (cons (list (car pts) (cadr pts)) ptl))<br />     (setq pts (cdddr pts))<br />   )<br /> ))<br /> ptl<br /> )<br />

鱼与熊掌

2. (defun cx-get-intserss(ss / e e_obj i n runpts sstmp)
   
3.         (setq ss(cx-Ss2list ss))
   
4.         (while ss
   
5.                 (setq e(car ss))
   
6.                 (setq e_obj(zvla e))
   
7.                 (setq ss(vl-remove e ss))
   
8.                 (repeat (setq i(length ss))
   
9.                         (setq runpts(append runpts(cx-get_interpts e_obj(zvla(nth(setq i(1- i))ss)))))
   
10.                 )
    
11.         )
    
12.         (cx-divlst runpts 3)
    
13. )

(defun cx-get-intserss(ss / e e_obj i n runpts sstmp)<br />         (setq ss(cx-Ss2list ss))<br />         (while ss<br />                 (setq e(car ss))<br />                 (setq e_obj(zvla e))<br />                 (setq ss(vl-remove e ss))<br />                 (repeat (setq i(length ss))<br />                         (setq runpts(append runpts(cx-get_interpts e_obj(zvla(nth(setq i(1- i))ss)))))<br />                 )<br />         )<br />         (cx-divlst runpts 3)<br /> )

ymcui

ZZXXQQ 发表于 2015-5-3 08:04

我试了一下还是不知道如何用这段代码如何用,请指教,还有就是这段代码只选一次,那如何判断那个是S1部份那个是S2部份
因为S1和S2不是多段线，有些地方可能不相连，只要得出S1和S2的交点.