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

历史上的今天:

• 2023:  PS如何加粗字体？六种PS加粗字体教程
• 2023:  cada4图框尺寸以及特殊尺寸介绍
• 2023:  solidworks和ug哪个好？UG和solidworks的区别是什么？
• 2023:  UG装配体转换成单独实体模型教程
• 2023:  UG与solidworks的区别有哪些？新手小白必看！