教學課程
加入贊助
聯絡我們![[已解決]詢問Lisp觀念以及可行性 Aoe1-113](https://i.servimg.com/u/f67/12/31/59/66/aoe1-113.png)
![[已解決]詢問Lisp觀念以及可行性 Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[已解決]詢問Lisp觀念以及可行性 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[已解決]詢問Lisp觀念以及可行性 Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[已解決]詢問Lisp觀念以及可行性 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[已解決]詢問Lisp觀念以及可行性 Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[已解決]詢問Lisp觀念以及可行性 Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[已解決]詢問Lisp觀念以及可行性 Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[已解決]詢問Lisp觀念以及可行性 BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[已解決]詢問Lisp觀念以及可行性 Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[已解決]詢問Lisp觀念以及可行性 Aoe15010](https://i.servimg.com/u/f67/12/31/59/66/aoe15010.png)
![[已解決]詢問Lisp觀念以及可行性 Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[已解決]詢問Lisp觀念以及可行性 Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[已解決]詢問Lisp觀念以及可行性 Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[已解決]詢問Lisp觀念以及可行性 Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[已解決]詢問Lisp觀念以及可行性 Aoe1-112](https://i.servimg.com/u/f67/12/31/59/66/aoe1-112.png)
![[已解決]詢問Lisp觀念以及可行性 Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[已解決]詢問Lisp觀念以及可行性 Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[已解決]詢問Lisp觀念以及可行性 Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[已解決]詢問Lisp觀念以及可行性 Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
[已解決]詢問Lisp觀念以及可行性
5 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
![[已解決]詢問Lisp觀念以及可行性 Empty](https://2img.net/i/empty.gif)
[已解決]詢問Lisp觀念以及可行性
由 a14333683 周四 25 4月 - 16:29
請教各位前輩
我想利用lisp做一個選取等分符號，在選類似物件，在每一個等分符號跟對面的線段做每一個垂直線，不知道lisp可否達成，還是我對lisp的觀念有誤，請大家不吝指教~~
![[已解決]詢問Lisp觀念以及可行性 Line12](https://i.servimg.com/u/f11/20/06/27/37/line12.png)
我想利用lisp做一個選取等分符號，在選類似物件，在每一個等分符號跟對面的線段做每一個垂直線，不知道lisp可否達成，還是我對lisp的觀念有誤，請大家不吝指教~~
![[已解決]詢問Lisp觀念以及可行性 Line12](https://servimg.com/r/1120062737/line12.png)
a14333683- 一般會員
- 文章總數 : 26
年齡 : 41
來自 : 宜蘭
職業 : 工程師
愛好 : 畫圖
個性 : 溫馴
使用年資 : 5
使用版本 : 2018
經驗值 : 2205
威望值 : 18
注冊日期 : 2019-04-16
a14333683- 一般會員
- 文章總數 : 26
年齡 : 41
來自 : 宜蘭
職業 : 工程師
愛好 : 畫圖
個性 : 溫馴
使用年資 : 5
使用版本 : 2018
經驗值 : 2205
威望值 : 18
注冊日期 : 2019-04-16
回復： [已解決]詢問Lisp觀念以及可行性
由 naruto018 周六 27 4月 - 16:22
a14333683 寫到:請教各位前輩
我想利用lisp做一個選取等分符號，在選類似物件，在每一個等分符號跟對面的線段做每一個垂直線，不知道lisp可否達成，還是我對lisp的觀念有誤，請大家不吝指教~~
我試做類似功能，請參考
![[已解決]詢問Lisp觀念以及可行性 UM62g2K](https://i.imgur.com/UM62g2K.gif)
程式碼(回復可見)
我忽略錯誤處理的部分
其他的請自行修改
naruto018- 中級會員
- 文章總數 : 226
年齡 : 32
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 4542
威望值 : 564
注冊日期 : 2016-11-29
回復： [已解決]詢問Lisp觀念以及可行性
由 a14333683 周一 29 4月 - 8:00
好感動喔，就是這種的，謝謝你naruto
____________________________________________________________________________________
=============================================
新手上路，請前輩高抬貴手，高高舉起，輕輕放下
a14333683- 一般會員
- 文章總數 : 26
年齡 : 41
來自 : 宜蘭
職業 : 工程師
愛好 : 畫圖
個性 : 溫馴
使用年資 : 5
使用版本 : 2018
經驗值 : 2205
威望值 : 18
注冊日期 : 2019-04-16
回復： [已解決]詢問Lisp觀念以及可行性
由 ttv_01 周一 29 4月 - 12:05
好特別的功能
來學習看看
來學習看看
____________________________________________________________________________________
![[已解決]詢問Lisp觀念以及可行性 07810](https://i.servimg.com/u/f37/12/31/59/66/07810.png)
![[已解決]詢問Lisp觀念以及可行性 Acad1810](https://i.servimg.com/u/f39/12/31/59/66/acad1810.png)
![[已解決]詢問Lisp觀念以及可行性 Acad2010](https://i.servimg.com/u/f57/12/31/59/66/acad2010.png)
![[已解決]詢問Lisp觀念以及可行性 Acad1810](https://i.servimg.com/u/f38/12/31/59/66/acad1810.png)
![[已解決]詢問Lisp觀念以及可行性 Acad1211](https://i.servimg.com/u/f41/12/31/59/66/acad1211.png)
![[已解決]詢問Lisp觀念以及可行性 Acad1311](https://i.servimg.com/u/f75/12/31/59/66/acad1311.png)
![[已解決]詢問Lisp觀念以及可行性 Acad1511](https://i.servimg.com/u/f16/12/31/59/66/acad1511.png)
ttv_01- 初級會員
- 文章總數 : 145
年齡 : 35
來自 : 彰化
職業 : 倉管
愛好 : 發呆
個性 : 低調
使用年資 : 新手初學
使用版本 : AUTOCAD2008
積分 : 4
經驗值 : 5769
威望值 : 288
注冊日期 : 2011-08-16
回復： [已解決]詢問Lisp觀念以及可行性
由 Tiger&蘋果爸 周一 29 4月 - 12:08
謝謝naruto018大熱心幫助~naruto018 寫到:
我試做類似功能，請參考
我忽略錯誤處理的部分
其他的請自行修改
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21382
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90361
威望值 : 17197
注冊日期 : 2008-04-23
-
回復： [已解決]詢問Lisp觀念以及可行性
由 akioharuno 周一 29 4月 - 13:27
感謝提供，下載來參考看看!
____________________________________________________________________________________
![[已解決]詢問Lisp觀念以及可行性 BPl3tjj.png](https://i.imgur.com/BPl3tjj.png.png)
![[已解決]詢問Lisp觀念以及可行性 Oooa_110](https://i.servimg.com/u/f67/12/31/59/66/oooa_110.png)
akioharuno- 一般會員
- 文章總數 : 56
年齡 : 34
來自 : 高雄
職業 : 結構繪圖
愛好 : 不知道
個性 : 都可以
使用年資 : 2
使用版本 : 2016
經驗值 : 2517
威望值 : 96
注冊日期 : 2018-12-31
回復： [已解決]詢問Lisp觀念以及可行性
由 ttv_01 周二 30 4月 - 9:07
感覺可以 你可以試看看
[輸入: A B C]
單純的線段來看
先點A線 再點B線
再點A線段上的C點當旋轉點
[取得:E F G]
以C點當旋轉基準 複製A線段旋轉90度當E線段
取出E線段角度當F角度
再以E線段與B線交點當G點
[計算:H]
以C基準點與G交點距離x2倍就是需要的H長度
最後
[輸出:E F H]
起點E點角度F角度畫出H線段長
結束
[輸入: A B C]
單純的線段來看
先點A線 再點B線
再點A線段上的C點當旋轉點
[取得:E F G]
以C點當旋轉基準 複製A線段旋轉90度當E線段
取出E線段角度當F角度
再以E線段與B線交點當G點
[計算:H]
以C基準點與G交點距離x2倍就是需要的H長度
最後
[輸出:E F H]
起點E點角度F角度畫出H線段長
結束
____________________________________________________________________________________
ttv_01- 初級會員
- 文章總數 : 145
年齡 : 35
來自 : 彰化
職業 : 倉管
愛好 : 發呆
個性 : 低調
使用年資 : 新手初學
使用版本 : AUTOCAD2008
積分 : 4
經驗值 : 5769
威望值 : 288
注冊日期 : 2011-08-16
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章