1，首先輸入VLIDE命令，會進入如下界面
（簡稱vl界面）
2，點擊vl界面的選單欄的檔案->新建檔案，出現一個未命名的視窗，繪圖代碼再次撰寫
3，在興建檔案中撰寫如下代碼
(defun c:ss(/ p p7 p1 p2 p3 p4 p5 alf bhp) ;defun c: 為定義CAD命令的函式，strarr為新建命令名
(setvar "osmode" 0) ;關閉目標捕捉狀態，否則畫直線時遇上短距離線段時會出現“零長度”直線
(setq p(getpoint "滑鼠選定箭頭頂點位置")) ;以互動方式輸入箭頭頂點坐標
(setq p7(getpoint "滑鼠選定起點"));
(setq p3(getdist "輸入箭頭寬度"));
(setq p4(/ p3 1))
(setq p5(* p3 6))
(setq alf(atan p4 p5)) ;用極坐標方法求標線其余各點坐標
(setq p1(polar p (- (angle p p7) alf) (/ p5 (cos alf))))
(setq p2(polar p (+ (angle p p7) alf) (/ p5 (cos alf))))
(command "line" p p1 p2 p "") ;呼叫AutoCAD的line命令，根據各點坐標繪制標線輪廓
(setq bhp(polar p (angle p p7) (/ p5 2))) ;填充標線輔助點，該點位于標線邊界內
(command "bhatch" "p" "solid" bhp "") ;呼叫AutoCAD的bhatch命令，用純色填充邊界
(command"line" p p7 "")
(command "osnap" "endpoint,midpoint,center,node") ;恢復CAD目標捕捉模式
)
4，檢查陳述句是否有語法錯誤：在選單欄的工具->檢查編輯器的文字，會彈出<編譯輸出>視窗顯示檢查結果
，若無語法錯誤顯示“檢查完成”，若有語法錯誤則顯示錯誤陳述句
5，選擇代碼編輯視窗，點擊選單欄工具->加載編譯器檔案，控制臺提示已加載；
6，輸入ss命令，依次輸入相關命令后就能生成一個箭頭寬度自定義的箭頭
7，生成lsp檔案并加載使用
檢查代碼無誤之后，選擇vl視窗的未命名檔案視窗->點擊選單欄的檔案->保存，關閉vl界面
回傳cad界面，點擊選單欄的工具->AutoLisp->加載應用程式，彈出加載應用程式視窗；
8，選擇之前保存的lsp檔案，并點擊加載，下面狀態欄顯示"已成功加載"此時就能使用這個命令
畫箭頭
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/71955.html
標籤：其他