CAD数字求和lisp

加法/乘法
(SETVAR “TEXTSIZE” 3.0)

;add.lsp

;本程序用处是 进行加法运算(addition)

;用法:

; 装载后 键入 add , 选择所要计算的数据,

; 然后 回车 即可在command之下输出结果.

;

(DEFUN C:ADD()

(princ “\nAddition,Version3.0,©2022 by Tangzhenyuan. Email: 1239519545@qq.com”)

;保存原系统变量和出错处理函数

(setq oldech (getvar “CMDECHO”)

olderr ERROR)

(setvar “CMDECHO” 0)

;定义新的出错处理函数

(defun ERROR (msg)

(princ “\n”) (princ msg)

(setvar “CMDECHO” oldech)

(setq ERROR olderr)

)

(SETQ

ADDIT NIL SS NIL EN NIL ED NIL AS NIL

A_TXT NIL NEW_TXT NIL POT NIL

)

(SETQ A_TXT 0)

(PROMPT "\n选择您要进行加法运算的数据 : ")

(SETQ SS (SSGET))

(WHILE (> (SSLENGTH SS) 0)

(SETQ EN (SSNAME SS 0))

(SETQ ED (ENTGET EN))

(SETQ AS (CDR (ASSOC '0 ED)))

(IF (= AS “TEXT”) (_TXT))

(IF (= AS “MTEXT