AutoCAD二次开发的ActiveX技术应用

所属分类：CAD

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

1 2 3 4

历史上的今天: