顧問教學
加入贊助
聯絡我們
等分聚合線加節點
+3
Tiger&蘋果爸
masao_8
jkop
7 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
等分聚合線加節點
由 jkop 2024-05-03, 08:33
這是網路上偶然找到的LSP，主要作用是載入後執行pladdpt，點選聚合線，能夠依據輸入的等分間距，生成聚合線節點。
順帶求救前輩協助，幫忙把單選修改成框選
。
順帶求救前輩協助，幫忙把單選修改成框選
。- 附件
- 等分聚合線加節點.zip 您無權下載這里的附件。(1 Kb) 下載 10 次
____________________________________________________________________________________
jkop- 一般會員
- 文章總數 : 75
年齡 : 42
來自 : 基隆
職業 : 儀電設計
愛好 : 網遊、下載
個性 : 簡單、輕鬆、安靜
使用年資 : 5年
使用版本 : 2018
經驗值 : 2792
威望值 : 12
注冊日期 : 2017-09-13
starsin0423 likes this post
回復： 等分聚合線加節點
由 masao_8 2024-05-04, 14:57
- 代碼:
(defun c:pladdpt (/ CMDECHO EN osmode d n ss_en)
(setq cmdecho (getvar 'cmdecho))
(setq osmode (getvar 'osmode))
(setvar 'cmdecho 0)
(setvar 'osmode 0)
(princ "\n->請選取聚合線或退出:")
(setq ss_en (ssget '((0 . "LWPOLYLINE"))))
(if ss_en
(progn
(setq d (getreal "\n分割間距:"))
(setq n 0)
(repeat (sslength ss_en)
(setq en (ssname ss_en n))
(MS:PLA)
(setq n (+ 1 n))
);repeat
);progn
);if
(setvar 'cmdecho cmdecho)
(setvar 'osmode osmode)
(princ)
)
(defun MS:PLA(/ l dd pt pts ss)
(setq l (vlax-curve-getDistAtParam en (vlax-curve-getEndParam en))
dd 0)
(while (and (< (setq dd (+ dd d)) l)
(setq pt (vlax-curve-getPointAtDist en dd))
)
(setq pts (cons pt pts))
)
(vl-cmdf "_.undo" "_begin")
(foreach pt pts
(setq enden (entlast))
(command "_break" en (vlax-curve-getclosestpointto en pt) pt)
(setq ss (ssadd))
(while (setq enden (entnext enden))
(if (not (member (cdr (assoc 0 (entget enden)))
'("ATTRIB" "VERTEX" "SEQEND")))
(ssadd enden ss)
)
)
(VL-CATCH-ALL-APPLY 'vl-cmdf (list "pedit" en "j" ss "" ""))
)
(vl-cmdf "_.undo" "_end")
(princ)
)
(princ)
masao_8- 初級會員
- 文章總數 : 48
年齡 : 31
來自 : 台中
職業 : 製圖
愛好 : 動漫
個性 : 內向
使用年資 : 4年
使用版本 : 2012
積分 : 1
經驗值 : 1047
威望值 : 87
注冊日期 : 2022-06-03
Tiger&蘋果爸, jkop and starsin0423 like this post
回復： 等分聚合線加節點
由 Tiger&蘋果爸 2024-05-05, 18:06
謝謝 masao_8 熱心協助 
樓主的程式若輸入0或沒輸入會掛掉，我補充加入 分割間距(不能為0或空)
👇有需要這程式可以回文可見下載網址，記得回文感謝提供程式的會員朋友 jkop masao_8 ，一起魚幫水水幫魚😉
樓主的程式若輸入0或沒輸入會掛掉，我補充加入 分割間距(不能為0或空)
👇有需要這程式可以回文可見下載網址，記得回文感謝提供程式的會員朋友 jkop masao_8 ，一起魚幫水水幫魚😉
____________________________________________________________________________________
👉[優惠]慶祝AutoCAD顧問十六週年の感謝有你(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21141
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88828
威望值 : 16977
注冊日期 : 2008-04-23
-
jkop, yochilde, starsin0423, masao_8 and hkhkl1981@gmail.com like this post
ajia- 一般會員
- 文章總數 : 23
年齡 : 41
來自 : 苗栗
職業 : 水利
愛好 : 運動
個性 : 平凡
使用年資 : 3
使用版本 : 2013
經驗值 : 4353
威望值 : 12
注冊日期 : 2012-09-27
回復： 等分聚合線加節點
由 jkop 2024-05-06, 08:05
感謝蘋果爸及masao_8的協助，將單選變成匡選，解決我很大的困擾，畢竟lisp是網路上找的，但我是Lisp小白.....。
jkop 在 2024-05-06, 10:56 作了第 1 次修改
____________________________________________________________________________________
jkop- 一般會員
- 文章總數 : 75
年齡 : 42
來自 : 基隆
職業 : 儀電設計
愛好 : 網遊、下載
個性 : 簡單、輕鬆、安靜
使用年資 : 5年
使用版本 : 2018
經驗值 : 2792
威望值 : 12
注冊日期 : 2017-09-13
回復： 等分聚合線加節點
由 Tiger&蘋果爸 2024-05-06, 09:22
將單選變成匡選不是我寫的，是 masao_8 熱心協助喔jkop 寫到:感謝蘋果爸的協助，將單選變成匡選，解決我很大的困擾，畢竟lisp是網路上找的，但我是Lisp小白.....。
____________________________________________________________________________________
👉[優惠]慶祝AutoCAD顧問十六週年の感謝有你(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21141
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88828
威望值 : 16977
注冊日期 : 2008-04-23
-
DoveW- 一般會員
- 文章總數 : 30
年齡 : 31
來自 : 桃園市
職業 : 公家機關
愛好 : 旅遊、吸收新電腦硬軟體資訊
個性 : 喜歡瞭解新事物
使用年資 : 3年以上
使用版本 : 2019
經驗值 : 548
威望值 : 0
注冊日期 : 2023-04-11
jennifey64- 一般會員
- 文章總數 : 22
年齡 : 34
來自 : 新竹
職業 : 助理
愛好 : 軟體學習
個性 : 活潑
使用年資 : 新手初學
使用版本 : 2011
經驗值 : 3937
威望值 : 6
注冊日期 : 2013-11-20
starsin0423- 一般會員
- 文章總數 : 7
年齡 : 42
來自 : 新北市
職業 : 設計助理
愛好 : 電影,遊戲
個性 : 求知
使用年資 : 初學未上手
使用版本 : 2018
經驗值 : 1420
威望值 : 0
注冊日期 : 2020-07-30
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章