[求助]：交点!!!!!!!!!!!

默然回首

一直线S1和一圆弧S2相交!能否用LISP代码求出他们的交点P?

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (vl-load-com)
   
4.   (if (and (setq s1 (car (entsel "\n选择直线 : ")))
   
5.            (setq s2 (car (entsel "\n选择圆弧 : ")))
   
6.       )
   
7.     (setq plst (vlax-safearray->list
   
8.                  (vlax-variant-value
   
9.                    (vla-intersectwith
   
10.                      (vlax-ename->vla-object s1)
    
11.                      (vlax-ename->vla-object s2)
    
12.                      acextendnone
    
13.                    )
    
14.                  )
    
15.                )
    
16.     )
    
17.   )
    
18.   plst
    
19. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (vl-load-com)<br />   (if (and (setq s1 (car (entsel "\n选择直线 : ")))<br />            (setq s2 (car (entsel "\n选择圆弧 : ")))<br />       )<br />     (setq plst (vlax-safearray->list<br />                  (vlax-variant-value<br />                    (vla-intersectwith<br />                      (vlax-ename->vla-object s1)<br />                      (vlax-ename->vla-object s2)<br />                      acextendnone<br />                    )<br />                  )<br />                )<br />     )<br />   )<br />   plst<br /> )[/FONT]

vang8866

哇！斑竹好厉害啊。对vlisp这么熟练，我记一个命令都记不住

handonglong

我运行了斑竹的程序!不过出现以下的错误提示:
: ; 错误: no function definition: VLAX-ENAME->VLA-OBJECT
请帮忙检查一下程序!

xyp1964

最初由 handonglong 发布
[B]我运行了斑竹的程序!不过出现以下的错误提示:
: ; 错误: no function definition: VLAX-ENAME->VLA-OBJECT
请帮忙检查一下程序! [/B]

先
(vl-load-com)

eachy

14 版就不是这样用了

JOSDENNIS

EACHY版主 求一個刪重復線程序, 在你的"我的程序" 看到的. 只是我的是繁體. 用不了簡體的程序, 還望送小俠一個 BAOLISP@TOM.COM   謝謝