[LISP程序]：请教高手，为什么不能正确画出图框？

fengyunli

(defun c:tk ()
  (setvar "cmdecho" 1)
  (setq Lb 148.625)                        ;A0长边1/8
  (setq bb 210.25)                        ;A0短边1/4
  (setq tf (getint "基本图幅代号(0~4):"))

  (cond
    ((= tf 0)
     (setq Ls (getint "\n 加长量(A0长边1/8的倍数)<0>:"))
    )
    ((= tf 1)
     (setq Ls (getint "\n 加长量(A0短边1/4的倍数)<0>:"))
    )
    ((= tf 2)
     (setq Ls (getint "\n 加长量(A0长边1/8的倍数)<0>:"))
    )
    ((= tf 3)
     (setq Ls (getint "\n 加长量(A0短边1/4的倍数)<0>:"))
    )
    ((= tf 4)
     (setq Ls (getint "\n 加长量(A0长边1/8的倍数)<0>:"))
    )
    (t
     (setq tf 1)
     (setq Ls (getint "\n 加长量(A0短边1/4的倍数)<0>:"))
    )
  )

  (if (nuLL Ls)
    (setq Ls 0.0)
  )


  (setvar "cmdecho" 0)
  (cond
    ((= tf 0)
     (setq b 841.0
           L (+ 1189.0 (* Ls Lb))
           c 10.0
           a 25.0
     )
     (setq tkbLk "tb01")
    )                                        ;end cond=0
    ((= tf 1)
     (setq b 594.0
           L (+ 841.0 (* Ls bb))
           c 10.0
           a 25.0
     )
     (setq tkbLk "tb01")
    )                                        ;end cond=1
    ((= tf 2)
     (setq b 420.0
           L (+ 594.0 (* Ls Lb))
           c 10.0
           a 25
     )
     (setq tkbLk "tb234")
    )                                        ;end cond=2
    ((= tf 3)
     (setq b 297.0
           L (+ 420.0 (* Ls bb))
           c 5.0
           a 25.0
     )
     (setq tkbLk "tb234")
    )                                        ;end cond=3
    ((= tf 4)
     (setq b (+ 297.0 (* Ls Lb))
           L 210.0
           c 5.0
           a 25.0
     )

zml84

倒数底二行，所插入的图形找不到。
你这是COPY它人的东西吧？

fengyunli

代码本没有问题。

风盈袖

依旧迷茫
研究研究

zml84

一楼的代码不完全，请在其后添加：

2. 
   
3. 
   
4.         )
   
5.     )
   
6.     ;;★绘制图框
   
7.     (if        (setq pt0 (getpoint "\n请点取欲绘制的图框左下角："))
   
8.         (progn
   
9.             (setq pt1 (polar pt0 0 l)
   
10.                   pt2 (polar pt1 (* 0.5 pi) b)
    
11.                   pt3 (polar pt0 (* 0.5 pi) b)
    
12.             )
    
13.             (command "._PLINE" pt0 pt1 pt2 pt3 "c")
    
14.             (setq pt0 (polar pt0 0 a)
    
15.                   pt0 (polar pt0 (* 0.5 pi) c)
    
16.                   pt1 (polar pt1 pi c)
    
17.                   pt1 (polar pt1 (* 0.5 pi) c)
    
18.                   pt2 (polar pt2 pi c)
    
19.                   pt2 (polar pt2 (* 1.5 pi) c)
    
20.                   pt3 (polar pt3 0 a)
    
21.                   pt3 (polar pt3 (* 1.5 pi) c)
    
22.             )
    
23.             (command "._PLINE" pt0 pt1 pt2 pt3 "c")
    
24.         )
    
25.     )
    
26.     (princ)
    
27. )
    

<br /> <br />         )<br />     )<br />     ;;★绘制图框<br />     (if        (setq pt0 (getpoint "\n请点取欲绘制的图框左下角："))<br />         (progn<br />             (setq pt1 (polar pt0 0 l)<br />                   pt2 (polar pt1 (* 0.5 pi) b)<br />                   pt3 (polar pt0 (* 0.5 pi) b)<br />             )<br />             (command "._PLINE" pt0 pt1 pt2 pt3 "c")<br />             (setq pt0 (polar pt0 0 a)<br />                   pt0 (polar pt0 (* 0.5 pi) c)<br />                   pt1 (polar pt1 pi c)<br />                   pt1 (polar pt1 (* 0.5 pi) c)<br />                   pt2 (polar pt2 pi c)<br />                   pt2 (polar pt2 (* 1.5 pi) c)<br />                   pt3 (polar pt3 0 a)<br />                   pt3 (polar pt3 (* 1.5 pi) c)<br />             )<br />             (command "._PLINE" pt0 pt1 pt2 pt3 "c")<br />         )<br />     )<br />     (princ)<br /> )<br />

zlzlzlzl

如果想加图签该怎么写？？