系列零件设计表中草图文字有没有类似CAD中缩放比例的驱动参数？

574395 · 发表于 2010-8-25 10:50:22

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

系列零件设计表中草图文字有没有类似CAD中缩放比例的驱动参数？
如何对草图中到文字进行参数驱动？？

votasee · 发表于 2010-8-25 12:37:19

我跟你说。没有的。CAD没有内置这种功能。。另外文字也没办法转化成绝对的可约束性草图除非专门做这种字体，但是正如我们都知道，字体种类非常多。
所以这种事，是非常难的。。在SW没有有效的解决方案前。暂时还只能手工运作多点事吧。。
不过。这几天为了你这种事。就有人在研究啊。。。－－－－－－－－－－－－－－－－－－－－－－
算是有一点点的改观。。

574395 · 发表于 2010-8-25 16:26:07

2# votasee

谢谢！这个是VBA做到吧？有源码吗？提供下载吗？能否学习下，自己做估计也能做得出来吧，只是不知道驱动系列零件到EXCEL到API

votasee · 发表于 2010-8-26 16:24:50

我觉得为了个小东西.还要带个EXCEL什么的..还要去驱动..很麻烦...

这种方法也是临时性,局限性很大.也没大用场....只不过对草图文字多的人稍微有点小用....

而且目前也感觉很不好用...所以暂时不打算番出.当然如果你喜欢,也可以去研究一下.安装目录下的APIHELP中的帮助文件...应该有收获的.

有一小段代码你自己看看

e, Y3 u t0 b3 X) O5 o
Private Sub cmdAdjustTEXT_Click(Index As Integer)
) R: E/ @* |$ Y, H: |, t$ Z
If linkSW2 <> 1 Then Exit Sub/ o' z n G9 F7 P7 b$ z) G" |5 t
Dim sTXT As String" T/ E* ^! q' q( [2 w
Dim sel As SelectionMgr
) Q+ c8 v) o8 p5 o! \/ q
Set sel = swDoc.SelectionManager
9 {* q$ }; i0 U& }
M = sel.GetSelectedObjectCount
# f0 w6 g7 G$ n+ n/ c) n
''//10是草图,14标注,15注解.
3 j. }" T h) ]! T: [' J: j: U
If M > 0 Then
" o8 `1 X: X: y E; c& w5 {
If sel.GetSelectedObjectType(1) = 34 Then7 w7 J& y- i, N3 O$ n' q
Dim swSKT As SketchText
, M. O4 K& b1 ? q5 p
Set swSKT = sel.GetSelectedObject(1)
/ S2 J: _* ^' Q `
Dim tf As TextFormat0 v; L; R; K2 `6 n, V, L- c$ u
Set tf = swSKT.GetTextFormat
2 f W( p" T8 C: H. O( j3 c
tf.CharHeight = tf.CharHeight + IIf(Index = 0, 0.0001, -0.0001)( _3 m+ x1 K" M- C% L( \
sTXT = Round(tf.CharHeight * 1000, 1) & "mm" & tf.CharHeightInPts & "#": Debug.Print "New=" & sTXT$ X! l2 V5 ~! f! j# k+ ]( x; t
swSKT.SetTextFormat False, tf
3 ^$ X% _/ Y* f
End If/ T7 W* a* Z6 i' {
End If( |1 O: a' V( z# j
End sub- ]1 W; q: b7 ` ^% J. {5 @, R3 n

复制代码

其中LINKSW2是一面连接函数...你可以自己写或照样例实现...
INDEX是一个传入参数,用于控制增大还是缩小 ...

574395 · 发表于 2010-9-3 08:29:37

谢谢，找到个相关的例子
SolidWorks API Help
'---------------------------------------------------
'
' Preconditions:
'    (1) Part, assembly or drawing is open.
'    (2) An annotation is selected.
'
' Postconditions: The text format of the selected annotation is changed.
'
'----------------------------------------------------
Option Explicit

Public Enum swAnnotationType_e
swCThread = 1
swDatumTag = 2
swDatumTargetSym = 3
swDisplayDimension = 4
swGTol = 5
swNote = 6
swSFSymbol = 7
swWeldSymbol = 8
swCustomSymbol = 9
swDowelSym = 10
swLeader = 11
swBlock = 12
swCenterMarkSym = 13
swTableAnnotation = 14
swCenterLine = 15
swDatumOrigin = 16
End Enum

Sub main()

Dim swApp                      As SldWorks.SldWorks
Dim swModel                   As SldWorks.ModelDoc2
Dim swSelMgr                   As SldWorks.SelectionMgr
Dim swAnnObj                   As Object
Dim swAnn                      As SldWorks.Annotation
Dim swTextFormat             As SldWorks.textFormat
Dim i                         As Long
Dim bRet                      As Boolean

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swAnnObj = swSelMgr.GetSelectedObject5(1)
Set swAnn = swAnnObj.GetAnnotation: Debug.Assert Not Nothing Is swAnn

' Get text format information
Debug.Print "File = " & swModel.GetPathName
Debug.Print "  " & swAnn.GetName & " <" & swAnn.GetType & ">"

For i = 0 To swAnn.GetTextFormatCount - 1
      Set swTextFormat = swAnn.GetTextFormat(i)

      ' Change text to be 10mm high, bold, italic, and Comic Sans MS font face
      swTextFormat.CharHeight = 0.01

      swTextFormat.Bold = True
      swTextFormat.Italic = True
      swTextFormat.TypeFaceName = "Comic Sans MS"

      bRet = swAnn.SetTextFormat(i, False, swTextFormat): Debug.Assert bRet
Next
End Sub
'---------------------------------------------------------

请问您对 SW 二次开发怎么样，能否请教一些问题

		自动登录	找回密码
密码			注册

通知

[已解决] 系列零件设计表中草图文字有没有类似CAD中缩放比例的驱动参数？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分