做一条线段，上面有一条垂线段，在距线段端点的20cm处

海贼凌源

做一条线段，上面有一条垂线段，在距线段端点的20cm处，但我写出的代码并没有达到我的预期，请问大神这个错误存在于哪里？

(defun c:ad1 ()
  (setq p1 (getpoint "\n选取第一个点："))
  (setq p2 (getpoint p1 "\n选取第二个点："))
  (command "line" p1 p2 "")                                  ；做出线段
  (setq ang (angle p1 p2))
  (setq p3 (polar p1 (- 0 ang) 200))                     ；找出在线段线距p1点20cm
  (setq p4 (polar p3 (+ ang (/ pi 2)) 1000))           ；p4在由p3点引出的垂线段上100cm处
  (command "line" p1 p3 "")
  (command "line" p3 p4 "")
  prin1
)

edata

(- 0 ang)是不正确

1. (defun c:ad1 ()
   
2.   (setq p1 (getpoint "\n选取第一个点："))
   
3.   (setq p2 (getpoint p1 "\n选取第二个点："))
   
4.   (command "line" p1 p2 "")                                  ;做出线段
   
5.   (setq ang (angle p1 p2))
   
6.   (setq p3 (polar p1 ang 200))                     ;找出在线段线距p1点20cm
   
7.   (setq p4 (polar p3 (+ ang (/ pi 2)) 1000))          ;p4在由p3点引出的垂线段上100cm处
   
8.   (command "line" "non" p1 "non" p3 "")
   
9.   (command "line" "non" p3 "non" p4 "")
   
10.   prin1
    
11. )

(defun c:ad1 ()<br />   (setq p1 (getpoint "\n选取第一个点："))<br />   (setq p2 (getpoint p1 "\n选取第二个点："))<br />   (command "line" p1 p2 "")                                  ;做出线段<br />   (setq ang (angle p1 p2))<br />   (setq p3 (polar p1 ang 200))                     ;找出在线段线距p1点20cm<br />   (setq p4 (polar p3 (+ ang (/ pi 2)) 1000))          ;p4在由p3点引出的垂线段上100cm处<br />   (command "line" "non" p1 "non" p3 "")<br />   (command "line" "non" p3 "non" p4 "")<br />   prin1<br /> )

海贼凌源

edata 发表于 2015-8-23 12:35
(- 0 ang)是不正确

请问
(command "line" "non" p1 "non" p3 "")
这里为什么要加"non"

edata

海贼凌源 发表于 2015-8-23 13:00
请问
(command "line" "non" p1 "non" p3 "")
这里为什么要加"non"

临时设置捕捉为 无 none
避免因为捕捉而导致绘图出错，这样可以不用去关闭捕捉。
反之，也可以设置临时捕捉，"end" "mid"之类的。

海贼凌源

edata 发表于 2015-8-23 13:04
临时设置捕捉为 无 none
避免因为捕捉而导致绘图出错，这样可以不用去关闭捕捉。
反之，也可以设置临时 ...

哦，谢谢

xyp1964

2. (defun c:tt ()
   
3.   (if (and (setq p1 (getpoint "\n选取第一个点: "))
   
4.            (setq p2 (getpoint p1 "\n选取第二个点: "))
   
5.       )
   
6.     (progn
   
7.       (command "line" "NON" p1 "NON" p2 "")
   
8.       (setq ang (angle p1 p2)
   
9.             p3 (polar p1 ang 200)
   
10.             p4 (polar p3 (+ ang (/ pi 2)) 1000)
    
11.       )
    
12.       (command "line" "NON" p3 "NON" p4 "")
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt ()<br />   (if (and (setq p1 (getpoint "\n选取第一个点: "))<br />            (setq p2 (getpoint p1 "\n选取第二个点: "))<br />       )<br />     (progn<br />       (command "line" "NON" p1 "NON" p2 "")<br />       (setq ang (angle p1 p2)<br />             p3 (polar p1 ang 200)<br />             p4 (polar p3 (+ ang (/ pi 2)) 1000)<br />       )<br />       (command "line" "NON" p3 "NON" p4 "")<br />     )<br />   )<br />   (princ)<br /> )

海贼凌源

xyp1964 发表于 2015-8-23 14:20

谢谢回答