http://www.lnit.edu.cn/shlx/lab/index.asp

(defun layer()
 (command "layer" "n" "main" "n" "center" "n" "cut" "lw" 0.3 "main" "l" "center2" "center" "c" 1 "center" "c" 4 "cut" ""))
(defun input()
 (setq ce(getpoint "中点心=")
)
 )
(defun point()
 (setq sl1 '(-104.891 -131.189)
sl2 '(-104.891 33.811)
sl3 '(-174.745 33.811)
sl4 '(-174.745 128.811)
l1x (+ (car ce) (car sl1))
l2x (+ (car ce) (car sl2))
l3x (+ (car ce) (car sl3))
l4x (+ (car ce) (car sl4))
l1y (+ (cadr ce) (cadr sl1))
l2y (+ (cadr ce) (cadr sl2))
l3y (+ (cadr ce) (cadr sl3))
l4y (+ (cadr ce) (cadr sl4))
l1 (list l1x l1y 0)
l2 (list l2x l2y 0)
l3 (list l3x l3y 0)
l4 (list l4x l4y 0)
l5 (list (car ce) l4y 0)
)
 )
(defun draw()
 
 (command "layer" "s" "main" ""
 "line" l1 l2 l3 l4 l5 "" ""
 )
 )
(defun c:zhizuo()
 (layer)
 (input)
 (point)
 (draw)
 )