顧問教學
加入贊助
聯絡我們![[發問]如何利用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多重將聚合線增加節點？
由 immortal20092 2020-03-09, 21:31
寫了一段時間，有寫了一些比較簡單的LISP，方便自己工作效率上的需求
但目前遇到一個問題，目前自己有寫了一個針對連續聚合線匯出及長度，並指定起點依順時針匯出XY座標，匯入EXCEL時轉長度
但因為建築圖的封閉聚合線偶爾會遇到需要自己增加節點的情況
但pedit中運用上較難使用，想問各位有什麼好建議？
目前想過幾個方案，但考慮其難易超過自己能力或是需要強大計算能力，只能想到一兩個
方案一最容易，但卡在指令編輯頂點後，出現了下一點、上一點必須先選才能繼續
(defun c:GG (/ osm)
(setq osm (getvar "OSMODE"))
(command "PEDIT" (ssget) "E" "I" (getpoint) "")
;;上列在E執行後面臨要先選擇上一點及下一點的囧境
(setvar "osmode" osm)
(setvar "cmdecho" oecho)
(princ)
)
但這個方案所按的需要先知道他的上一點是什麼，基本上我插入的點都是在原有的頂點連線上，不會使形狀有改變
方案二
利用getpoint得到XY座標，然後針對該聚合線，強行插入一個list，但上續需考慮其插入的位置，因為跟其形狀的連續性有關
目前最快的只能用滑鼠移到最近點按加入頂點，再按位置
但目前遇到一個問題，目前自己有寫了一個針對連續聚合線匯出及長度，並指定起點依順時針匯出XY座標，匯入EXCEL時轉長度
但因為建築圖的封閉聚合線偶爾會遇到需要自己增加節點的情況
但pedit中運用上較難使用，想問各位有什麼好建議？
目前想過幾個方案，但考慮其難易超過自己能力或是需要強大計算能力，只能想到一兩個
方案一最容易，但卡在指令編輯頂點後，出現了下一點、上一點必須先選才能繼續
(defun c:GG (/ osm)
(setq osm (getvar "OSMODE"))
(command "PEDIT" (ssget) "E" "I" (getpoint) "")
;;上列在E執行後面臨要先選擇上一點及下一點的囧境
(setvar "osmode" osm)
(setvar "cmdecho" oecho)
(princ)
)
但這個方案所按的需要先知道他的上一點是什麼，基本上我插入的點都是在原有的頂點連線上，不會使形狀有改變
方案二
利用getpoint得到XY座標，然後針對該聚合線，強行插入一個list，但上續需考慮其插入的位置，因為跟其形狀的連續性有關
目前最快的只能用滑鼠移到最近點按加入頂點，再按位置
- 附件
![[發問]如何利用LISP多重將聚合線增加節點？ Attachment](https://2img.net/i/fa/attachment.png)
- 擷取.PNG 您無權下載這里的附件。(16 Kb) 下載 1 次
immortal20092- 一般會員
- 文章總數 : 9
年齡 : 32
來自 : 台南
職業 : 土木
愛好 : 桌球
個性 : 好相處
使用年資 : 5
使用版本 : 2016
經驗值 : 2241
威望值 : 6
注冊日期 : 2018-08-13
naruto018- 中級會員
- 文章總數 : 211
年齡 : 32
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 4345
威望值 : 558
注冊日期 : 2016-11-29
ryan0106 likes this post
回復： [發問]如何利用LISP多重將聚合線增加節點？
由 immortal20092 2020-03-10, 21:26
naruto018 寫到:我大概寫一下
我只做過簡單測試
這個程式不會處理寬度
▼回復可見▼
已成功試用，感謝大神
我想我需要點時間看懂
我只會用一般的lisp 這個是屬於Vlisp的嗎？
我看很多人用這個語法寫
immortal20092- 一般會員
- 文章總數 : 9
年齡 : 32
來自 : 台南
職業 : 土木
愛好 : 桌球
個性 : 好相處
使用年資 : 5
使用版本 : 2016
經驗值 : 2241
威望值 : 6
注冊日期 : 2018-08-13
ryan0106- 一般會員
- 文章總數 : 41
年齡 : 49
來自 : 台南
職業 : 製造
愛好 : 一般
個性 : 努力
使用年資 : 新手初學
使用版本 : 2010
經驗值 : 4470
威望值 : 0
注冊日期 : 2012-11-08
小緯- 一般會員
- 文章總數 : 12
年齡 : 49
來自 : 新北市
職業 : 待業
愛好 : 上網
個性 : 木訥
使用年資 : 新手初學
使用版本 : 2019
經驗值 : 1922
威望值 : 6
注冊日期 : 2019-06-18
ryan0106- 一般會員
- 文章總數 : 41
年齡 : 49
來自 : 台南
職業 : 製造
愛好 : 一般
個性 : 努力
使用年資 : 新手初學
使用版本 : 2010
經驗值 : 4470
威望值 : 0
注冊日期 : 2012-11-08
kj76129- 一般會員
- 文章總數 : 32
年齡 : 37
來自 : 彰化
職業 : 工程師
愛好 : 看影片
個性 : 開朗
使用年資 : 7
使用版本 : 2014
經驗值 : 2112
威望值 : 0
注冊日期 : 2019-03-22
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章