今天給大家來個稍微有點難度的，是乙個畫邊框的lisp程式。帶分號的是解釋，不影響程式執行，程式如下：
；定義函式 /後面的引數是臨時用用，這個函式一關閉，引數賦值就自動消失
(defun c:pbox (/ pa pb pc pd ww hh mp1 mp2 *** mp4)
;cmdecho 關閉指令響應，函式執行時 autocad 是否回顯提示和輸入：0.關閉回顯 1.開啟回顯
(setvar "cmdecho" 0)
;blipmode 控制顯示點十字標誌，0是不顯示，1是顯示
(setvar "blipmode" 0)
;以下 pa、ww、hh 值須由使用者輸入
(setq pa (getpoint "矩形框請輸入左下角點:"))
(setq ww (getdist pa "請輸入矩形框寬度:")) ；是指在命令列輸入資料時換行，通用做法
(setq hh (getdist pa "請輸入矩形框高度:"))
;以下pb、pc、pd值須由程式依據pa、ww、hh求出
；pb點(polar(距離)pa點 0 度方向 ww 矩形框的寬度 )，以下是乙個意思，角度是弧度
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
;以下依據 pa、pb、pc、pd 點畫矩形
(command "pline" pa pb pc pd "c")
;以下mp1、mp2、***、mp4值須由程式依據pa、ww、hh ;& pb、pc、pd 值求出
(setq mp1 (polar pa 0 (/ ww 2)))
(setq mp2 (polar pb (/ pi 2) (/ hh 2)))
(setq *** (polar pd 0 (/ ww 2)))
(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
;以下依據 mp1、mp2、***、mp4 點畫出二條線
(command "line" mp1 *** "")
(command "line" mp2 mp4 "")
;prin1 (prin1)與(princ)功能一樣，表示程式結束
好了，儲存關閉 ，在autocad 環境下，管理—載入lisp程式，成功
在命令列輸入 pbox
按要求輸入角點(可以指定，比如10,20回車)寬度比如10，高度比如20
方框就畫出來了。
學好lisp，可以節省很大人力，這是我剛編好的乙個樁板結構，幾秒鐘就ok ，要是徒手畫，怎麼也得20分鐘。
cad啟動自動載入arx研究
一 acad.rx實現自動載入arx 我的arx路徑是c myarx test.arx 1.在 c myarx 下新建acad.rx檔案 在裡面寫入test.arx 注意如果有多個arx，則每乙個arx檔名 佔據一行 2.這種方法必須保證 acad.rx 所在路徑在搜尋路徑下，對登錄檔做如何修改 h...
自動執行任務 芭芭農場自動執行，自動簽到
1 專案的作用 1 本專案主要用於自動執行tao金幣活動。2 測試環境 華為p30pro autojs4 tao寶v9 2 專案的功能 a.自動執行tao金幣所有瀏覽任務 b.自動執行 逛好店領一大波金幣 任務 包含瀏覽10s 10金幣任務 收藏店鋪 10金幣 c.自動執行 逛螞蟻莊園喂小雞 任務 ...
自動執行任務 芭芭農場自動執行，自動簽到
1 專案的作用 1 本專案主要用於自動執行tao金幣活動。2 測試環境 華為p30pro autojs4 tao寶v9 2 專案的功能 a.自動執行tao金幣所有瀏覽任務 b.自動執行 逛好店領一大波金幣 任務 包含瀏覽10s 10金幣任務 收藏店鋪 10金幣 c.自動執行 逛螞蟻莊園喂小雞 任務 ...