怎么画内框？

maozhumao

;本程序产生A1图框
$ V- u& [3 M% |6 p8 a(defun c:TKA1()
( [3 C1 F, |3 j- H        (princ "请选择一个点作为图框的左下角:")

4 {: P4 G0 D& b* J        (setq aa (getpoint) )                     

( D4 e2 V% r1 J        (car aa)
, q3 B3 V* b2 M- @        (setq bb (car aa))
8 @3 Z! f! ^6 e' m        (setq cc (cadr aa))
  
* z( g4 }+ T# I0 m$ N1 L        (setq dd (list  bb cc))                     
, ?# I) ]9 t7 {& m# K9 w8 m3 {: N        (setq ee (list  (+ bb 841) cc))               
        (setq ff (list  (+ bb 841) (+ cc 597)))     
        (setq gg (list  bb (+ cc 597)))               
  n$ b) a6 r! @' O" p+ ]1 p- m
$ ^9 @) _' s. `9 g8 f  N% Y1 _         (setq ddd (list (+ bb 25) (+ cc 10)))      
         (setq eee (list (+ bb 831) (+ cc 10)))     
         (setq fff (list (+ bb 831) (+ cc 587)))     
1 T6 T, X9 o2 A2 c0 S1 q( y/ ]         (setq ggg (list (+ bb 25) (+ cc 587)))     
% j: m8 i) i: `/ q% |! \% D2 \
4 A7 `6 u& q: ?# ~: ]' F  
: }, N* N: Y, M( c        (progn
$ x9 Z) B# y( a- q          (command "pline"  dd ee  "c")                  
% d8 Y& Y( J+ h7 @          (command "pline"  ee ff  "c")
/ x& U/ G% E+ P1 e  L7 A          (command "pline"  ff gg  "c")
1 \) X/ T" |7 n* P7 q" P          (command "pline"  gg dd  "c")                          
      
4 g- s. U! {& C9 u: J' U           (getpoint  ddd )
             (progn
                (command "pline"  ddd eee  "c")     
                (command "pline"  eee fff  "c")     
7 U# O& n9 h8 L3 ^# |1 |' U" Y                (command "pline"  fff ggg  "c")      
( B( r2 d- p  F7 G                (command "pline"  ggg ddd  "c")     
             )                        
- L1 y, J! P$ Z
! Z- ^1 W& r& r) y! c          )
& u% @, @' ~8 N# ^  B9 t0 [5 X   
  )
3 w3 W; G' N2 B7 n, P, V6 m
这个程序只能画出外框，却画不出内框，应该在   (getpoint  ddd )这一句中，不知怎么改？就是把光标定向内框的左下角

jianfeng01

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