AutoCAD二次开发的ActiveX技术应用

Pt1(0)=0#

Pt1(1)=0#

Pt1(2)=0#

Pt2(0)=100#

Pt2(1)=50#

Pt2(2)=0#

SetlineObj = moSpace.Addline(pt1,pt2)

‘画从坐标点pt1至坐标点pt2的直线

改变这条直线的颜色(假设直线实体句柄为"4C")的代码：

Dim tobj As object

Set tobj=aCADdoc.HandletoObject("4C")

tobj.Color=acRed ‘

tobj.Update

查询图形文件中所有实体的实体名、实体句柄、颜色、所在层、线形等参数,如下面的代码所示：

Dim ent As Object

Dim msgStr, NL As String

Dim I as Integer

NL = Chr(13) & Chr(10) ‘回车与换行

I=1

For Each ent in mospace

msgStr = "第" & Format(I) & "个实体信息" & NL & NL

msgStr = msgStr & "实体名: " & ent.EntityName & NL

msgStr = msgStr & "所在层: " & ent.Layer & NL

msgStr = msgStr & "颜色: " & Str(ent.Color) & NL

msgStr = msgStr & "线形: " & ent.Linetype & NL

msgStr = msgStr & "句柄: " & ent.Handle & NL

MsgBox msgStr

I=I+1

Next

历史上的今天:

• 2024:  微软Excel/WPS表格 免费插件 浅北表格助手 v3.0 20231224 开源
• 2024:  如何使用axure母版？
• 2024:  cad多重从属对象问题如何处理？
• 2024:  ps渐变工具在哪及如何应用？
• 2024:  PS怎么锁定图层？