[討論]複線的一些問題請益？(以上傳圖檔)

我是在南亞配電盤廠工作的包商，在盤體上面常有大量繪製匯流排，最快方式是用複線指令來做，但是畫好後，點此物件在性質指令裡看不到長度，必須分解後用PE指令接合才能看到，有沒有好的方式可以解決，又或有方法可以快速將複線轉成聚合線？
請看圖層"bus"部份，我是用複線指令做的，但是我點其中一個物件，看不到長度，必須分解後利用pe指令接合才能看到，希望有更佳的方式。謝謝!!
ps：謝謝前輩們的指教^^

附件下載： https://app.box.com/s/3gckzq3b7rv8rzt1st29

此題是否無解了呢？ 

蔣秉澔 寫到:我是在南亞配電盤廠工作的包商，在盤體上面常有大量繪製匯流排，最快方式是用複線指令來做，但是畫好後，點此物件在性質指令裡看不到長度，必須分解後用PE指令接合才能看到，有沒有好的方式可以解決，又或有方法可以快速將複線轉成聚合線？

首先建議您最好上傳測試用的範例檔案以供大家測試,這樣論壇的朋友才能比較正確的理解您的需求

這邊我就先推測您的操作方式會造成 聚合線 不是完整的一條線段,而是分成很多很多的線段才造成您所說的在誤鍵性值中看不到長度

這邊提供兩種方式

一種是資料萃取 「教學」AutoCAD 2008「資料萃取」精靈 dataextraction指令

一種是用lisp做長度的加總

代碼:

(defun c:QueryPlineSumDistance()
  (vl-load-com)
  (setvar "cmdecho" 0)
  (setq oldlay (getvar "clayer"))
  (setq oldos (getvar "osmode"))
  (setvar "osmode" 0)
  (setq listlen_pline 0 ans 0)
  (while
    (setq listlen_pline (getplineslist))
    (setq ans (add_dist listlen_pline))
    (prin1 ans)
    (setq listlen_pline 0 ans 0)
    )
  (setvar "clayer" oldlay)
  (setvar "osmode" oldos)
  (setvar "cmdecho" 1)
  (prin1)
  )
