教學課程
加入贊助
聯絡我們
等分聚合線加節點
+9
ahorng
fashow
starsin0423
jennifey64
DoveW
ajia
Tiger&蘋果爸
masao_8
jkop
13 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
等分聚合線加節點
由 jkop 2024-05-03, 08:33
這是網路上偶然找到的LSP，主要作用是載入後執行pladdpt，點選聚合線，能夠依據輸入的等分間距，生成聚合線節點。
順帶求救前輩協助，幫忙把單選修改成框選
。
順帶求救前輩協助，幫忙把單選修改成框選
。- 附件
- 等分聚合線加節點.zip 您無權下載這里的附件。(1 Kb) 下載 19 次
____________________________________________________________________________________
jkop- 一般會員
- 文章總數 : 78
年齡 : 43
來自 : 基隆
職業 : 儀電設計
愛好 : 網遊、下載
個性 : 簡單、輕鬆、安靜
使用年資 : 5年
使用版本 : 2018
經驗值 : 2993
威望值 : 12
注冊日期 : 2017-09-13
starsin0423 and ajo14567 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
經驗值 : 1396
威望值 : 126
注冊日期 : 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&蘋果爸- 系統管理員
- 文章總數 : 21382
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90360
威望值 : 17197
注冊日期 : 2008-04-23
-
jkop, yochilde, starsin0423, masao_8, hkhkl1981@gmail.com and ajo14567 like this post
ajia- 一般會員
- 文章總數 : 23
年齡 : 41
來自 : 苗栗
職業 : 水利
愛好 : 運動
個性 : 平凡
使用年資 : 3
使用版本 : 2013
經驗值 : 4539
威望值 : 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
經驗值 : 2993
威望值 : 12
注冊日期 : 2017-09-13
回復： 等分聚合線加節點
由 Tiger&蘋果爸 2024-05-06, 09:22
將單選變成匡選不是我寫的，是 masao_8 熱心協助喔jkop 寫到:感謝蘋果爸的協助，將單選變成匡選，解決我很大的困擾，畢竟lisp是網路上找的，但我是Lisp小白.....。
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21382
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90360
威望值 : 17197
注冊日期 : 2008-04-23
-
DoveW- 一般會員
- 文章總數 : 38
年齡 : 31
來自 : 桃園市
職業 : 公家機關
愛好 : 旅遊、吸收新電腦硬軟體資訊
個性 : 喜歡瞭解新事物
使用年資 : 3年以上
使用版本 : 2019
經驗值 : 780
威望值 : 6
注冊日期 : 2023-04-11
jennifey64- 一般會員
- 文章總數 : 23
年齡 : 34
來自 : 新竹
職業 : 助理
愛好 : 軟體學習
個性 : 活潑
使用年資 : 新手初學
使用版本 : 2011
經驗值 : 4134
威望值 : 12
注冊日期 : 2013-11-20
starsin0423- 一般會員
- 文章總數 : 7
年齡 : 42
來自 : 新北市
職業 : 設計助理
愛好 : 電影,遊戲
個性 : 求知
使用年資 : 初學未上手
使用版本 : 2018
經驗值 : 1606
威望值 : 0
注冊日期 : 2020-07-30
fashow- 一般會員
- 文章總數 : 27
年齡 : 25
來自 : 新竹
職業 : 工程師
愛好 : 閱讀
個性 : 隨興和諧
使用年資 : 4年
使用版本 : 2014
經驗值 : 404
威望值 : 6
注冊日期 : 2024-02-20
DoveW- 一般會員
- 文章總數 : 38
年齡 : 31
來自 : 桃園市
職業 : 公家機關
愛好 : 旅遊、吸收新電腦硬軟體資訊
個性 : 喜歡瞭解新事物
使用年資 : 3年以上
使用版本 : 2019
經驗值 : 780
威望值 : 6
注冊日期 : 2023-04-11
masao_8- 初級會員
- 文章總數 : 72
年齡 : 31
來自 : 台中
職業 : 製圖
愛好 : 動漫
個性 : 內向
使用年資 : 4年
使用版本 : 2012
積分 : 1
經驗值 : 1396
威望值 : 126
注冊日期 : 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
年齡 : 54
來自 : 台中
職業 : 服務
愛好 : 腳踏車
個性 : 內向
使用年資 : 10
使用版本 : 2010
積分 : 1
經驗值 : 5453
威望值 : 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
年齡 : 54
來自 : 台中
職業 : 服務
愛好 : 腳踏車
個性 : 內向
使用年資 : 10
使用版本 : 2010
積分 : 1
經驗值 : 5453
威望值 : 27
注冊日期 : 2010-07-19
DoveW likes this post
回復： 等分聚合線加節點
由 DoveW 2024-06-17, 08:51
masao_8 寫到:如果常遇到的話，請提供圖檔給我們做測試
masao_8大，我開新空白頁面，畫一條聚合線，也沒辦法使用此指令。
DoveW- 一般會員
- 文章總數 : 38
年齡 : 31
來自 : 桃園市
職業 : 公家機關
愛好 : 旅遊、吸收新電腦硬軟體資訊
個性 : 喜歡瞭解新事物
使用年資 : 3年以上
使用版本 : 2019
經驗值 : 780
威望值 : 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- 一般會員
- 文章總數 : 38
年齡 : 31
來自 : 桃園市
職業 : 公家機關
愛好 : 旅遊、吸收新電腦硬軟體資訊
個性 : 喜歡瞭解新事物
使用年資 : 3年以上
使用版本 : 2019
經驗值 : 780
威望值 : 6
注冊日期 : 2023-04-11
回復： 等分聚合線加節點
由 andy_wsk 2024-06-21, 23:02
感謝您的分享，不錯喔！
____________________________________________________________________________________
andy_wsk- 一般會員
- 文章總數 : 78
年齡 : 59
來自 : 中國
職業 : 土建
愛好 : 閱讀
個性 : 隨和
使用年資 : 20
使用版本 : 2014
經驗值 : 3899
威望值 : 24
注冊日期 : 2015-03-01
love01146- 初級會員
- 文章總數 : 12
年齡 : 45
來自 : 新北市
職業 : 建築
愛好 : 踏青
個性 : 活潑
使用年資 : 8
使用版本 : 2008
積分 : 1
經驗值 : 4288
威望值 : 6
注冊日期 : 2013-04-21
ELLE- 專屬會員
- 文章總數 : 18
年齡 : 51
來自 : 南投
職業 : 工
愛好 : 看youtube頻道
個性 : 內向
使用年資 : 8
使用版本 : 2021
經驗值 : 395
威望值 : 6
注冊日期 : 2024-01-19
aniki1315- 一般會員
- 文章總數 : 4
年齡 : 44
來自 : 台南市
職業 : 工程設計
愛好 : 唱歌
個性 : 靦腆
使用年資 : 新手初學
使用版本 : 2023
經驗值 : 4018
威望值 : 6
注冊日期 : 2013-12-17
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章