sinat_25006091的博客

3列出管线长度，并统计全部长度。4列出管线名称 、方向、埋深、5尝试转换到正元软件的格式。

出现下面添加引用：

End IfNextEnd Sub。

xdlist可以读取CAD实体属性，子实体的扩展属性看不到。查看xdata,dxfdata都可以看到扩展信息。鼠标右键即可看见，选Entity Info。下载arxdbg,appload加载。

一个button,一个textbox,一个label控制循环次数

' 定义点的位置' 创建点ZoomAllEnd Sub。

' 遍历集合msg = ""NextMsgBox msgEnd Sub。

' 将属性的标记字符串。' 复制到 Excel。' 创建新的工作簿并查找活动电子表格。' 启动 Excel。' 遍历模型空间，查找。

CAD绘制管线，vbacad给定坐标绘制管线矩形（长7.5，高1.995）

CAD vba二次开发，计算两点之间距离

Sub cad属性提取()Dim objEntity As AcadEntityDim ptPicked As VariantThisDrawing.Utility.GetEntity objEntity, ptPickedStopEnd Sub

Sub Hello()ThisDrawing.Application.Documents.AddDim insPoint(0 To 2) As Double '定义插入点Dim textHeight As Double '定义文本高度Dim textStr As String '定义文本字符Dim textObj As AcadText '定义文本对象insPoint(0) = 2 '设定插入点 X 坐标insPoint(1) = 4 '设定插入点 Y 坐标insPoint(2) = 0 '

CAD 二开发vba简单的画直线、画圆、画多段线、画矩形