怎么画内框？

maozhumao

;本程序产生A1图框
" r* P  N6 k$ j% B(defun c:TKA1()
, Q; N% y# {8 _6 |/ Y        (princ "请选择一个点作为图框的左下角:")
* i; L' x  t% V2 b$ Z& @" J
        (setq aa (getpoint) )                     

        (car aa)
  U- s, g1 T+ a, P  @( n        (setq bb (car aa))
8 `7 ?1 Y, _3 \3 H6 D8 Z        (setq cc (cadr aa))
' K: ?9 T/ }1 X' \$ q( f! k" l  
        (setq dd (list  bb cc))                     
9 ?, i8 A( g5 X7 P        (setq ee (list  (+ bb 841) cc))               
        (setq ff (list  (+ bb 841) (+ cc 597)))     
        (setq gg (list  bb (+ cc 597)))               

/ j9 O: _- r5 b( Z) h         (setq ddd (list (+ bb 25) (+ cc 10)))      
         (setq eee (list (+ bb 831) (+ cc 10)))     
         (setq fff (list (+ bb 831) (+ cc 587)))     
         (setq ggg (list (+ bb 25) (+ cc 587)))     

. r: T7 U! |& j- I$ j  
5 R! l! E+ Q1 S- C* P        (progn
- C& a' N5 f, f6 n5 o          (command "pline"  dd ee  "c")                  
          (command "pline"  ee ff  "c")
          (command "pline"  ff gg  "c")
* L* d5 C' X1 ^, ^, Q          (command "pline"  gg dd  "c")                          
      
2 U' u$ L% r9 e8 n           (getpoint  ddd )
6 q+ y% a2 }6 `/ U& U             (progn
                (command "pline"  ddd eee  "c")     
6 ?9 c$ X0 a6 W, y0 o- J( X* n4 |                (command "pline"  eee fff  "c")     
                (command "pline"  fff ggg  "c")      
                (command "pline"  ggg ddd  "c")     
             )                        

( k/ ]' Q1 E% m          )
   
  )
1 E" _) X; v1 @1 A8 Z/ c% v0 U
! ~& x* w- ^( [& w0 G0 R2 r这个程序只能画出外框，却画不出内框，应该在   (getpoint  ddd )这一句中，不知怎么改？就是把光标定向内框的左下角

jianfeng01

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