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

[復制鏈接]

jiajiang951

電梯直達

1^#

發表于 2018-9-11 19:23:27 | 只看該作者 |倒序瀏覽 |閱讀模式

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

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

本帖子中包含更多資源

您需要登錄才可以下載或查看，沒有賬號？注冊會員

分享到: QQ好友和群 QQ空間

收藏0 轉播分享 淘帖0 問題專業，描述清楚0 伸手黨/灌水/看不懂0

回復

使用道具舉報

曉昀

2^#

發表于 2018-9-11 20:16:19 | 只看該作者

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

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

回復問題專業，描述清楚伸手黨/灌水/看不懂

使用道具舉報

magicnie

3^#

發表于 2018-9-11 22:49:01 | 只看該作者

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

回復問題專業，描述清楚伸手黨/灌水/看不懂

使用道具舉報

一毛

4^#

發表于 2018-9-11 23:00:27 | 只看該作者

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

回復問題專業，描述清楚伸手黨/灌水/看不懂

使用道具舉報

金卯刀-劉

5^#

發表于 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

本帖子中包含更多資源

您需要登錄才可以下載或查看，沒有賬號？注冊會員

評分

參與人數 1	威望 +1	收起理由
喂我袋鹽	+ 1	熱心助人，專業精湛!

查看全部評分

回復問題專業，描述清楚伸手黨/灌水/看不懂

使用道具舉報

金卯刀-劉

6^#

發表于 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