setq p1 (getpoint 监视值为啥没有是nil

youyou3810

2. (defun c:tt (/ w h p1 p2 ang)
   
3.   (setq l1 5)        ;长度
   
4.   (setq p1 (getpoint "第一点："))
   
5.   (setq p2 (getpoint "\n**第二点："))
   
6.   (setq p3 (getpoint "方向"))
   
7. )

(defun c:tt (/ w h p1 p2 ang)<br />   (setq l1 5)        ;长度<br />   (setq p1 (getpoint "第一点："))<br />   (setq p2 (getpoint "\n**第二点："))<br />   (setq p3 (getpoint "方向"))<br /> )

为啥p1,p2都是空值

youyou3810

2. (defun LM:Clockwise-p ( p1 p2 p3 )
   
3.     ((lambda ( n ) (< (car (trans p2 0 n)) (car (trans p1 0 n)))) (mapcar '- p1 p3))
   
4. )

(defun LM:Clockwise-p ( p1 p2 p3 )<br />     ((lambda ( n ) (< (car (trans p2 0 n)) (car (trans p1 0 n)))) (mapcar '- p1 p3))<br /> )

由于p1 p2是空值 无法判断方向
(if (= (LM:Clockwise-p p1 p2 p3) nil);

Andyhon

叙述不全

... (/ w h p1 p2 ang)...

猜是您原先P3有值
但进程序后 p1 p2 会被清空...

youyou3810

Andyhon 发表于 2019-5-2 09:09
叙述不全

... (/ w h p1 p2 ang)...

你说的没错 我把那些参数都去掉了 现在有值了

youyou3810

1. (defun c:tt ()
   
2.   (setq l1 5)        ;长度
   
3.   (setq p1 (getpoint "第一点："))
   
4.   (setq p2 (getpoint p1 "\n**第二点："))
   
5.   (setq p3 (getpoint p2 "\n**第二点："))
   
6.   (setq ang1 (angle p1 p2))    ;角度
   
7.   (setq ll1 (distance p1 p2))    ;长度
   
8. 
   
9.   (defun LM:Clockwise-p  (p1 p2 p3)
   
10.     ((lambda (n) (< (car (trans p2 0 n)) (car (trans p1 0 n))))
    
11.       (mapcar '- p1 p3)
    
12.     )
    
13.   )
    
14.   (if (= (LM:Clockwise-p p1 p2 p3) nil)
    
15.    (
    
16.     (command "circle" p1 2)
    
17.    (command "circle" p2 2)
    
18.    (command "circle" p3 2)
    
19.       )
    
20.   )
    
21. 
    
22. )

(defun c:tt ()<br />   (setq l1 5)        ;长度<br />   (setq p1 (getpoint "第一点："))<br />   (setq p2 (getpoint p1 "\n**第二点："))<br />   (setq p3 (getpoint p2 "\n**第二点："))<br />   (setq ang1 (angle p1 p2))    ;角度<br />   (setq ll1 (distance p1 p2))    ;长度<br /> <br />   (defun LM:Clockwise-p  (p1 p2 p3)<br />     ((lambda (n) (< (car (trans p2 0 n)) (car (trans p1 0 n))))<br />       (mapcar '- p1 p3)<br />     )<br />   )<br />   (if (= (LM:Clockwise-p p1 p2 p3) nil)<br />    (<br />     (command "circle" p1 2)<br />    (command "circle" p2 2)<br />    (command "circle" p3 2)<br />       )<br />   )<br /> <br /> )

代码修正一下

烟盒迷唇

局部变量过了就没值了，弄成全局变量