draw 发表于 2003-8-14 11:03:00

如何用VB改写VBA代码

在VBA中用户在屏幕交互选取实体时用下面语句：
ThisDrawing.Utility.GetEntity returnobj, basepnt, "请选取一个实体"
其中 returnobj as As Object, basepnt 不限类型。
在VB中如何改写？

thankyou 发表于 2003-8-14 11:20:00

先引用ACAD类型库
DIM ACADAPP AS ACADAPPLICATION
ACADAPP.ACTIVEDOCUMENT.Utility.GetEntity returnobj, basepnt, "请选取一个实体"

draw 发表于 2003-8-18 20:00:00

ok   多谢
页: [1]
查看完整版本: 如何用VB改写VBA代码