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

千鼎互联 · 发表于 2010-8-25 10:50:00

经典图书

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

klm-001 · 发表于 2010-8-25 11:02:22

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

jackyhan · 发表于 2010-8-25 11:05:27

经典图书

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

fseon · 发表于 2010-8-25 11:09:46

我觉得为了个小东西.还要带个EXCEL什么的..还要去驱动..很麻烦...
这种方法也是临时性,局限性很大.也没大用场....只不过对草图文字多的人稍微有点小用....
而且目前也感觉很不好用...所以暂时不打算番出.当然如果你喜欢,也可以去研究一下.安装目录下的APIHELP中的帮助文件...应该有收获的.
有一小段代码你自己看看

草图

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

solidwise · 发表于 2010-8-25 11:11:36

经典案例图书

谢谢，找到个相关的例子
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中缩放比例的驱动参数？

相关帖子