简单说明SolidWorks API的应用.docVIP

　　简单说明SolidWorks API的应用 　　Solid)中。这些内容如果在工程图中一一进行编写和修改，其工作量是很大的，并且这种处理方法也不利于保证设计信息的一致性，对模型文件(零件或装配体文件)和图纸文件的管理来讲是脱节的。Solidsg, Style, title Style = vbExclamation 　　title = 模型自定义属性 　　Msg = 请首先打开一个Solidessage 　　End 　　End If 　　2.获取当前文件信息自定义属性程序是对模型文件设置自定义属性，与工程图文件无关，因此需要利用GetType方法获得当前文件的类型，并利用Gettitle()方法和Getpathname()方法获得当前文件的名称和存盘路径。 　　Dim Type As LongDim 　　Name As StringDim 　　filename As StringDim 　　FilePath as StringType = activeDocument. 　　GetTypeIf (Type = se = 零件sg = 当前文件是工程图文件，请打开零件或装配文件 　　Call MsgBox(Msg, Style, title) Display error message 　　End 　　End 　　If filename = activeDocument.GETTITLE() 　　FilePath = activeDocument.g 123下一页 ——..，。etpathname() 　　3.获取文件配置名称SolidodelDoc.CustomInfo2 (configuration, fieldName) 　　其中，configuration为配置名称; 　　fieldName为自定义属性的名称。 　　☆ deletecustominfo2：删除当前文档指定配置的自定义属性的值 　　retval = ModelDoc.DeleteCustomInfo2(configuration, FieldName ) 　　☆ ADDcustominfo3：向当前文档中指定的配置添加自定义属性以及值 　　retval = ModelDoc.AddCustomInfo3 ( configuration, FieldName, FieldType, FieldValue ) 　　其中，FieldType为自定义属性的类型;FieldValue为自定义属性的值。 　　下面这段代码是单击确定的子程序，为了简单，只给出了其中一个自定义属性的处理过程。 　　Private Sub cmd_OK_Click()On Error GoTo ERR_91 　　Dim s 　　activeDocument2 As ObjectDim 　　curcfg2 As ObjectDim 　　cfgname2 As StringDim 　　retval As BooleanSet 　　sent2 = sent2.GetActiveConfiguration() 　　cfgname2 = curcfg2.Name 判断文件或配置是否改变，如改变，则提示错误。 　　If cfgname2 = ConfName And FilePath = activeDocument2.getpathname() Then　　 删除属性设置 　　retval = activeDocument2.deletecustominfo2(ConfName, PartID) 添加属性 　　retval = activeDocument2.ADDcustominfo3(ConfName, PartID, sInfoText, frmPartID)　　 保存文件 　　retval = activeDocument2.Save() 　　Else Style = vbExclamation 　　title = 模型自定义属性 　　Msg = 错误：打开的文件或配置已经改变! Chr(10) 请重新执行本程序 　　Call MsgBox(Msg, Style, title) 　　End 　　End 　　IfERR_91: Style = vbExclamation title = 模型自定义属性 　　Msg = 程序运行错误，文件可能已经关闭 Chr(10) 自定义属性无法添加，单击确定退出! 　　Call MsgBox(Msg, Style, title) 　　End 　　End Sub 　　三、在Solid.swp。 　　(3)选择菜单工具rarr;宏操作rarr;编辑q 上一页123下一页 ——..，。uot;，把Cpbom.sain()MyAppID = Shell(