那为大神能看出来问题啊？感谢

han12315

(DEFUN MCIR (PT#RR# LAY# COL#)

ssyfeng

代码不全，还是截图的，大神们看到了都懒的回答。

liuhe

1. (vlax-safearray->list(vlax-variant-value (vla-intersectwith obj1 obj2 mode)))

复制代码

大概率是这样，要先取出value  才能list

mode  

• ExtendOption : AcExtendOption enum; input-only
  This option specifies if one or the other, both, or none of the entities are to be extended in order to attempt an intersection.
  
  
  

acExtendNone	Does not extend either object.
acExtendThisEntity	Extends the base object.
acExtendOtherEntity	Extends the object passed as an argument.
acExtendBoth	Extends both objects.

han12315

liuhe 发表于 2023-7-17 15:29
大概率是这样，要先取出value  才能list

mode  

感谢大哥，顶礼膜拜！我重新编辑了，能不能麻烦大哥直接纠正下

liuhe

han12315 发表于 2023-7-17 15:48
感谢大哥，顶礼膜拜！我重新编辑了，能不能麻烦大哥直接纠正下

2. (defun sk_2obj_ipts (en1 en2 mode / ipts lst obj1 obj2 p1)
   
3.   (if (and en1
   
4.            en2
   
5.            (or (= (type en1) 'ENAME) (= (type en1) 'VLA-OBJECT))
   
6.            (or (= (type en2) 'ENAME) (= (type en2) 'VLA-OBJECT))
   
7.       )
   
8.     (progn
   
9.       (setq obj1 (if (= (type en1) 'ENAME)
   
10.                    (vlax-ename->vla-object en1)
    
11.                    en1
    
12.                  )
    
13.             obj2 (if (= (type en2) 'ENAME)
    
14.                    (vlax-ename->vla-object en2)
    
15.                    en2
    
16.                  )
    
17.             mode (if (and mode (= (type mode) 'INT))
    
18.                    mode
    
19.                    0
    
20.                  )
    
21.             p1 (vlax-curve-getEndPoint obj1)
    
22. 
    
23.       )
    
24.       (VLA-MOVE        obj1(VLAX-3D-POINT p1)(VLAX-3D-POINT '(0 0 0)))
    
25.       (VLA-MOVE        obj2(VLAX-3D-POINT p1)(VLAX-3D-POINT '(0 0 0)))
    
26.       (setq ipts (vlax-variant-value (vla-intersectwith obj1 obj2 mode)))                                        ;取得俩物体的交点变体
    
27.       (if (> (vlax-safearray-get-u-bound ipts 1) 0)
    
28.         (progn
    
29.           (setq        ipts (vlax-safearray->list ipts)                                ;将vla交点变体转化成表的形式
    
30.                 lst  '()
    
31.           )
    
32.           (if (> (length ipts) 3)        ;分离多个交点
    
33.             (repeat (/ (length ipts) 3)
    
34.               (setq lst (cons (mapcar '+ p1(list (car ipts) (cadr ipts) (caddr ipts)))lst))
    
35.               (setq ipts (cdddr ipts))
    
36.             )
    
37.             (setq lst (mapcar '+ p1 ipts))
    
38.           )
    
39.         )
    
40.       )
    
41.    
    
42.     )
    
43.   )
    
44.    (VLA-MOVE        obj1(VLAX-3D-POINT '(0 0 0))(VLAX-3D-POINT p1))
    
45.    (VLA-MOVE        obj2(VLAX-3D-POINT '(0 0 0))(VLAX-3D-POINT p1))
    
46.   lst  
    
47. )

(defun sk_2obj_ipts (en1 en2 mode / ipts lst obj1 obj2 p1)<br />   (if (and en1<br />            en2<br />            (or (= (type en1) 'ENAME) (= (type en1) 'VLA-OBJECT))<br />            (or (= (type en2) 'ENAME) (= (type en2) 'VLA-OBJECT))<br />       )<br />     (progn<br />       (setq obj1 (if (= (type en1) 'ENAME)<br />                    (vlax-ename->vla-object en1)<br />                    en1<br />                  )<br />             obj2 (if (= (type en2) 'ENAME)<br />                    (vlax-ename->vla-object en2)<br />                    en2<br />                  )<br />             mode (if (and mode (= (type mode) 'INT))<br />                    mode<br />                    0<br />                  )<br />             p1 (vlax-curve-getEndPoint obj1)<br /> <br />       )<br />       (VLA-MOVE        obj1(VLAX-3D-POINT p1)(VLAX-3D-POINT '(0 0 0)))<br />       (VLA-MOVE        obj2(VLAX-3D-POINT p1)(VLAX-3D-POINT '(0 0 0)))<br />       (setq ipts (vlax-variant-value (vla-intersectwith obj1 obj2 mode)))                                        ;取得俩物体的交点变体<br />       (if (> (vlax-safearray-get-u-bound ipts 1) 0)<br />         (progn<br />           (setq        ipts (vlax-safearray->list ipts)                                ;将vla交点变体转化成表的形式<br />                 lst  '()<br />           )<br />           (if (> (length ipts) 3)        ;分离多个交点<br />             (repeat (/ (length ipts) 3)<br />               (setq lst (cons (mapcar '+ p1(list (car ipts) (cadr ipts) (caddr ipts)))lst))<br />               (setq ipts (cdddr ipts))<br />             )<br />             (setq lst (mapcar '+ p1 ipts))<br />           )<br />         )<br />       )<br />     <br />     )<br />   )<br />    (VLA-MOVE        obj1(VLAX-3D-POINT '(0 0 0))(VLAX-3D-POINT p1))<br />    (VLA-MOVE        obj2(VLAX-3D-POINT '(0 0 0))(VLAX-3D-POINT p1))<br />   lst  <br /> )

你试试我的相交函数，你的东西不全，只能靠猜

han12315

liuhe 发表于 2023-7-17 15:57
你试试我的相交函数，你的东西不全，只能靠猜

感谢大哥，我试下

bonny

(DEFUN MCIR (PT#RR# LAY# COL#)
就凭这句，就能猜出这么多内容，
神人也................