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.
[發問]如何利用LISP多重將聚合線增加節點? Aoe1-113[發問]如何利用LISP多重將聚合線增加節點? Ioaoe110[發問]如何利用LISP多重將聚合線增加節點? 2020-310[發問]如何利用LISP多重將聚合線增加節點? Oiu15010[發問]如何利用LISP多重將聚合線增加節點? 2020-211[發問]如何利用LISP多重將聚合線增加節點? Ia15010[發問]如何利用LISP多重將聚合線增加節點? Aizyao10[發問]如何利用LISP多重將聚合線增加節點? Uos15010[發問]如何利用LISP多重將聚合線增加節點? BPl3tjj[發問]如何利用LISP多重將聚合線增加節點? Ziao1510
[發問]如何利用LISP多重將聚合線增加節點? Aoe15010[發問]如何利用LISP多重將聚合線增加節點? Oo-2-110[發問]如何利用LISP多重將聚合線增加節點? Zuoiy_10[發問]如何利用LISP多重將聚合線增加節點? Aizyao11[發問]如何利用LISP多重將聚合線增加節點? Iyb_1510[發問]如何利用LISP多重將聚合線增加節點? Aoe1-112[發問]如何利用LISP多重將聚合線增加節點? Uos15011[發問]如何利用LISP多重將聚合線增加節點? Aoe2da10[發問]如何利用LISP多重將聚合線增加節點? Aoe2da11[發問]如何利用LISP多重將聚合線增加節點? Aoe10

[發問]如何利用LISP多重將聚合線增加節點?

5 posters

向下

[發問]如何利用LISP多重將聚合線增加節點? Empty [發問]如何利用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,但上續需考慮其插入的位置,因為跟其形狀的連續性有關

目前最快的只能用滑鼠移到最近點按加入頂點,再按位置 三條線
附件
[發問]如何利用LISP多重將聚合線增加節點? Attachment
擷取.PNG 您無權下載這里的附件。(16 Kb) 下載 2 次
immortal20092
immortal20092
一般會員
一般會員

文章總數 : 9
年齡 : 33
來自 : 台南
職業 : 土木
愛好 : 桌球
個性 : 好相處
使用年資 : 5
使用版本 : 2016
經驗值 : 2316
威望值 : 6
注冊日期 : 2018-08-13
男 獅子座 羊

回頂端 向下

[發問]如何利用LISP多重將聚合線增加節點? Empty 回復: [發問]如何利用LISP多重將聚合線增加節點?

發表 由 naruto018 2020-03-10, 08:50

我大概寫一下
我只做過簡單測試
這個程式不會處理寬度
▼回復可見▼
naruto018
naruto018
中級會員
中級會員

文章總數 : 224
年齡 : 32
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 4491
威望值 : 564
注冊日期 : 2016-11-29
藍鵲726號
男 摩羯座 羊

ryan0106 likes this post

回頂端 向下

[發問]如何利用LISP多重將聚合線增加節點? Empty 回復: [發問]如何利用LISP多重將聚合線增加節點?

發表 由 immortal20092 2020-03-10, 21:26

naruto018 寫到:我大概寫一下
我只做過簡單測試
這個程式不會處理寬度
▼回復可見▼

已成功試用,感謝大神
我想我需要點時間看懂
我只會用一般的lisp 這個是屬於Vlisp的嗎?
我看很多人用這個語法寫
immortal20092
immortal20092
一般會員
一般會員

文章總數 : 9
年齡 : 33
來自 : 台南
職業 : 土木
愛好 : 桌球
個性 : 好相處
使用年資 : 5
使用版本 : 2016
經驗值 : 2316
威望值 : 6
注冊日期 : 2018-08-13
男 獅子座 羊

回頂端 向下

[發問]如何利用LISP多重將聚合線增加節點? Empty 回復: [發問]如何利用LISP多重將聚合線增加節點?

發表 由 ryan0106 2020-05-02, 11:12

謝謝大大提供的資訊
ryan0106
ryan0106
一般會員
一般會員

文章總數 : 42
年齡 : 49
來自 : 台南
職業 : 製造
愛好 : 一般
個性 : 努力
使用年資 : 新手初學
使用版本 : 2010
經驗值 : 4550
威望值 : 0
注冊日期 : 2012-11-08
男 摩羯座 虎

回頂端 向下

[發問]如何利用LISP多重將聚合線增加節點? Empty 回復: [發問]如何利用LISP多重將聚合線增加節點?

發表 由 小緯 2022-06-09, 15:08

感謝大大提供
小緯
小緯
一般會員
一般會員

文章總數 : 12
年齡 : 49
來自 : 新北市
職業 : 待業
愛好 : 上網
個性 : 木訥
使用年資 : 新手初學
使用版本 : 2019
經驗值 : 1997
威望值 : 6
注冊日期 : 2019-06-18
男 摩羯座 虎

回頂端 向下

[發問]如何利用LISP多重將聚合線增加節點? Empty 回復: [發問]如何利用LISP多重將聚合線增加節點?

發表 由 ryan0106 2022-06-14, 12:26

下載來試試,謝謝版大提供
ryan0106
ryan0106
一般會員
一般會員

文章總數 : 42
年齡 : 49
來自 : 台南
職業 : 製造
愛好 : 一般
個性 : 努力
使用年資 : 新手初學
使用版本 : 2010
經驗值 : 4550
威望值 : 0
注冊日期 : 2012-11-08
男 摩羯座 虎

回頂端 向下

[發問]如何利用LISP多重將聚合線增加節點? Empty 回復: [發問]如何利用LISP多重將聚合線增加節點?

發表 由 kj76129 2022-08-08, 15:53

謝謝大大提供參考程式碼寫法~
kj76129
kj76129
一般會員
一般會員

文章總數 : 37
年齡 : 37
來自 : 彰化
職業 : 工程師
愛好 : 看影片
個性 : 開朗
使用年資 : 7
使用版本 : 2014
經驗值 : 2216
威望值 : 6
注冊日期 : 2019-03-22
男 水瓶座 兔

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[發問]如何利用LISP多重將聚合線增加節點? Aoe1-113[發問]如何利用LISP多重將聚合線增加節點? Ioaoe110[發問]如何利用LISP多重將聚合線增加節點? 2020-310[發問]如何利用LISP多重將聚合線增加節點? Oiu15010[發問]如何利用LISP多重將聚合線增加節點? 2020-211[發問]如何利用LISP多重將聚合線增加節點? Ia15010[發問]如何利用LISP多重將聚合線增加節點? Aizyao10[發問]如何利用LISP多重將聚合線增加節點? Uos15010[發問]如何利用LISP多重將聚合線增加節點? BPl3tjj[發問]如何利用LISP多重將聚合線增加節點? Ziao1510
[發問]如何利用LISP多重將聚合線增加節點? Aoe15010[發問]如何利用LISP多重將聚合線增加節點? Oo-2-110[發問]如何利用LISP多重將聚合線增加節點? Zuoiy_10[發問]如何利用LISP多重將聚合線增加節點? Aizyao11[發問]如何利用LISP多重將聚合線增加節點? Iyb_1510[發問]如何利用LISP多重將聚合線增加節點? Aoe1-112[發問]如何利用LISP多重將聚合線增加節點? Uos15011[發問]如何利用LISP多重將聚合線增加節點? Aoe2da10[發問]如何利用LISP多重將聚合線增加節點? Aoe2da11[發問]如何利用LISP多重將聚合線增加節點? Aoe10