AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.

請問代碼如何修改矩形轉正

向下

請問代碼如何修改矩形轉正 Empty 請問代碼如何修改矩形轉正

發表 由 ga619091 2022-09-02, 13:44

此代碼由兩個點拼成兩個三角形的矩形
已達成兩點畫矩形的效果
但矩形並不是正的
想請問一下是否能在此基礎上把矩形轉正


附上想要的效果
請問代碼如何修改矩形轉正 12310
代碼:
(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
ga619091
一般會員
一般會員

文章總數 : 9
年齡 : 29
來自 : 新北市
職業 : 繪圖
愛好 : 電腦
個性 : 幽默
使用年資 : 4年
使用版本 : 2007
經驗值 : 1067
威望值 : 12
注冊日期 : 2020-01-06
男 射手座 猴

回頂端 向下

請問代碼如何修改矩形轉正 Empty 回復: 請問代碼如何修改矩形轉正

發表 由 ga619091 2022-09-02, 15:24

已自行解決了 感謝大家
ga619091
ga619091
一般會員
一般會員

文章總數 : 9
年齡 : 29
來自 : 新北市
職業 : 繪圖
愛好 : 電腦
個性 : 幽默
使用年資 : 4年
使用版本 : 2007
經驗值 : 1067
威望值 : 12
注冊日期 : 2020-01-06
男 射手座 猴

Tiger&蘋果爸 likes this post

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
請問代碼如何修改矩形轉正 Ioaoe110 請問代碼如何修改矩形轉正 2020-310 請問代碼如何修改矩形轉正 Oiu15010 請問代碼如何修改矩形轉正 2020-211 請問代碼如何修改矩形轉正 Ia15010 請問代碼如何修改矩形轉正 Aizyao10
請問代碼如何修改矩形轉正 Uos15010 請問代碼如何修改矩形轉正 BPl3tjj 請問代碼如何修改矩形轉正 Ziao1510 請問代碼如何修改矩形轉正 Oo-2-110 請問代碼如何修改矩形轉正 Zuoiy_10 請問代碼如何修改矩形轉正 Aizyao11
請問代碼如何修改矩形轉正 Aoe1-111 請問代碼如何修改矩形轉正 Uos15011 請問代碼如何修改矩形轉正 RQvAhqF 請問代碼如何修改矩形轉正 YdKelqY 請問代碼如何修改矩形轉正 K410yWG