AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[發問]如何利用LISP多重將聚合線增加節點? Io15010 [發問]如何利用LISP多重將聚合線增加節點? Easase10 [發問]如何利用LISP多重將聚合線增加節點? Oiu15010 [發問]如何利用LISP多重將聚合線增加節點? 2020-211 [發問]如何利用LISP多重將聚合線增加節點? Oo-2-110 [發問]如何利用LISP多重將聚合線增加節點? BPl3tjj

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

向下

[發問]如何利用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) 下載 1 次
immortal20092
immortal20092
一般會員
一般會員

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[發問]如何利用LISP多重將聚合線增加節點? Uos15010 [發問]如何利用LISP多重將聚合線增加節點? BPl3tjj [發問]如何利用LISP多重將聚合線增加節點? Ziao1510 [發問]如何利用LISP多重將聚合線增加節點? Oo-2-110 [發問]如何利用LISP多重將聚合線增加節點? Oooo-110 [發問]如何利用LISP多重將聚合線增加節點? 2020-211