[發問]如何利用LISP多重將聚合線增加節點?
5 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[發問]如何利用LISP多重將聚合線增加節點?
寫了一段時間,有寫了一些比較簡單的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,但上續需考慮其插入的位置,因為跟其形狀的連續性有關
目前最快的只能用滑鼠移到最近點按加入頂點,再按位置
- 附件
immortal20092- 一般會員
- 文章總數 : 9
年齡 : 33
來自 : 台南
職業 : 土木
愛好 : 桌球
個性 : 好相處
使用年資 : 5
使用版本 : 2016
經驗值 : 2316
威望值 : 6
注冊日期 : 2018-08-13
naruto018- 中級會員
- 文章總數 : 224
年齡 : 32
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 4491
威望值 : 564
注冊日期 : 2016-11-29
ryan0106 likes this post
回復: [發問]如何利用LISP多重將聚合線增加節點?
naruto018 寫到:我大概寫一下
我只做過簡單測試
這個程式不會處理寬度
▼回復可見▼
已成功試用,感謝大神
我想我需要點時間看懂
我只會用一般的lisp 這個是屬於Vlisp的嗎?
我看很多人用這個語法寫
immortal20092- 一般會員
- 文章總數 : 9
年齡 : 33
來自 : 台南
職業 : 土木
愛好 : 桌球
個性 : 好相處
使用年資 : 5
使用版本 : 2016
經驗值 : 2316
威望值 : 6
注冊日期 : 2018-08-13
回復: [發問]如何利用LISP多重將聚合線增加節點?
謝謝大大提供的資訊
ryan0106- 一般會員
- 文章總數 : 42
年齡 : 49
來自 : 台南
職業 : 製造
愛好 : 一般
個性 : 努力
使用年資 : 新手初學
使用版本 : 2010
經驗值 : 4550
威望值 : 0
注冊日期 : 2012-11-08
小緯- 一般會員
- 文章總數 : 12
年齡 : 49
來自 : 新北市
職業 : 待業
愛好 : 上網
個性 : 木訥
使用年資 : 新手初學
使用版本 : 2019
經驗值 : 1997
威望值 : 6
注冊日期 : 2019-06-18
回復: [發問]如何利用LISP多重將聚合線增加節點?
下載來試試,謝謝版大提供
ryan0106- 一般會員
- 文章總數 : 42
年齡 : 49
來自 : 台南
職業 : 製造
愛好 : 一般
個性 : 努力
使用年資 : 新手初學
使用版本 : 2010
經驗值 : 4550
威望值 : 0
注冊日期 : 2012-11-08
回復: [發問]如何利用LISP多重將聚合線增加節點?
謝謝大大提供參考程式碼寫法~
kj76129- 一般會員
- 文章總數 : 37
年齡 : 37
來自 : 彰化
職業 : 工程師
愛好 : 看影片
個性 : 開朗
使用年資 : 7
使用版本 : 2014
經驗值 : 2216
威望值 : 6
注冊日期 : 2019-03-22
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章