AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

[討論]如何自訂[自動接合成聚合線]新功能?

上一篇主題 下一篇主題 向下

[討論]如何自訂[自動接合成聚合線]新功能?

發表 由 阿德^_^ 于 2010-08-13, 16:12

如何自訂[新功能]?

希望:能自動將一般線段接合成聚合線
步驟:(按下這個功能)->執行PEDIT->(選取某條線段)->(如果選取的物件不是一條聚合線....會自動輸入"Y"同意轉成聚合線)->(執行-接合功能:J)->選取其他線段->自動接合成聚合線

PS:如果有網友提供同樣功能的LISP、巨集VBA專案也可以..先謝了~^_^


Tiger&蘋果爸 在 2010-08-13, 16:35 作了第 1 次修改 (原因 : 此主題為討論類型)
avatar
阿德^_^
該用戶停權中
該用戶停權中

文章總數 : 55
年齡 : 39
來自 : 彰化
職業 : 小小工人
愛好 : 唱歌
個性 : 溫和
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 3048
威望值 : 2
注冊日期 : 2010-02-19
男 射手座 馬

回頂端 向下

回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 明~ 于 2010-08-14, 04:15

記得好像有,就找了一下~
檔案載點:
http://www.eoenet.com/manage/0100488447213.aspx

指令名稱:QQ
avatar
明~
高級會員
高級會員

文章總數 : 307
年齡 : 37
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 4666
威望值 : 670
注冊日期 : 2009-12-24
藍鵲292號
男 雙魚座 猴

回頂端 向下

回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 lsj 于 2010-08-14, 11:30

(defun c:qq()
(setvar "peditaccept" 1)
(while (setq ss (ssget))
(vl-cmdf "pedit" "m" ss "" "j" "" "")
)
(setvar "peditaccept" 0)
(prin1)
)
再延伸的應用有:
不同圖層的分開處理
選擇一個線或弧,端點連接的自動形成聚合線
avatar
lsj
初級會員
初級會員

文章總數 : 43
年齡 : 52
來自 : 桃園
職業 : 營建工程
愛好 :
個性 :
使用年資 : 10↑
使用版本 : 2008
積分 : 2
經驗值 : 2968
威望值 : 104
注冊日期 : 2010-06-28
男 水瓶座 龍

回頂端 向下

回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 Tiger&蘋果爸 于 2010-08-14, 13:12


____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17328
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65336
威望值 : 12868
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 luffwinnow 于 2011-12-26, 03:01

謝謝分享,這樣設成聚合線很方便^^
avatar
luffwinnow
一般會員
一般會員

文章總數 : 22
年齡 : 27
來自 : 台北
職業 : 繪圖員
愛好 : 騎車
個性 : 開朗
使用年資 : 四個月
使用版本 : auto2011
經驗值 : 2419
威望值 : 6
注冊日期 : 2011-08-22
藍鵲192號
女 白羊座 馬

回頂端 向下

回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 tooth525 于 2012-03-09, 01:37

這是我常用的,鍵入: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)
)
avatar
tooth525
初級會員
初級會員

文章總數 : 43
年齡 : 52
來自 : 彰化
職業 : CNC線切割
愛好 : 看影集,唱唱歌
個性 : 溫合/樂觀/善於分析
使用年資 : 20年
使用版本 : 2004
積分 : 2
經驗值 : 2642
威望值 : 144
注冊日期 : 2011-08-03
經典問與答讀者 男 白羊座 蛇

回頂端 向下

回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 chaogh 于 2013-08-09, 08:23

好用的j.lsp 程式
借用一下喔
上班常用到這個
如果可以加上判定
有無接合而顯示不同顏色
更是不錯
謝謝
avatar
chaogh
一般會員
一般會員

文章總數 : 23
年齡 : 50
來自 : 新北市
職業 : 工程師
愛好 : 電影,游泳
個性 :
使用年資 : 2年
使用版本 : AutoCAD 2012
經驗值 : 3272
威望值 : 12
注冊日期 : 2009-03-02
男 摩羯座 馬

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章