[問題]標籤貼紙製作(已解答)

各位大大 大家好:
小弟我有個問題
我們公司需要在產品上貼上標籤貼紙
因為產品是用於戶外。用的是抗UV防水的材質，所以沒法自己用打印機打印

貼紙的內容有品名、編號、用途
過去是先在EXCEL列出清單
然後在一個個複製貼上到CAD中
所以就變成一直重複下面的動作
點EXCEL>從EXCEL複製內容>點CAD的文字>貼上複製的內容>

目前能想到的辦法是做成屬性增強圖塊
這樣可以在屬性欄修改文字內容，會比雙擊文字快一點，但也僅僅是快一點點
不知道有沒有更好的方法
不然每次都是幾十張，每張3個內容就是重複上百次同樣的動作，浪費時間不說還好容易出錯

可以試著把 EXCEL 資料直接匯入 CAD中使用

droaaa方法很讚，通常EXCEL表我也會做連結
一般情況我還會直接從EXCEL複製，然後貼上成為AutoCAD圖元，就是轉成AutoCAD表格

droaaa 寫到:可以試著把 EXCEL 資料直接匯入 CAD中使用

感謝droaaa大大的回覆
這是個很好的方法，不過因為我的情況，做出來的貼紙有格式要求
3個項目不是水平排列，字體大小也會不同，且會有配合符號(例如LOGO)的需求
所以沒辦法以表格的型式製作

原諒我不會貼圖片

歡迎上傳 sample, 來源及結果的檔案, 我幫你做個試用版小程式.

shackle_2005 寫到:歡迎上傳 sample, 來源及結果的檔案, 我幫你做個試用版小程式. 如果需要客製化軟體, 找我就對了, 我的 LINE :

抱歉!!建議在這裡公開討論，不要私下用line服務

不好意思, 我的意思是在這裏討論, 如果有需要進一步服務再找我啦, 拍謝喔, 謝謝 !!

MOXCHO 寫到:
3個項目不是水平排列，字體大小也會不同，且會有配合符號(例如LOGO)的需求

表格要水平或垂直都可以自己選用
另外表格也可以設定每一格都是不同的字高或字型
更也可以插入 LOGO圖片(先製作成圖塊即可)

MOXCHO 寫到:感謝droaaa大大的回覆
這是個很好的方法，不過因為我的情況，做出來的貼紙有格式要求
3個項目不是水平排列，字體大小也會不同，且會有配合符號(例如LOGO)的需求
所以沒辦法以表格的型式製作
原諒我不會貼圖片

貼圖片很簡單你可以參考論壇教學
「教學」論壇發表主題貼圖使用方法

貼圖後我們比較能了解你的需求~

感謝各位大大，我想我找到我希望的答案了
droaaa大大的影片雖然沒有直接給我答案，但給了我重要的啟發

我原本的方案是
將excel貼入CAD後，將文字改成我需要的格式，再將表格炸開，將文子移動到做好的標籤樣式中排列
這樣省下文字貼上複製的動作，但搬移也要花很多時間

受到droaaa大大的啟發是，影片中調整了表格尺寸<<這是我的盲區
所以動作變成我將做好的標籤樣式做陣列
把表格間距調整成跟我的標籤間距一樣，然後再炸開
這樣因為所有文字的間距與標籤的間距都是一樣的，所以可以一起搬移

如此一來，不管有多少張標籤要做，
僅需要
1.貼入Excel
2.調整文字樣式
3.調整表格尺寸後炸開
4.將3欄分別搬移到指定位置
就能完成了
將上百次重複動作節省成4個步驟，已是大幅提高效率
再次感謝各位提供的寶貴建議

https://www.autocad-tw.com/t19837-topic

從 Excel 轉進來資料, 再調整大小位置應該不會很困難才對, 參考一下.

'若excel未開，則開啟
Set objexcel = GetObject(, "Excel.Application")
If Err.Number > 0 Then
Set objexcel = CreateObject("Excel.Application")
Err.Clear
End If
Set wrkb = objexcel.ActiveWorkbook
Set wrks = objexcel.ActiveSheet
Set rng = objexcel.Selection

'插入表格圖塊
Set ssAll = ThisDrawing.SelectionSets.Add("xAllEntities")
If Err.Number <> 0 Then
Set ssAll = ThisDrawing.SelectionSets.item("xAllEntities")
ssAll.Clear
End If