自己编写的一个LISP有问题！哪位帮忙解决一下

xu_1995

具体用途不清楚，所以不好判断
但你的程序倒不是坐标系的问题，而是两条平行线只要不是水平或垂直就会有问题
你少点取了一个参数（平行线的角度）

钾肥

这个程序主要是用来画风管或线槽等物体的断口的！
不知道这么取！

你知道吗？

meflying

看看这样是否可行

2. 
   
3. (defun err(msg)
   
4.   (princ msg)
   
5.   (setvar "osmode" os)
   
6.   (setvar "cmdecho" cmd)
   
7.   (setq *error* errtmp)
   
8.   (princ)
   
9. )
   
10. 
    
11. (defun c:test( / pt1 pt2 pt3 ptCenter)
    
12.   (setq os (getvar "osmode"))
    
13.   (setq cmd (getvar "cmdecho"))
    
14.   (setq errtmp *error*)
    
15.   (setq *error* err)
    
16.   (setq pt1 (getpoint "\n输入第一点:"))
    
17.   (setq pt2 (getpoint "\n输入第二点:"))
    
18.   (setvar "osmode" 0)
    
19.   (setvar "cmdecho" 0)
    
20.   (setq pt1 (trans pt1 1 0))
    
21.   (setq pt2 (trans pt2 1 0))
    
22.   (command "_.ucs" "")
    
23.   (setq ptCenter (list (/ (+ (car pt1) (car pt2)) 2)
    
24.                        (/ (+ (cadr pt1) (cadr pt2)) 2)
    
25.                        0.0))
    
26.   (setq ang (angle pt1 pt2))
    
27.   (if (> ang pi)
    
28.     (setq ang (- ang pi))
    
29.   )
    
30.   (cond
    
31.     ((equal (/ pi 2) ang 0.00001) (setq pt3 nil))
    
32.     (t (setq pt3 (polar ptCenter (- ang) (/ (distance pt1 pt2) 2))))
    
33.   )
    
34. 
    
35.   (command "_.line" pt1 pt2 "")
    
36.   (if pt3
    
37.     (command "_.line" ptCenter pt3 "")
    
38.   )
    
39.   (command "_.ucs" "p")
    
40.   (setvar "osmode" os)
    
41.   (setvar "cmdecho" cmd)
    
42.   (setq *error* errtmp)
    
43.   (princ)
    
44. )
    

<br /> (defun err(msg)<br />   (princ msg)<br />   (setvar "osmode" os)<br />   (setvar "cmdecho" cmd)<br />   (setq *error* errtmp)<br />   (princ)<br /> )<br /> <br /> (defun c:test( / pt1 pt2 pt3 ptCenter)<br />   (setq os (getvar "osmode"))<br />   (setq cmd (getvar "cmdecho"))<br />   (setq errtmp *error*)<br />   (setq *error* err)<br />   (setq pt1 (getpoint "\n输入第一点:"))<br />   (setq pt2 (getpoint "\n输入第二点:"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setq pt1 (trans pt1 1 0))<br />   (setq pt2 (trans pt2 1 0))<br />   (command "_.ucs" "")<br />   (setq ptCenter (list (/ (+ (car pt1) (car pt2)) 2)<br />                        (/ (+ (cadr pt1) (cadr pt2)) 2)<br />                        0.0))<br />   (setq ang (angle pt1 pt2))<br />   (if (> ang pi)<br />     (setq ang (- ang pi))<br />   )<br />   (cond<br />     ((equal (/ pi 2) ang 0.00001) (setq pt3 nil))<br />     (t (setq pt3 (polar ptCenter (- ang) (/ (distance pt1 pt2) 2))))<br />   )<br /> <br />   (command "_.line" pt1 pt2 "")<br />   (if pt3<br />     (command "_.line" ptCenter pt3 "")<br />   )<br />   (command "_.ucs" "p")<br />   (setvar "osmode" os)<br />   (setvar "cmdecho" cmd)<br />   (setq *error* errtmp)<br />   (princ)<br /> )<br />