书上的小程序，测试显示直线短了无法显示？

chenlight

2. (defun c:lsp_05()
   
3.    (setvar "cmdecho" 0)
   
4.    (setq pt1 (getpoint "\n起点: "))
   
5.    (command "pline" pt1)
   
6.    (setq pt2 (getpoint pt1 "\n第2点: "))
   
7.    (command pt2)
   
8.    (setq pt3 (getpoint pt2 "\n第3点: "))
   
9.    (command pt3)
   
10.    (setq pt4 (getpoint pt3 "\n第4点: "))
    
11.    (command pt4)
    
12.    (setq pt5 (getpoint pt4 "\n第5点: "))
    
13.    (command pt5 "c")
    
14.    (setq dist1-2 (distance pt1 pt2))
    
15.    (setq dist2-3 (distance pt2 pt3))
    
16.    (setq dist3-4 (distance pt3 pt4))
    
17.    (setq dist4-5 (distance pt4 pt5))
    
18.    (setq dist5-1 (distance pt5 pt1))
    
19.    (setq cc '())
    
20.    (setq cc (cons (list dist1-2 pt1 pt2) cc))
    
21.    (setq cc (cons (list dist2-3 pt2 pt3) cc))
    
22.    (setq cc (cons (list dist3-4 pt3 pt4) cc))
    
23.    (setq cc (cons (list dist4-5 pt4 pt5) cc))
    
24.    (setq cc (cons (list dist5-1 pt5 pt1) cc))
    
25.    (setq max_dd (max dist1-2 dist2-3 dist3-4 dist4-5 dist5-1))
    
26.    (setq min_dd (min dist1-2 dist2-3 dist3-4 dist4-5 dist5-1))
    
27.    (setq max_pt (assoc max_dd cc))
    
28.    (setq max_pt1 (cadr max_pt))
    
29.    (setq max_pt2 (caddr max_pt))
    
30.    (setq max_ptm (polar max_pt1 (angle max_pt1 max_pt2) (/ max_dd 2)))
    
31.    (setq min_pt (assoc min_dd cc))
    
32.    (setq min_pt1 (cadr min_pt))
    
33.    (setq min_pt2 (caddr min_pt))
    
34.    (command "arc" max_pt1 "e" max_ptm "a" 180)
    
35.    (command "arc" max_ptm "e" max_pt2 "a" 180)
    
36.    (command "arc" min_pt1 "e" min_pt2 "a" 180)
    
37.    (prin1)
    
38. )
    
39. 
    

(defun c:lsp_05()<br />    (setvar "cmdecho" 0)<br />    (setq pt1 (getpoint "\n起点: "))<br />    (command "pline" pt1)<br />    (setq pt2 (getpoint pt1 "\n第2点: "))<br />    (command pt2)<br />    (setq pt3 (getpoint pt2 "\n第3点: "))<br />    (command pt3)<br />    (setq pt4 (getpoint pt3 "\n第4点: "))<br />    (command pt4)<br />    (setq pt5 (getpoint pt4 "\n第5点: "))<br />    (command pt5 "c")<br />    (setq dist1-2 (distance pt1 pt2))<br />    (setq dist2-3 (distance pt2 pt3))<br />    (setq dist3-4 (distance pt3 pt4))<br />    (setq dist4-5 (distance pt4 pt5))<br />    (setq dist5-1 (distance pt5 pt1))<br />    (setq cc '())<br />    (setq cc (cons (list dist1-2 pt1 pt2) cc))<br />    (setq cc (cons (list dist2-3 pt2 pt3) cc))<br />    (setq cc (cons (list dist3-4 pt3 pt4) cc))<br />    (setq cc (cons (list dist4-5 pt4 pt5) cc))<br />    (setq cc (cons (list dist5-1 pt5 pt1) cc))<br />    (setq max_dd (max dist1-2 dist2-3 dist3-4 dist4-5 dist5-1))<br />    (setq min_dd (min dist1-2 dist2-3 dist3-4 dist4-5 dist5-1))<br />    (setq max_pt (assoc max_dd cc))<br />    (setq max_pt1 (cadr max_pt))<br />    (setq max_pt2 (caddr max_pt))<br />    (setq max_ptm (polar max_pt1 (angle max_pt1 max_pt2) (/ max_dd 2)))<br />    (setq min_pt (assoc min_dd cc))<br />    (setq min_pt1 (cadr min_pt))<br />    (setq min_pt2 (caddr min_pt))<br />    (command "arc" max_pt1 "e" max_ptm "a" 180)<br />    (command "arc" max_ptm "e" max_pt2 "a" 180)<br />    (command "arc" min_pt1 "e" min_pt2 "a" 180)<br />    (prin1)<br /> )<br /> <br />

命令: lsp_05

起点:
第2点:
第3点:
第4点:
第5点:
半径必须非零。

; 错误: 函数被取消
*无效*

以上是在直线为146的情况下显示出来的，我用CAD画的感觉直线不短呀，怎么就画不出来呢？



该贴已经同步到 chenlight的微博

ZZXXQQ

在程序开头加上:(setvar "OSMODE" 0)