[已解決][問題]關於工程圖框的lisp上自動生成,以及聚合線的幾個問題
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[已解決][問題]關於工程圖框的lisp上自動生成,以及聚合線的幾個問題
個人第一次在這個論壇上發文,請多多見諒了!
目前是autocad新手,也是auto lisp的初學者
想請教就是關於聚合線的Lisp程式,當一般在模型上畫線時,有開著鎖點參考線,只要滑鼠移動到上下左右四個方面,輸入數字,就會自動朝那個方向的水平或垂直生成100mm的線條
而我的問題是,我想要在lisp上自動升成一個矩形,並且有一定的線條寬度,我應該要怎麼寫比較好?
我有試過用polar 先畫出矩形每個點,然後再逐一描繪出矩形,但覺得太沒效率,如果我能直接告訴他方向以及長度應該更快。
再來還有一點問題是我想詢問關於文字的敘述,放置在圖框上的大小、排版、高度,這些要用lisp生成出來,我應該參考討論版上的哪篇文章比較好?
(不好意思第一次在這發文)
(使用polar點出相應的矩形點後,在描繪出矩形,會有正種轉角處沒有均勻的狀況出現)
程式碼:
目前是autocad新手,也是auto lisp的初學者
想請教就是關於聚合線的Lisp程式,當一般在模型上畫線時,有開著鎖點參考線,只要滑鼠移動到上下左右四個方面,輸入數字,就會自動朝那個方向的水平或垂直生成100mm的線條
而我的問題是,我想要在lisp上自動升成一個矩形,並且有一定的線條寬度,我應該要怎麼寫比較好?
我有試過用polar 先畫出矩形每個點,然後再逐一描繪出矩形,但覺得太沒效率,如果我能直接告訴他方向以及長度應該更快。
再來還有一點問題是我想詢問關於文字的敘述,放置在圖框上的大小、排版、高度,這些要用lisp生成出來,我應該參考討論版上的哪篇文章比較好?
(不好意思第一次在這發文)
(使用polar點出相應的矩形點後,在描繪出矩形,會有正種轉角處沒有均勻的狀況出現)
程式碼:
- 代碼:
(defun c:A3(/ oldsnap);oldsnap為原先使用者的預設鎖點設定
(setq oldsnap (getvar "osmode")) ;(儲存目前的鎖點設定)
(setvar "osmode" 0);|修改鎖點設定|;
(setvar "DYNMODE" 1);|修改動態設定|;
(setq basepoint (getpoint "\n按一下設定左下角基準點"))
(setq p1 basepoint
p2 (polar basepoint 0 400)
p3 (polar p2 (/ pi 2) 277)
p4 (polar p3 pi 400)
)
(command "pline" p1 p2 p3 p4 "")
;|恢復原有鎖點設定|;
(setvar "osmode" oldsnap)
)
winny1998- 一般會員
- 文章總數 : 7
年齡 : 26
來自 : 台南
職業 : 待業
愛好 : 電動
個性 : 文靜
使用年資 : 一個禮拜
使用版本 : 2023
經驗值 : 402
威望值 : 0
注冊日期 : 2023-11-17
Tiger&蘋果爸 likes this post
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章