;;;連續點選點,並紀錄為座標串列
(defun getplineslist()
  (setq #j 0 #listlen_pline nil #pl_list nil)
  (while
    (setq #pl_list (entsel (strcat "\n請點選第" (itoa (1+ #j)) "條聚合線:")))
    (if (/= #pl_list nil)
      (progn
 (setq #listlen_pline (cons (vla-get-length (vlax-ename->vla-object (car #pl_list))) #listlen_pline))
 (setq #j (1+ #j))
 )
      )
    (setq #pl_list nil)
    )
  (reverse #listlen_pline)
  )
;;;將座標串列依序取出計算距離並加總
(defun add_dist(#listlen_pline)
  (setq #k 0 #dist_sum 0)
  (repeat (length #listlen_pline)
    (setq #dist_a (nth #k #listlen_pline))
    (setq #dist_sum (+ #dist_a #dist_sum))
    (setq #k (1+ #k))
    )
  (eval #dist_sum)
  )

蔣秉澔 寫到:此題是否無解了呢？

周末大家大多安心放假去了,所以論壇上會比較少人上來查看囉

是的！
建議可以PO圖片說明或上傳局部DWG圖檔供測試～ 

PS:放假的在家陪小蘋果玩...
 

我發現了, sorry ............. ( 我寫好一個 VBA 程式可能可以解決這個問題, 請問要怎麼上傳如版主的"附件", 以供下載 ?? 不然我會把程式碼貼在進階討論區的 VBA 拉泡泡學習 001 裏面, thanks )














▼程式下載：請點我
備用載點： https://app.box.com/s/eo72tfhhjpdk406qu7w1

---

Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

來測試看看，先謝謝shackle_2005。

哇賽!!滿不錯用的，如果能做成指令鍵更方便。不過…一次只能點一個物件，對於大量，可能也滿費時的(一個大案件，都有上千支匯流排)，還是給shackle_2005一個大大的讚！

再次修正, 將總長度文字移往複線所在的圖層!!.......... ( 另外因為執行一次需要製造一個圖塊, 再殺掉變成空圖塊, 所以如果覺得圖檔變大, 可以 purge 清除不存在的圖塊, thank .......................................... ( OK, 連續的好了........... ( 我先再改成可以連續點選, 也可以再進一步做全自動一次搞定, 先做連續, 等一下 ) ) )

▼程式下載：請點我
備用載點： https://app.box.com/s/orvjevi7hlfjar4y0ye9

忙到現在才有機會看，哦＠＠，這麼好康，謝謝shackle_2005

這也是我第一次這樣處理複線, 也學到很多, 謝謝!! ................ ( 不客氣, 希望有所助益, : ) )

leoneriol，你的長度加總LSP也很好用，讚!!

shackle_2005哥，可以再幫我做調整一下嗎？計算的長度要除以2，謝謝你哦。(我也好想學LSP，跟這個巨集)

剛順便又改一個新的, 就是不要一個一個選, 改成一次窗選所有複線, 然後一次加總, 如果有用就下載試看看吧!! mline_window.zip : ) .................... ( 總長度除以 2 , 然後四捨五入. 修正 OK. 有需要再修改什麼不用客氣. ......... (
我在進階討論區那邊有我的 VBA 教學 --------->>> [教學]VBA 基本程式 拉泡泡 001, 裏面也有這支程式的原始碼也都貼在那邊, 可以參考一下 ) )

▼程式下載：
mline_pline_20130904.zip

▼程式下載：
mline_window.zip

實在太感謝你了，省下的時間，又可多接些案子。改天有空上去台中，在好好的請你。
剛剛使用20130904這個可以四捨五入到整數嗎？這個可以單支單支打長度，WINDOW可以算總長，都很需要。

不用客氣, 這個程式你提供測試圖檔後, 我只花 10 分鐘就寫好了, 在我寫過的程式裏面算很小的程式 : ) . 不好意思 20130904 沒有整數是我測試用, 完成後忘了改掉, sorry. 現在改好了 20130905, 需要再修正請告訴我一下, 有其它問題也可以再討論, 祝生意興隆!! : )

▼程式下載：
mline_pline_20130905.zip
備用下載：
https://app.box.com/s/4avcz8t0evje99ebsenuvz7er5ijgytq

你的10分鐘，對不會的來說，可是要花上100倍或更多的時間。正所謂台上10分鐘，台下10年功。
老實說，目前這個程式可以讓我快速下料，後面還有製作段，比方：沖孔、折彎等等，一支匯流排要加工前的圖面設計，將來還是會麻煩你。

剛剛抽了點空，找出之前劃的銅排加工圖檔，裡面的標註都是慢慢的劃上去，有線性，對齊式，座標式等等。
在上百上千支的數量時，做到晚上睡覺還會夢到，可有方法來簡化如此繁重的工作嗎？

測試檔： https://app.box.com/s/qn71taojbogvxy4iz2cy

這個問題就有點不簡單, 所以我先把我手上的工作完成 , 再回頭來討論這個!! Thanks

可以考慮先用資料萃取的功能看看

請教一下 leoneriol 資料萃取怎麼使用 ?? 再請問一下蔣秉澔, 你複線的後視圖及俯視圖是怎麼產生的 ?? Thanks

後視、俯視、展開圖都是一筆一線畫上去的，呵呵!!

辛苦了 (福氣啦!!). 左邊展開圖上下打圓孔的大小及位置尺寸是固定, 每一塊都一樣嗎 ?? 還是要有選擇或是有公式 ??

會有不一樣的情況，如果是同一組的匯流排，沖孔的地方是一樣的，只是總長會不一樣，這樣做好的成品一整個組起來，螺栓才能穿過(不知我說的老大你聽懂嗎？)
現在正在用你的程式算銅排量，本來一套要算1小時，現在10分鐘就好了(加上KEYIN的時間)，後面還有20套(每套都不一樣)，看來我可以早點下班了。

如圖

測試檔下載： https://app.box.com/s/4hhkvx7xlg44wqzp40i6

shackle哥，這個測試檔你是要我看是不是符合需求嗎？