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

有一小段代码你自己看看

! Z6 l0 p! k) Y5 e: |0 r6 X& n
Private Sub cmdAdjustTEXT_Click(Index As Integer): u+ [$ K, \$ w3 l
If linkSW2 <> 1 Then Exit Sub$ N; i) O+ e/ L5 w' D4 {4 B- r! A
Dim sTXT As String
$ Q! V P4 i# d3 o5 h2 J% E& a
Dim sel As SelectionMgr
# L! E4 i7 ~5 g2 Q& p$ O
Set sel = swDoc.SelectionManager* o( a- {: I! y& }
M = sel.GetSelectedObjectCount3 Z. K( v- G7 U' u# w$ L
''//10是草图,14标注,15注解.; s# f7 Y) g" l1 X! C/ l
If M > 0 Then
! N8 Y0 Q& s! Q
If sel.GetSelectedObjectType(1) = 34 Then
# T% q6 M- z$ E
Dim swSKT As SketchText9 ~, b4 j* c4 b7 m4 d$ |9 u
Set swSKT = sel.GetSelectedObject(1)% N6 T4 R4 X" B. r* d4 w
Dim tf As TextFormat* Y4 R1 V ^6 Y# ^5 O/ z
Set tf = swSKT.GetTextFormat
H# L; m* [6 B. k, I' L8 j
tf.CharHeight = tf.CharHeight + IIf(Index = 0, 0.0001, -0.0001)
, v, x9 b1 a! _1 D* R
sTXT = Round(tf.CharHeight * 1000, 1) & "mm" & tf.CharHeightInPts & "#": Debug.Print "New=" & sTXT. ^, y( ~ {% s
swSKT.SetTextFormat False, tf7 ]# @9 {' S6 S3 F( @
End If7 q; ]$ r% r: d: r( }
End If
* x7 u G6 z: e9 E
End sub/ o) ]- W% C1 r- ^ r0 r* 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中缩放比例的驱动参数？

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

评分

评分