看下這個是不是開了掛搞的圖號名稱分離？

jiajiang951 · 發表于 2018-9-11 19:23:27

零件故意用圖號加雙引號名稱出圖的時候名字變成了只有圖號而且標題欄也是只顯示圖號~

怎么弄的？？還有左側他這種子集樹狀列表具體怎么操作？好處是方便圖紙整理規范。

曉昀 · 發表于 2018-9-11 20:16:19

本帖最后由曉昀于 2018-9-11 20:17 編輯

看看這個零件的屬性自定義里名稱和圖號那里的信息是什么？工程圖紙中的信息是來自于零件屬性里的信息。軟件就是個聰明的大傻瓜，你讓它做什么，它就做什么。也只做到那個地步。

magicnie · 發表于 2018-9-11 22:49:01

只是個普通的宏命令而已，不要大驚小怪，對于這種的同學我都是贊一個，工作有方法

一毛 · 發表于 2018-9-11 23:00:27

經常大批量且有規范的時候，可以這么做，一勞永逸，正常是簡單做個模板。難得出圖的情況下，怎么玩都無所謂了

金卯刀-劉 · 發表于 2018-9-12 10:05:44

這個雙引號顯示的是“配置說明”，并非是前面幾個大俠說的圖號分離。從SW原則來說，零件名跟工程圖文件名肯定是同樣的。細看樓主的的截圖就知道前面幾位高手沒說到點上。
關于圖號分離問題，是很贊同樓上幾位的。下面是圖號分離宏（分離到自定義,備注：中間間隔符是空格號。可以根據自己需求改動）
'定義solidwork
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim a As Integer
Dim b As String
Dim m As String
Dim e As String
Dim k As String
Dim t As String
Dim c As String
Dim j As Integer
Dim strmat As String
Dim tempvalue As String
Sub main()
'link solidworks
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
'設定變量
c = swApp.ActiveDoc.GetTitle() '零件名
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代號")
blnretval = Part.DeleteCustomInfo2("", "名稱")
blnretval = Part.DeleteCustomInfo2("", "材料")
a = InStr(c, " ") - 1    '重點：分隔標識符，這里是一個空格
If a > 0 Then
k = Left(c, a)
t = Left(LTrim(e), 3)
If t = "GBT" Then
      e = "GB/T" + Mid(k, 4)
Else
      e = k
End If
b = Mid(c, a + 2)
t = Right(c, 7)
If t = ".SLDPRT" Or t = ".SLDASM" Then
      j = Len(b) - 7
Else
      j = Len(b)
End If
m = Left(b, j)
End If
blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
blnretval = Part.AddCustomInfo3("", "作者", swCustomInfoText, " 劉騰qq420221716")
End Sub

金卯刀-劉 · 發表于 2018-9-12 10:08:56

下面是分離到配置(備注：間隔符同樣是空格號，并可以根據自己需求編輯)

'定義sw

Dim a As Integer

Dim b As String

Dim m As String

Dim e As String

Dim k As String

Dim t As String

Dim c As String

Dim j As Integer

Dim strmat As String

Dim tempvalue As String

Dim Part As Object

Dim swApp As SldWorks.SldWorks

Dim swModelDoc As SldWorks.ModelDoc2

Dim swConfig As SldWorks.Configuration

Dim CustPropMgr As SldWorks.CustomPropertyManager

Dim swModel As SldWorks.ModelDoc2

Sub main()

Set swApp = Application.SldWorks

Set swModelDoc = swApp.ActiveDoc

Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration

Set swModel = swApp.ActiveDoc

Set CustPropMgr = swModel.Extension.CustomPropertyManager

(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸

'設定變量

c = swApp.ActiveDoc.GetTitle() '零件名

strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)

a = InStr(c, " ") - 1 '重點：分隔標識符，這里是一個空格，也可換成其他符號

If a > 0 Then

k = Left(c, a)

t = Left(LTrim(e), 3)

If t = "GBT" Then

e = "GB/T" + Mid(k, 4)

Else

e = k

End If

b = Mid(c, a + 2)

t = Right(c, 7)

If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then

j = Len(b) - 7 '消除后綴（區分大小寫，即含4種）

Else

j = Len(b)

End If

m = Left(b, j)

End If

'刪除欄

CustPropMgr.Delete ("Number")

CustPropMgr.Delete ("作者")

CustPropMgr.Delete ("圖樣名稱")

'新增

CustPropMgr.Add2 "Number", swCustomInfoText, e

CustPropMgr.Add2 "作者", swCustomInfoText, "劉騰qq420221716"

CustPropMgr.Add2 "圖樣名稱", swCustomInfoText, m

End Sub

金卯刀-劉 · 發表于 2018-9-12 10:11:53

金卯刀-劉發表于 2018-9-12 10:08) W( G8 M; X1 `" ^
下面是分離到配置(備注：間隔符同樣是空格號，并可以根據自己需求編輯)
# u& M8 ^ p4 C2 C- |: ]1 @" J9 X; _
'定義sw

當然這里截圖顯示是上面代碼經過編譯后的效果。

jiajiang951 · 發表于 2018-9-12 18:35:36

金卯刀-劉發表于 2018-9-12 10:05% V W8 E+ _" l' i7 p! ?9 h
這個雙引號顯示的是“配置說明”，并非是前面幾個大俠說的圖號分離。從SW原則來說，零件名跟工程圖文件名肯 ...

他這個雙引號沒有顯示在配置說明的括號里啊？直接在代號后面的

zero8337 · 發表于 2018-10-6 10:29:37

學習了，謝謝！

喂我袋鹽 · 發表于 2018-10-6 11:05:22

進來學習！

		自動登錄	找回密碼
密碼			注冊會員

看下這個是不是開了掛搞的圖號名稱分離？

本帖子中包含更多資源

本帖子中包含更多資源

評分

本帖子中包含更多資源

評分

看下這個是不是開了掛 搞的 圖號 名稱分離？

本帖子中包含更多資源

本帖子中包含更多資源

評分

本帖子中包含更多資源

評分

看下這個是不是開了掛搞的圖號名稱分離？