教學課程
加入贊助
聯絡我們
等分聚合線加節點
+12
ELLE
love01146
andy_wsk
ahorng
fashow
starsin0423
jennifey64
DoveW
ajia
Tiger&蘋果爸
masao_8
jkop
16 posters
等分聚合線加節點
由 jkop 2024-05-03, 08:33
這是網路上偶然找到的LSP，主要作用是載入後執行pladdpt，點選聚合線，能夠依據輸入的等分間距，生成聚合線節點。
順帶求救前輩協助，幫忙把單選修改成框選
。
順帶求救前輩協助，幫忙把單選修改成框選
。- 附件
- 等分聚合線加節點.zip 您無權下載這里的附件。(1 Kb) 下載 22 次
____________________________________________________________________________________
jkop- 一般會員
- 文章總數 : 78
年齡 : 43
來自 : 基隆
職業 : 儀電設計
愛好 : 網遊、下載
個性 : 簡單、輕鬆、安靜
使用年資 : 5年
使用版本 : 2018
經驗值 : 3054
威望值 : 18
注冊日期 : 2017-09-13
starsin0423, ajo14567 and eeeee55eeeee55 like 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- 初級會員
- 文章總數 : 72
年齡 : 31
來自 : 台中
職業 : 製圖
愛好 : 動漫
個性 : 內向
使用年資 : 4年
使用版本 : 2012
積分 : 1
經驗值 : 1457
威望值 : 132
注冊日期 : 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 ，一起魚幫水水幫魚😉
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21421
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90651
威望值 : 17226
注冊日期 : 2008-04-23
-
jkop, yochilde, starsin0423, masao_8, hkhkl1981@gmail.com and ajo14567 like this post
ajia- 一般會員
- 文章總數 : 23
年齡 : 42
來自 : 苗栗
職業 : 水利
愛好 : 運動
個性 : 平凡
使用年資 : 3
使用版本 : 2013
經驗值 : 4594
威望值 : 12
注冊日期 : 2012-09-27
回復： 等分聚合線加節點
由 jkop 2024-05-06, 08:05
感謝蘋果爸及masao_8的協助，將單選變成匡選，解決我很大的困擾，畢竟lisp是網路上找的，但我是Lisp小白.....。
jkop 在 2024-05-06, 10:56 作了第 1 次修改
____________________________________________________________________________________
jkop- 一般會員
- 文章總數 : 78
年齡 : 43
來自 : 基隆
職業 : 儀電設計
愛好 : 網遊、下載
個性 : 簡單、輕鬆、安靜
使用年資 : 5年
使用版本 : 2018
經驗值 : 3054
威望值 : 18
注冊日期 : 2017-09-13
回復： 等分聚合線加節點
由 Tiger&蘋果爸 2024-05-06, 09:22
將單選變成匡選不是我寫的，是 masao_8 熱心協助喔jkop 寫到:感謝蘋果爸的協助，將單選變成匡選，解決我很大的困擾，畢竟lisp是網路上找的，但我是Lisp小白.....。
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21421
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90651
威望值 : 17226
注冊日期 : 2008-04-23
-
DoveW- 一般會員
- 文章總數 : 39
年齡 : 32
來自 : 桃園市
職業 : 公家機關
愛好 : 旅遊、吸收新電腦硬軟體資訊
個性 : 喜歡瞭解新事物
使用年資 : 3年以上
使用版本 : 2019
經驗值 : 838
威望值 : 6
注冊日期 : 2023-04-11
jennifey64- 一般會員
- 文章總數 : 23
年齡 : 34
來自 : 新竹
職業 : 助理
愛好 : 軟體學習
個性 : 活潑
使用年資 : 新手初學
使用版本 : 2011
經驗值 : 4189
威望值 : 12
注冊日期 : 2013-11-20
starsin0423- 一般會員
- 文章總數 : 7
年齡 : 42
來自 : 新北市
職業 : 設計助理
愛好 : 電影,遊戲
個性 : 求知
使用年資 : 初學未上手
使用版本 : 2018
經驗值 : 1661
威望值 : 0
注冊日期 : 2020-07-30
fashow- 一般會員
- 文章總數 : 39
年齡 : 25
來自 : 新竹
職業 : 工程師
愛好 : 閱讀
個性 : 隨興和諧
使用年資 : 4年
使用版本 : 2014
經驗值 : 519
威望值 : 6
注冊日期 : 2024-02-20
DoveW- 一般會員
- 文章總數 : 39
年齡 : 32
來自 : 桃園市
職業 : 公家機關
愛好 : 旅遊、吸收新電腦硬軟體資訊
個性 : 喜歡瞭解新事物
使用年資 : 3年以上
使用版本 : 2019
經驗值 : 838
威望值 : 6
注冊日期 : 2023-04-11
masao_8- 初級會員
- 文章總數 : 72
年齡 : 31
來自 : 台中
職業 : 製圖
愛好 : 動漫
個性 : 內向
使用年資 : 4年
使用版本 : 2012
積分 : 1
經驗值 : 1457
威望值 : 132
注冊日期 : 2022-06-03
DoveW likes this post
回復： 等分聚合線加節點
由 ahorng 2024-06-16, 20:18
建議這一行
(VL-CATCH-ALL-APPLY 'vl-cmdf (list "pedit" en "j" ss "" ""))
改成
(VL-CATCH-ALL-APPLY 'vl-cmdf (list "_.pedit" en "j" ss "" ""))
(VL-CATCH-ALL-APPLY 'vl-cmdf (list "pedit" en "j" ss "" ""))
改成
(VL-CATCH-ALL-APPLY 'vl-cmdf (list "_.pedit" en "j" ss "" ""))
ahorng- 初級會員
- 文章總數 : 37
年齡 : 55
來自 : 台中
職業 : 服務
愛好 : 腳踏車
個性 : 內向
使用年資 : 10
使用版本 : 2010
積分 : 1
經驗值 : 5508
威望值 : 27
注冊日期 : 2010-07-19
DoveW likes this post
回復： 等分聚合線加節點
由 ahorng 2024-06-16, 20:49
DoveW 寫到:今天在使用的時候 跑指令後跟輸入分割間距後 跑出 引數太多 請問有人碰過嗎
你的CAD是那一個版本?
(defun c:pladdpt (/ CMDECHO EN osmode d n ss_en)
(setq cmdecho (getvar 'cmdecho))
(setq osmode (getvar 'osmode))
(setvar 'cmdecho 0)
(setvar 'osmode 0)
(setvar 'PLINETYPE 1) ;加這一行試試
ahorng- 初級會員
- 文章總數 : 37
年齡 : 55
來自 : 台中
職業 : 服務
愛好 : 腳踏車
個性 : 內向
使用年資 : 10
使用版本 : 2010
積分 : 1
經驗值 : 5508
威望值 : 27
注冊日期 : 2010-07-19
DoveW likes this post
回復： 等分聚合線加節點
由 DoveW 2024-06-17, 08:51
masao_8 寫到:如果常遇到的話，請提供圖檔給我們做測試
masao_8大，我開新空白頁面，畫一條聚合線，也沒辦法使用此指令。
DoveW- 一般會員
- 文章總數 : 39
年齡 : 32
來自 : 桃園市
職業 : 公家機關
愛好 : 旅遊、吸收新電腦硬軟體資訊
個性 : 喜歡瞭解新事物
使用年資 : 3年以上
使用版本 : 2019
經驗值 : 838
威望值 : 6
注冊日期 : 2023-04-11
回復： 等分聚合線加節點
由 DoveW 2024-06-17, 08:52
ahorng 寫到:DoveW 寫到:今天在使用的時候 跑指令後跟輸入分割間距後 跑出 引數太多 請問有人碰過嗎
你的CAD是那一個版本?
(defun c:pladdpt (/ CMDECHO EN osmode d n ss_en)
(setq cmdecho (getvar 'cmdecho))
(setq osmode (getvar 'osmode))
(setvar 'cmdecho 0)
(setvar 'osmode 0)
(setvar 'PLINETYPE 1) ;加這一行試試
ahorng大 我是使用2022版本的 也加入大大的指令行，還是無法使用，目前我先用內建功能的等分功能，謝謝
DoveW- 一般會員
- 文章總數 : 39
年齡 : 32
來自 : 桃園市
職業 : 公家機關
愛好 : 旅遊、吸收新電腦硬軟體資訊
個性 : 喜歡瞭解新事物
使用年資 : 3年以上
使用版本 : 2019
經驗值 : 838
威望值 : 6
注冊日期 : 2023-04-11
回復： 等分聚合線加節點
由 andy_wsk 2024-06-21, 23:02
感謝您的分享，不錯喔！
____________________________________________________________________________________
andy_wsk- 一般會員
- 文章總數 : 78
年齡 : 59
來自 : 中國
職業 : 土建
愛好 : 閱讀
個性 : 隨和
使用年資 : 20
使用版本 : 2014
經驗值 : 3954
威望值 : 24
注冊日期 : 2015-03-01
love01146- 初級會員
- 文章總數 : 13
年齡 : 45
來自 : 新北市
職業 : 建築
愛好 : 踏青
個性 : 活潑
使用年資 : 8
使用版本 : 2008
積分 : 1
經驗值 : 4346
威望值 : 6
注冊日期 : 2013-04-21
ELLE- 專屬會員
- 文章總數 : 19
年齡 : 51
來自 : 南投
職業 : 工
愛好 : 看youtube頻道
個性 : 內向
使用年資 : 8
使用版本 : 2021
經驗值 : 455
威望值 : 6
注冊日期 : 2024-01-19
aniki1315- 一般會員
- 文章總數 : 4
年齡 : 44
來自 : 台南市
職業 : 工程設計
愛好 : 唱歌
個性 : 靦腆
使用年資 : 新手初學
使用版本 : 2023
經驗值 : 4073
威望值 : 6
注冊日期 : 2013-12-17
eeeee55eeeee55- 一般會員
- 文章總數 : 2
年齡 : 34
來自 : 高雄
職業 : 設計師
愛好 : 畫圖
個性 : 倔強
使用年資 : 5
使用版本 : 2025
經驗值 : 61
威望值 : 0
注冊日期 : 2024-11-26
kaven0922- 初級會員
- 文章總數 : 39
年齡 : 43
來自 : 台北
職業 : 設計師
愛好 : 畫圖
個性 : 沉穩
使用年資 : 5
使用版本 : 2010
經驗值 : 5517
威望值 : 0
注冊日期 : 2010-06-20
ray63- 一般會員
- 文章總數 : 49
年齡 : 50
來自 : 台南
職業 : 建築
愛好 : 看小說
個性 : 溫和
使用年資 : 20年
使用版本 : AUTOCAD 2016
經驗值 : 1777
威望值 : 0
注冊日期 : 2020-10-23
這個論壇的權限：
您 無法 在這個版面回復文章
*** disclaimer. 免責聲明 ***
“AUTOCAD®, and AUTODESK® are registered trademarks of Autodesk, Inc., its subsidiaries, and/or its affiliates.”
“This website is independent of Autodesk, Inc., and is not affiliated with, authorized, endorsed, sponsored, or otherwise approved of by Autodesk, Inc.”
“AUTOCAD® 和 AUTODESK® 是 Autodesk, Inc. 及其子公司和/或關聯公司的註冊商標。此網站與 Autodesk, Inc. 無關，並且未經 Autodesk, Inc. 授權、認可、贊助或以其他方式批准”
“AutoCAD 顧問論壇為台灣創立之網站，我們以熱忱服務 AutoCAD 用戶，致力於技術討論、知識分享及教學影片（課程）等內容，為 AutoCAD 社群提供支持與貢獻”