怎么画内框？

maozhumao

;本程序产生A1图框
/ V% o2 e, t9 I+ l2 k2 ]; b(defun c:TKA1()
        (princ "请选择一个点作为图框的左下角:")
$ a1 ^- {: s% v+ }7 Q
        (setq aa (getpoint) )                     
7 A  X0 Y; r3 l( L, A% s* }
& E/ r$ g) R" S# |$ X& J) t        (car aa)
        (setq bb (car aa))
. E: L5 w5 f/ P7 Z8 `0 V        (setq cc (cadr aa))
  
        (setq dd (list  bb cc))                     
        (setq ee (list  (+ bb 841) cc))               
0 i  G6 B& b4 g+ W6 f) w/ K: k7 b        (setq ff (list  (+ bb 841) (+ cc 597)))     
5 ]  T! o1 ~( q$ J+ n% B" ~        (setq gg (list  bb (+ cc 597)))               

         (setq ddd (list (+ bb 25) (+ cc 10)))      
         (setq eee (list (+ bb 831) (+ cc 10)))     
4 ^4 N, f8 }  _, p( Z+ i/ v         (setq fff (list (+ bb 831) (+ cc 587)))     
         (setq ggg (list (+ bb 25) (+ cc 587)))     
' V2 `: F; W9 ?1 x! G5 b9 Y
  
- e/ [, P& J2 Y        (progn
5 G) E7 M: r7 u0 v0 d2 ^          (command "pline"  dd ee  "c")                  
3 M) g0 ]: |  m" A% K" t. U( Z9 l          (command "pline"  ee ff  "c")
          (command "pline"  ff gg  "c")
: S7 v* `+ v/ G7 u% L2 h* O          (command "pline"  gg dd  "c")                          
  Q1 l* F* I" x/ V2 V      
% R4 Z' M+ E" {6 r5 {0 d0 z% r           (getpoint  ddd )
             (progn
. E- U, Y* E9 }1 Z3 b                (command "pline"  ddd eee  "c")     
                (command "pline"  eee fff  "c")     
                (command "pline"  fff ggg  "c")      
                (command "pline"  ggg ddd  "c")     
             )                        
/ Z. {% u" C* a! G" |" {
          )
! o7 N  F' @- b9 h* O. X   
  )

" c7 G. p1 ^' w  K) e这个程序只能画出外框，却画不出内框，应该在   (getpoint  ddd )这一句中，不知怎么改？就是把光标定向内框的左下角

jianfeng01

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