明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
分享 选择集过滤器 同时过滤两种对象
373294296 2015-7-26 22:47
Sub aa() On Error GoTo errcontrol ' 选择集同时建立两个对象 '创建选择集 Set FilterSet = ThisDrawing.SelectionSets.Add("xxYx") Dim FilterType(0 To 3) As Integer Dim FilterData(0 To 3) As Variant '设置过滤 ...
415 次阅读|0 个评论 热度 1
分享 在 cad vba中 写文字 例子
373294296 2015-7-26 22:43
Sub Example_AddMtext() ' 该示例在模型空间中创建多行文字对象。 Dim MTextObj As AcadMText Dim corner(0 To 2) As Double &nb ...
359 次阅读|0 个评论
分享 cass 写入属性 , 好像有错误
373294296 2015-7-26 22:41
Sub dd1223() On Error Resume Next Dim datatype(0 To 68) As Integer Dim data(0 To 68) As Variant Dim xtypeOut As Variant, XDateOut As Variant Dim objCurrent As AcadEntity Dim basePnt As Variant Dim ss As AcadSelecti ...
354 次阅读|0 个评论
分享 获得多段线 面域质心 的好的方法
373294296 2015-7-26 22:39
Sub GetCentroid() Dim Doc As AcadDocument '一个AutoCAD图形。 Dim Entity As AcadEntity '一个图块 Dim Region As AcadRegion Dim Polylist(0 To 0) As AcadEntity '一个图块,图元 Dim entities As AcadModelSpace '该集合表示了所有模型空间的对象。 Dim nPoly As ...
375 次阅读|0 个评论
分享 CAD vba 浏览打开 excel 文件窗口的好的方式
373294296 2015-7-26 22:36
Sub kk() Dim xlapp As New Excel.Application Dim xlbook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim FileName As String xlapp.Visible = 1 uoFileName = xlapp.Application.GetOpenFilename("Excel 文件 (*.xlsx),*.xlsx") setxlbook = xlapp.Workbooks.Open(FileName) Set xlSheet = xlbook ...
297 次阅读|0 个评论
分享 vba 加密的好的方法 方式 ,
373294296 2015-7-26 22:34
Function jiaoyan() As Boolean 'vb 程序 三种加密方式 Dim i As Integer, S As String, Dt As Date S = GetSetting("MyExcel", "Config", "Date") If IsDate(S) = False Then Dt = #1/1/1900# ...
304 次阅读|0 个评论

本页有 4 篇日志因作者的隐私设置或未通过审核而隐藏

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 20:24 , Processed in 0.083167 second(s), 8 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部