久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

機械社區

標題: 看下這個是不是開了掛搞的圖號名稱分離？ [打印本頁]

作者: jiajiang951 時間: 2018-9-11 19:23
標題: 看下這個是不是開了掛搞的圖號名稱分離？
[attach]464281[/attach][attach]464282[/attach]零件故意用圖號加雙引號名稱出圖的時候名字變成了只有圖號而且標題欄也是只顯示圖號~

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

作者: 曉昀 時間: 2018-9-11 20:16
本帖最后由曉昀于 2018-9-11 20:17 編輯

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

作者: magicnie 時間: 2018-9-11 22:49
只是個普通的宏命令而已，不要大驚小怪，對于這種的同學我都是贊一個，工作有方法

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

作者: 金卯刀-劉 時間: 2018-9-12 10:05
這個雙引號顯示的是“配置說明”，并非是前面幾個大俠說的圖號分離。從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
下面是分離到配置(備注：間隔符同樣是空格號，并可以根據自己需求編輯)

'定義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

金卯刀-劉發表于 2018-9-12 10:08
% k. h5 |% a G0 y下面是分離到配置(備注：間隔符同樣是空格號，并可以根據自己需求編輯)# H3 f; b, u7 p
% h4 \( I7 a; g; U/ \
'定義sw

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

作者: jiajiang951 時間: 2018-9-12 18:35

金卯刀-劉發表于 2018-9-12 10:05
+ e0 J" ]7 [) ^. i3 o$ L這個雙引號顯示的是“配置說明”，并非是前面幾個大俠說的圖號分離。從SW原則來說，零件名跟工程圖文件名肯 ...

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

作者: zero8337 時間: 2018-10-6 10:29
學習了，謝謝！

作者: 喂我袋鹽 時間: 2018-10-6 11:05
進來學習！

歡迎光臨機械社區 (http://www.ytsybjq.com/)

<cite id="cuoeu"></cite>