[已解決]請問是否有"框選就能連接所有斷掉線段"的LISP

各位先進大家好~小弟是一位水電繪圖工程師，公司常會要我們抓工程預算，所幸來到貴論壇後學到及收獲到不少CAD的專業技巧，之前在貴站有下載到一個自動計算線段總長的LISP，對於計算管線的我們還真的是受益良多，但我們所畫的水電圖，在管線重疊的地方常會用"斷線"來加以修飾，以利工地的施工人員便於識圖，小弟想請教各為先進，CAD是否有用框選的方式就自動連接斷掉的線段LISP呢?因為我們如果把管線重疊的地方斷線後~計算出來的總長度還是會有些許誤差，CAD內建的『接合』指令(快捷鍵J)，並無法用框選的方式進行連接，必須一條線一條線選取，這樣也浪費了不少時間，煩請賜教，謝謝~

AutoCAD無此功能，只有接近的作法，但是仍比不上LISP的快速~
2012版本的接合可以不用一條一條選，可以使用窗選，注意線的X或Y座標需要在同一延伸軸上。
或許可以加上係數，就是得到總長再乘個倍數。

PS:提醒您不宜直接要求程式，通常是秀出局部程式來討論的方式。

Tiger&蘋果爸 寫到:AutoCAD無此功能，只有接近的作法，但是仍比不上LISP的快速~
2012版本的接合可以不用一條一條選，可以使用窗選，注意線的X或Y座標需要在同一延伸軸上。
或許可以加上係數，就是得到總長再乘個倍數。

PS:提醒您不宜直接要求程式，通常是秀出局部程式來討論的方式。

回蘋果爸~2012小弟試了接合指令之後，如果是單獨的兩條線是可以直接框選接合沒錯，但如果是同樣的兩組(如下圖)，就不能框選接合了，系統會顯示"已接合 0 個物件，作業捨棄了 4 個物件"



以下是自動計算線段總長的LISP，感謝蘋果爸的提醒及建言

代碼:

(defun C:LONG (/ CURVE TLEN SS N SUMLEN)
(vl-load-com)
(setq SUMLEN 0)
(setq
SS (ssget
'((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))
)
)
(setq N 0)
(repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(if(/= (vla-get-objectname CURVE) "AcDbRegion")
(setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
)
)
(setq TLEN (vla-get-perimeter CURVE))
)
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
)

(print (strcat "總長度: " (rtos SUMLEN 2 5)))
(princ)
)

Tiger&蘋果爸 寫到:PS:提醒您不宜直接要求程式，通常是秀出局部程式來討論的方式。

這句話感觸很深~或許這就是職場吧....
老闆 : 你在公司寫的程式就屬公司的
我想反問 (空閒時我寫程式.其他人在上網看小說.購物等等.....我的程式要充公,那其他人看小說的是不是要寫份心得報告.網購的東西要充公呢 ??? )

阿希 寫到:

Tiger&蘋果爸 寫到:PS:提醒您不宜直接要求程式，通常是秀出局部程式來討論的方式。

這句話感觸很深~或許這就是職場吧....
老闆 : 你在公司寫的程式就屬公司的
我想反問 (空閒時我寫程式.其他人在上網看小說.購物等等.....我的程式要充公,那其他人看小說的是不是要寫份心得報告.網購的東西要充公呢 ??? )

這狀況我也遇過...
可能是老闆的佔有慾很強吧~

不用求程式,EXPRESS的OVERKILL可以達到要求
注意Numeric fuzz的設定及其他選項的控制

lsj 寫到:不用求程式,EXPRESS的OVERKILL可以達到要求
注意Numeric fuzz的設定及其他選項的控制

這部份有試過~
可從精確度來調整合併
但是精確度過大時會連旁邊的線段一起刪除~

阿希 寫到:

Tiger&蘋果爸 寫到:PS:提醒您不宜直接要求程式，通常是秀出局部程式來討論的方式。

這句話感觸很深~或許這就是職場吧....
老闆 : 你在公司寫的程式就屬公司的
我想反問 (空閒時我寫程式.其他人在上網看小說.購物等等.....我的程式要充公,那其他人看小說的是不是要寫份心得報告.網購的東西要充公呢 ??? )

你如果不是專職程式設計師.或有跟老闆簽合約.宣告你在公司寫的程式是公司財產...那老闆說的話.聽聽就好...程式絕對是你的..!!

to iccs
不用接合的改用延伸方式應該也可以吧
反正計算也是要選線段
提供您試用

代碼:


;快速延伸同一邊界線段
(defun c:qexl()
  (setq po1(getpoint "\n點選邊界起始點:"))
  (setq po2(getpoint po1 "\n點選邊界結束點:"))
  (command "line" po1 po2 "");繪延伸邊界線
  (setq cw1(ssget "c" (getpoint) (getpoint)));框選延伸範圍
  (command "extend" "l" "" "c" cw1 "");延伸框選線段
  (command "erase" "l" "");刪除邊界線
)


感謝各路高手的指教與分享~問題已解決

iccs 寫到:感謝各路高手的指教與分享~問題已解決

很高興你的問題已獲得處理~
請問題是使用何種方式解決!

解決方法是pizg大大告知小弟的「芭蕉葉上聽雨聲」的部落格
網址如下 也分享給需要的朋友
http://tw.myblog.yahoo.com/rain-fall/article?mid=3333

另外在此感謝pizg大大與芭蕉葉上聽雨聲大大的分享以及蘋果爸所提供的討論平台和tarpon大大所提供的方法 感謝~

iccs 寫到:解決方法是pizg大大告知小弟的「芭蕉葉上聽雨聲」的部落格
網址如下 也分享給需要的朋友
http://tw.myblog.yahoo.com/rain-fall/article?mid=3333

另外在此感謝pizg大大與芭蕉葉上聽雨聲大大的分享以及蘋果爸所提供的討論平台和tarpon大大所提供的方法 感謝~

謝謝您的熱心回報!
PS:建議您的貼圖空間不要刪掉，不然你的主題就看不到圖片，請撥空補上方便其他朋友日後觀看~

陳老師的連接程式太好用了感謝呢

這一個計算長度的程式，稍經修改就能符合小弟之所須謝謝分享