怎么画内框？

maozhumao

;本程序产生A1图框
(defun c:TKA1()
        (princ "请选择一个点作为图框的左下角:")

        (setq aa (getpoint) )                     

        (car aa)
9 P1 ?, w0 G5 I  m+ v* P. N        (setq bb (car aa))
3 |; H9 V# {/ X; H% B& @+ `        (setq cc (cadr aa))
  
        (setq dd (list  bb cc))                     
: ?4 r" |: Z! W) j- F2 J        (setq ee (list  (+ bb 841) cc))               
) `6 Q( {$ W; i  R; n% e( W        (setq ff (list  (+ bb 841) (+ cc 597)))     
        (setq gg (list  bb (+ cc 597)))               
4 a) H! h! E% j8 M2 D1 G7 I
) I9 S- ^+ L: `: d3 K1 X# I         (setq ddd (list (+ bb 25) (+ cc 10)))      
0 R2 V9 U) ]: l         (setq eee (list (+ bb 831) (+ cc 10)))     
+ K" e$ A+ W8 N- v+ }) F5 _& x         (setq fff (list (+ bb 831) (+ cc 587)))     
         (setq ggg (list (+ bb 25) (+ cc 587)))     

' Q0 {9 v& I" `( ~  
/ _& r# M- f, c        (progn
          (command "pline"  dd ee  "c")                  
5 U  |* e4 o* a* [4 `          (command "pline"  ee ff  "c")
- Y& L  f2 l+ x          (command "pline"  ff gg  "c")
8 J7 m. Z2 Y3 X          (command "pline"  gg dd  "c")                          
0 d1 f0 U/ `! `1 W9 j2 j3 y      
6 G& n7 e, C" ~# x3 f           (getpoint  ddd )
2 a, _! ?% u# U# j# k8 T0 K             (progn
                (command "pline"  ddd eee  "c")     
: ]; M- V- M. q8 V' H2 @  t                (command "pline"  eee fff  "c")     
% y8 g, G  s! H                (command "pline"  fff ggg  "c")      
; @  R# u4 q1 m: i' Q2 v" r                (command "pline"  ggg ddd  "c")     
             )                        
2 p* ^3 k- V0 F$ V
          )
9 F' E+ n& s* }3 y% }   
  )

: F' u5 L, ~0 S2 M7 r: w* ?这个程序只能画出外框，却画不出内框，应该在   (getpoint  ddd )这一句中，不知怎么改？就是把光标定向内框的左下角

jianfeng01

这是干嘛的，俺是新手，是传说中的二次开发么？