---------AutoLisp----------

(setq st (entsel "\n选择面域:"))

    (if  (= (cdr (assoc '0 (entget (car st)))) "LWPOLYLINE") 
        (progn

          (princ "\n选中多义线段!")
          )
    )

(setq p1'(0 0))
(setq p2'(500 500))

(setq p3 (list 0 h))

(command "line" '(500 0)  '(0 500) "")

;表
(setq lst '(1000 20 40 40))

;获取表中最大数,也就是外框值
(setq n (apply 'max lst))

;获取表全部累加数
(setq n0 (apply '+ lst))

;获取表全部累加数-最大数,也就是所有内框累加值
(setq n1 (- n0 n ))

;最大数-内框数,也就是面积
(setq n1 (- n n1 ))

;下标访问表
(nth 0 lst)

;注意函数(append my-list '(d))并不会改变列表my-list的值，
;它只是返回了一个新的列表，
;新的列表中包含了my-list中的值和新添加的值。

;如果希望操作my-list，让my-list多一个元素D，
;需要将代码写成这样：
(setq lst (append lst '(99)))