摘要: 1.大写转小写 Option ExplicitValidationMode = TrueInteractiveMode = im_Batch Dim mdl ' the current model ' 取得当前ModelSet mdl = ActiveModelIf (mdl Is Nothing) 阅读全文
posted @ 2018-05-11 16:42 袋子里的袋鼠 阅读(589) 评论(0) 推荐(0) 编辑
摘要: 执行VB脚本: Option Explicit Dim mdl ' the current model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no Active Model" End If Dim HaveEx 阅读全文
posted @ 2018-05-11 16:32 袋子里的袋鼠 阅读(459) 评论(0) 推荐(0) 编辑