系列零件设计表中草图文字有没有类似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中的帮助文件...应该有收获的.

有一小段代码你自己看看

. J( J3 c" S# y# o# _) V5 d
Private Sub cmdAdjustTEXT_Click(Index As Integer)
" \( m" o2 ^+ e/ o8 n
If linkSW2 <> 1 Then Exit Sub) g( D* O# r( }
Dim sTXT As String
- k) K# ?( q" T
Dim sel As SelectionMgr& X, @/ ?1 l7 y# J( Y* ]
Set sel = swDoc.SelectionManager
4 A1 q' L) Z/ U, a1 ^
M = sel.GetSelectedObjectCount3 C8 j! v% W" j0 ]. ]
''//10是草图,14标注,15注解.
5 m( O& | v7 p8 y' ^% M9 t
If M > 0 Then
$ ?. _; i0 ]5 D' |- X
If sel.GetSelectedObjectType(1) = 34 Then: V1 m! b+ t. m/ ?0 [8 C
Dim swSKT As SketchText
3 i) z* e" `$ }2 x) c0 g
Set swSKT = sel.GetSelectedObject(1)
, ?4 g$ R7 R3 b5 a/ K
Dim tf As TextFormat
" H. g; j& L3 W) K
Set tf = swSKT.GetTextFormat
; A0 h# H8 Q e5 v
tf.CharHeight = tf.CharHeight + IIf(Index = 0, 0.0001, -0.0001): o! N1 S! ]; c X. E3 Y9 k
sTXT = Round(tf.CharHeight * 1000, 1) & "mm" & tf.CharHeightInPts & "#": Debug.Print "New=" & sTXT
: T" m8 ^% w0 j! `' G
swSKT.SetTextFormat False, tf j" Y S8 w0 K4 y1 v
End If
% _; }3 ^, u/ E0 a" Z
End If
8 W6 [ \! f% \3 o$ v; D
End sub
* W( p; \7 g0 t6 ~* \# r

复制代码

其中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中缩放比例的驱动参数？

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

评分

评分