看下這個(gè)是不是開了掛搞的圖號(hào) 名稱分離,？

jiajiang951 · 發(fā)表于 2018-9-11 19:23:27

零件故意用圖號(hào) 加雙引號(hào) 名稱出圖的時(shí)候名字變成了只有圖號(hào) 而且標(biāo)題欄也是只顯示圖號(hào)~

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

曉昀 · 發(fā)表于 2018-9-11 20:16:19

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

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

magicnie · 發(fā)表于 2018-9-11 22:49:01

只是個(gè)普通的宏命令而已,，不要大驚小怪，對(duì)于這種的同學(xué)我都是贊一個(gè),，工作有方法

一毛 · 發(fā)表于 2018-9-11 23:00:27

經(jīng)常大批量且有規(guī)范的時(shí)候,，可以這么做，一勞永逸,，正常是簡(jiǎn)單做個(gè)模板,。難得出圖的情況下，怎么玩都無(wú)所謂了

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

這個(gè)雙引號(hào)顯示的是“配置說(shuō)明”,，并非是前面幾個(gè)大俠說(shuō)的圖號(hào)分離,。從SW原則來(lái)說(shuō)，零件名跟工程圖文件名肯定是同樣的,。細(xì)看樓主的的截圖就知道前面幾位高手沒(méi)說(shuō)到點(diǎn)上,。
關(guān)于圖號(hào)分離問(wèn)題，是很贊同樓上幾位的,。下面是圖號(hào)分離宏（分離到自定義,備注：中間間隔符是空格號(hào),。可以根據(jù)自己需求改動(dòng)）
'定義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
'設(shè)定變量
c = swApp.ActiveDoc.GetTitle() '零件名
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代號(hào)")
blnretval = Part.DeleteCustomInfo2("", "名稱")
blnretval = Part.DeleteCustomInfo2("", "材料")
a = InStr(c, " ") - 1    '重點(diǎn)：分隔標(biāo)識(shí)符,，這里是一個(gè)空格
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("", "代號(hào)", swCustomInfoText, e)  '代號(hào)
blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
blnretval = Part.AddCustomInfo3("", "作者", swCustomInfoText, " 劉騰qq420221716")
End Sub

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

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

'定義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) '配置特定延伸

'設(shè)定變量

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

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

a = InStr(c, " ") - 1 '重點(diǎn)：分隔標(biāo)識(shí)符，這里是一個(gè)空格,，也可換成其他符號(hào)

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 '消除后綴（區(qū)分大小寫,，即含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

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

金卯刀-劉發(fā)表于 2018-9-12 10:08
9 Z) u6 a" _; y- {0 x7 m6 U下面是分離到配置(備注：間隔符同樣是空格號(hào)，并可以根據(jù)自己需求編輯); o. y. X8 `) Q1 f/ _9 u. [
# l1 l/ X/ G0 Z
'定義sw

當(dāng)然這里截圖顯示是上面代碼經(jīng)過(guò)編譯后的效果,。

jiajiang951 · 發(fā)表于 2018-9-12 18:35:36

金卯刀-劉發(fā)表于 2018-9-12 10:05 m8 f! t) ?, A: a" F( v! L# z
這個(gè)雙引號(hào)顯示的是“配置說(shuō)明”,，并非是前面幾個(gè)大俠說(shuō)的圖號(hào)分離,。從SW原則來(lái)說(shuō)，零件名跟工程圖文件名肯 ...

他這個(gè) 雙引號(hào) 沒(méi)有顯示在配置說(shuō)明的括號(hào)里啊 ,？直接在代號(hào)后面的

zero8337 · 發(fā)表于 2018-10-6 10:29:37

學(xué)習(xí)了,，謝謝！

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

進(jìn)來(lái)學(xué)習(xí),！

		自動(dòng)登錄	找回密碼
密碼			注冊(cè)會(huì)員

看下這個(gè)是不是開了掛搞的圖號(hào) 名稱分離,？

本帖子中包含更多資源

本帖子中包含更多資源

評(píng)分

本帖子中包含更多資源

評(píng)分

看下這個(gè)是不是開了掛 搞的 圖號(hào) 名稱分離,？

本帖子中包含更多資源

本帖子中包含更多資源

評(píng)分

本帖子中包含更多資源

評(píng)分

看下這個(gè)是不是開了掛搞的圖號(hào) 名稱分離,？