[討論]如何自訂[自動接合成聚合線]新功能?
+3
lsj
明~
阿德^_^
7 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[討論]如何自訂[自動接合成聚合線]新功能?
如何自訂[新功能]?
希望:能自動將一般線段接合成聚合線
步驟:(按下這個功能)->執行PEDIT->(選取某條線段)->(如果選取的物件不是一條聚合線....會自動輸入"Y"同意轉成聚合線)->(執行-接合功能:J)->選取其他線段->自動接合成聚合線
PS:如果有網友提供同樣功能的LISP、巨集VBA專案也可以..先謝了~^_^
希望:能自動將一般線段接合成聚合線
步驟:(按下這個功能)->執行PEDIT->(選取某條線段)->(如果選取的物件不是一條聚合線....會自動輸入"Y"同意轉成聚合線)->(執行-接合功能:J)->選取其他線段->自動接合成聚合線
PS:如果有網友提供同樣功能的LISP、巨集VBA專案也可以..先謝了~^_^
Tiger&蘋果爸 在 2010-08-13, 23:35 作了第 1 次修改 (原因 : 此主題為討論類型)
阿德^_^- 該用戶停權中
- 文章總數 : 55
年齡 : 45
來自 : 彰化
職業 : 小小工人
愛好 : 唱歌
個性 : 溫和
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 5561
威望值 : 2
注冊日期 : 2010-02-19
明~- 高級會員
- 文章總數 : 307
年齡 : 44
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 7176
威望值 : 667
注冊日期 : 2009-12-24
回復: [討論]如何自訂[自動接合成聚合線]新功能?
(defun c:qq()
(setvar "peditaccept" 1)
(while (setq ss (ssget))
(vl-cmdf "pedit" "m" ss "" "j" "" "")
)
(setvar "peditaccept" 0)
(prin1)
)
再延伸的應用有:
不同圖層的分開處理
選擇一個線或弧,端點連接的自動形成聚合線
(setvar "peditaccept" 1)
(while (setq ss (ssget))
(vl-cmdf "pedit" "m" ss "" "j" "" "")
)
(setvar "peditaccept" 0)
(prin1)
)
再延伸的應用有:
不同圖層的分開處理
選擇一個線或弧,端點連接的自動形成聚合線
lsj- 初級會員
- 文章總數 : 43
年齡 : 59
來自 : 桃園
職業 : 營建工程
愛好 : 閒
個性 : 懶
使用年資 : 10↑
使用版本 : 2008
積分 : 2
經驗值 : 5487
威望值 : 110
注冊日期 : 2010-06-28
回復: [討論]如何自訂[自動接合成聚合線]新功能?
我也補充二篇以前回答的文章供你參考:
http://tw.knowledge.yahoo.com/question/question?qid=1206092512605
http://tw.knowledge.yahoo.com/question/question?qid=1510042402527
http://tw.knowledge.yahoo.com/question/question?qid=1206092512605
http://tw.knowledge.yahoo.com/question/question?qid=1510042402527
____________________________________________________________________________________
👉[雙11優惠]2024雙11活動 教學產品7折起(免運)(點我)👈
回復: [討論]如何自訂[自動接合成聚合線]新功能?
謝謝分享,這樣設成聚合線很方便^^
luffwinnow- 一般會員
- 文章總數 : 23
年齡 : 34
來自 : 台北
職業 : 繪圖員
愛好 : 騎車
個性 : 開朗
使用年資 : 四個月
使用版本 : auto2011
經驗值 : 4937
威望值 : 6
注冊日期 : 2011-08-22
回復: [討論]如何自訂[自動接合成聚合線]新功能?
這是我常用的,鍵入:J
- 代碼:
(defun c:J(/ s1 ent cs2);----PEDIT---LISP---
(setq s1 (entsel))
(setq cs2 (cdr (assoc 62 (entget (car s1)))))
(IF (= cs2 11)
(setq cs2 40)
(setq cs2 11)
)
(command "change" S1 "" "p" "C" cs2 "")
(setq ent (cdr (assoc 0 (entget (car s1)))))
(prompt "\ Join Auto ")
(if (= ent "LWPOLYLINE")
(command "pedit" s1 "j" "au")
(command "pedit" s1 "y" "j" "au")
)
(prin1)
)
tooth525- 初級會員
- 文章總數 : 43
年齡 : 59
來自 : 彰化
職業 : CNC線切割
愛好 : 看影集,唱唱歌
個性 : 溫合/樂觀/善於分析
使用年資 : 30年
使用版本 : 2004
積分 : 2
經驗值 : 5160
威望值 : 149
注冊日期 : 2011-08-03
Raphael likes this post
回復: [討論]如何自訂[自動接合成聚合線]新功能?
好用的j.lsp 程式
借用一下喔
上班常用到這個
如果可以加上判定
有無接合而顯示不同顏色
更是不錯
謝謝
借用一下喔
上班常用到這個
如果可以加上判定
有無接合而顯示不同顏色
更是不錯
謝謝
chaogh- 一般會員
- 文章總數 : 25
年齡 : 57
來自 : 新北市
職業 : 工程師
愛好 : 電影,游泳
個性 : 中
使用年資 : 2年
使用版本 : AutoCAD 2012
經驗值 : 5795
威望值 : 12
注冊日期 : 2009-03-02
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章