24h購物| | PChome| 登入
2005-10-25 14:19:25| 人氣498| 回應0 | 上一篇 | 下一篇

AutoCAD 作中垂線的 LISP

推薦 0 收藏 0 轉貼0 訂閱站台

; 作中垂線
(defun c:mid_per (/ p1 p2 p3)
(setq p1 (getpoint "nPick a line: "))
(setq p2 (osnap p1 "mid"))
(setq p3 (osnap p1 "endp"))

(if (or (= p2 nil) (= p3 nil))
(princ "try again!n")

(prong
(setq t1 (angle p2 p3))
(setq t2 (+ t1 (/ pi 2.0)))
(setq t3 (- t1 (/ pi 2.0)))
(setq ss (distance p2 p3))

(setq p4 (polar p2 t2 ss))
(setq p5 (polar p2 t3 ss))
(command "line" p4 p5 "")
)
) ; end if
(princ)
) ; end of c:mid_per()

我要檢舉
台長： sjgau

您可能對以下文章有興趣

人氣(498) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: 網路資料搜尋技巧 |
此分類下一篇:這幾天幹的好事
此分類上一篇:AutoCAD 作分角線的 LISP程式

我要回應
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文