为什么最后一行程序不运行，返回nil

xxxkkk331

(defun c:t1()
  (vl-load-com)
  (setq p0(getpoint))
  (setq p1(polar p0 (* 0.5 pi) 1000))
  (setq p2(polar p0 0 300))
  (setq p3(polar p2 0 500))
  (command "line" p0 p1 "")
  (setq e1 (entlast))
  (command "circle" p2 "500")
  (setq e2 (entlast))
  (setq e1 (vlax-ename->vla-object e1) e2 (vlax-ename->vla-object e2))
  (setq ver-interse (VLAX-VARIANT-VALUE (VLA-INTERSECTWITH e1 e2 2) ) )
  (setq p4(VLAX-SAFEARRAY->LIST ver-interse))
  (command "line" p0 p4 "")
  )

marting

那就是P0，P4至少有一个没有值了，你在倒数第二行加上打印语句，打印下这两个变量，如果没有值，就往上面找计算这两个变量的地方，看看哪个地方错了

aimisiyou

从代码字面上看p4为两圆的交点，只有两圆相切时p4才为一点。

xxxkkk331

aimisiyou 发表于 2017-5-14 21:59

我这只有一个交点啊??

xxxkkk331

marting 发表于 2017-5-14 21:52

都有值啊，求大神帮我跑一下程序，找找错

newer

你这个代码潜在的出错的地方太多了，因为很多交互的时候你没有判断返回值是什么，有值才能进行下一步的操作另外，vla-intersectwith有可能两个以上交点的，你得到的P4不一定是个点，可能是长度大于等于6的表。


只是就你的代码修改了下，前后逻辑我没有看，试试

1. (defun c:t1 ()
   
2.   (vl-load-com)
   
3.   (if (setq p0 (getpoint))
   
4.     (progn
   
5.       (setq p1 (polar p0 (* 0.5 pi) 1000))
   
6.       (setq p2 (polar p0 0 300))
   
7.       (setq p3 (polar p2 0 500))
   
8.       (command "line" p0 p1 "")
   
9.       (setq e1 (entlast))
   
10.       (command "circle" p2 "500")
    
11.       (setq e2 (entlast))
    
12.       (setq e1 (vlax-ename->vla-object e1)
    
13.             e2 (vlax-ename->vla-object e2)
    
14.       )
    
15.       (if
    
16.         (and (setq ver-interse
    
17.                     (VLAX-VARIANT-VALUE (VLA-INTERSECTWITH e1 e2 2))
    
18.              )
    
19.              (setq p4 (VLAX-SAFEARRAY->LIST ver-interse))
    
20.              (= (length p4) 3) ;;判断只有一个交点
    
21.         )
    
22.          (command "line" p0 p4 "")
    
23.       )
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    

(defun c:t1 ()<br />   (vl-load-com)<br />   (if (setq p0 (getpoint))<br />     (progn<br />       (setq p1 (polar p0 (* 0.5 pi) 1000))<br />       (setq p2 (polar p0 0 300))<br />       (setq p3 (polar p2 0 500))<br />       (command "line" p0 p1 "")<br />       (setq e1 (entlast))<br />       (command "circle" p2 "500")<br />       (setq e2 (entlast))<br />       (setq e1 (vlax-ename->vla-object e1)<br />             e2 (vlax-ename->vla-object e2)<br />       )<br />       (if<br />         (and (setq ver-interse<br />                     (VLAX-VARIANT-VALUE (VLA-INTERSECTWITH e1 e2 2))<br />              )<br />              (setq p4 (VLAX-SAFEARRAY->LIST ver-interse))<br />              (= (length p4) 3) ;;判断只有一个交点<br />         )<br />          (command "line" p0 p4 "")<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

xxxkkk331

newer 发表于 2017-5-14 22:23

运行出来了。。。，谢谢

newer

xxxkkk331 发表于 2017-5-15 08:40

程序都给你分支了，你自己打印， 看看执行到哪个里面了， 是哪个值结果不如你预期的。

上面程序，在你那里，P4结果是什么？

newer

xxxkkk331 发表于 2017-5-15 08:40

你怎么知道的没运行出来?

在我这里，看图，亮显的那个，就是你最后的LINE命令画出来的，只是和第一个线重合了。