加入化海川流化工人平臺，對接專業(yè)人技術(shù)圈

您需要 登錄 才可以下載或查看，沒有帳號？注冊

x

本人從網(wǎng)上找的絕對好用的cad中數(shù)字求和的lisp小程序

使用方法：把以下程序復(fù)制，打開cad 在cad中保存為add.lisp文件，把a(bǔ)dd.lisp程序復(fù)制到cad安裝程序文件夾中的support文件中；打開cad選加載應(yīng)用程序，找到add.lisp程序選加載，點(diǎn)啟動(dòng)，選add.lisp即可。命令行輸入add回車，選擇數(shù)字，回車，ok！乘法輸mul命令，絕對好用。具體方法如圖：

(SETVAR "TEXTSIZE" 3.0)

;add.lsp

;本程序用處是 進(jìn)行加法運(yùn)算(addition)

;用法:

;? ?裝載后 鍵入 add , 選擇所要計(jì)算的數(shù)據(jù),

;? ?然后 回車 即可在command之下輸出結(jié)果.

;

(DEFUN C:ADD()

(princ "\nAddition,Version3.0,(C)1997-2000 by Huang Zenghong. Email: zhhuang@public.cc.jl.cn")

;保存原系統(tǒng)變量和出錯(cuò)處理函數(shù)

(setq oldech (getvar "CMDECHO")

olderr *ERROR*)

(setvar "CMDECHO" 0)

;定義新的出錯(cuò)處理函數(shù)

(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選擇您要進(jìn)行加法運(yùn)算的數(shù)據(jù) : ")

(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") (_TXT))

(SSDEL EN SS)

)

(SETQ

ADDIT NIL SS NIL EN NIL ED NIL AS NIL

A_TXT NIL NEW_TXT NIL POT NIL

)

(PROMPT (STRCAT "\n加法運(yùn)算之和: " NEW_TEXT))

(PRINC)

(SETQ POT (GETPOINT "\n請問您要將計(jì)算結(jié)果放在何處?:"))

(IF (NOT (= POT NIL))

(TEXT_YES)

)

;恢復(fù)原系統(tǒng)變量和出錯(cuò)處理函數(shù)

(setvar "CMDECHO" oldech)

(setq *ERROR* olderr)

(princ)

)

;加法

(DEFUN _TXT ()

(SETQ A_TXT (+ (ATOF (CDR (ASSOC '1 ED))) A_TXT))

(SETQ NEW_TEXT (RTOS A_TXT 2 3))

(SSDEL EN SS)

)

;mul.lsp

;本程序用處是 進(jìn)行乘法運(yùn)算(multiplication)

;用法:

;? ?裝載后 鍵入 mul , 選擇所要計(jì)算的數(shù)據(jù),

;? ?然后 回車 即可在command之下輸出結(jié)果.

;

(DEFUN C:mul()

(princ "\nMultiplication,Version3.0,(C)1997-2000 by Huang Zenghong. Email: zhhuang@public.cc.jl.cn")

;保存原系統(tǒng)變量和出錯(cuò)處理函數(shù)

(setq oldech (getvar "CMDECHO")

olderr *ERROR*)

(setvar "CMDECHO" 0)

;定義新的出錯(cuò)處理函數(shù)

(defun *ERROR* (msg)

(princ "\n") (princ msg)

(setvar "CMDECHO" oldech)

(setq *ERROR* olderr)

)

(SETQ

ADDIT NIL SS NIL EN NIL ED NIL AS NIL

B_TXT NIL NEW_TXT NIL POT NIL

)

(SETQ B_TXT 1.0)

(PROMPT "\n選擇您要進(jìn)行乘法運(yùn)算的數(shù)據(jù): ")

(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") (_TXTM))

(IF (= AS "MTEXT") (_TXTM))

(SSDEL EN SS)

)

(SETQ

ADDIT NIL SS NIL EN NIL ED NIL AS NIL

B_TXT NIL NEW_TXT NIL POT NIL

)

(PROMPT (STRCAT "\n乘法運(yùn)算之積: " NEW_TEXT))

(PRINC)

(SETQ POT (GETPOINT "\n請問您要將計(jì)算結(jié)果放在何處?:"))

(IF (NOT (= POT NIL))

(TEXT_YES)

)

;恢復(fù)原系統(tǒng)變量和出錯(cuò)處理函數(shù)

(setvar "CMDECHO" oldech)

(setq *ERROR* olderr)

(princ)

)

;乘法

(DEFUN _TXTM ()

(SETQ B_TXT (* (ATOF (CDR (ASSOC '1 ED))) B_TXT))

(SETQ NEW_TEXT (RTOS B_TXT 2 3))

(SSDEL EN SS)

)

;去除空格

(DEFUN KOC()

(SETQ C3 NEW_TEXT)

(SETQ PT1 (STRLEN C3))

(SETQ PT2 (SUBSTR C3 PT1 1))

(WHILE (= "0" PT2)

(SETQ PT1 (- PT1 1))

(SETQ PT2 (SUBSTR C3 PT1 1))

)

(WHILE (= "." PT2)

(SETQ PT1 (- PT1 1))

(SETQ PT2 (SUBSTR C3 PT1 1))

)

(SETQ KC (SUBSTR C3 1 PT1))

(SETQ C3 KC)

)

;寫數(shù)據(jù)

(DEFUN TEXT_YES()

(KOC)

(COMMAND "TEXT" POT "" 0??C3)

)

總結(jié)

以上是生活随笔為你收集整理的cad线段总和lisp_CAD中数字求和的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。