顧問教學
加入贊助
聯絡我們
請問代碼如何修改矩形轉正
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
請問代碼如何修改矩形轉正
由 ga619091 周五 2 9月 - 13:44
此代碼由兩個點拼成兩個三角形的矩形
已達成兩點畫矩形的效果
但矩形並不是正的
想請問一下是否能在此基礎上把矩形轉正
附上想要的效果
已達成兩點畫矩形的效果
但矩形並不是正的
想請問一下是否能在此基礎上把矩形轉正
附上想要的效果
- 代碼:
(defun :GR (a) (* pi (/ a 180.0)))
(defun C:SQR ( / ANG12 ANG1X ANG2X P1 P2 PXL PXR)
(setq p1 (getpoint "\nfirst point :"))
(setq p2 (getpoint p1 "\nsecond point :"))
(setq ang12 (angle p1 p2)
ang2x (+ ang12 (:GR 45.0))
ang1x (+ ang12 (:GR 135.0))
)
(setq pxl (inters p2 (polar p2 ang2x 1.0) p1 (polar p1 ang1x 1.0) nil))
(setq pxr (inters p1 (polar p1 (+ ang2x pi) 1.0) p2 (polar p2 (+ ang1x pi) 1.0) nil))
(vl-cmdf "line" p1 p2 "")
(vl-cmdf "pline" p1 pxr p2 pxl p1 "")
)
ga619091- 一般會員
- 文章總數 : 12
年齡 : 31
來自 : 新北市
職業 : 繪圖
愛好 : 電腦
個性 : 幽默
使用年資 : 4年
使用版本 : 2007
經驗值 : 1679
威望值 : 12
注冊日期 : 2020-01-06
ga619091- 一般會員
- 文章總數 : 12
年齡 : 31
來自 : 新北市
職業 : 繪圖
愛好 : 電腦
個性 : 幽默
使用年資 : 4年
使用版本 : 2007
經驗值 : 1679
威望值 : 12
注冊日期 : 2020-01-06
Tiger&蘋果爸 likes this post
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章