[求助]：请版主和各位高手帮忙（在线等待！）

zrqzrq · 发表于 2003-10-6 16:16:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教版主和各位高手
在程序里选择一条曲线，进行偏移，然后想找到偏移后这条直线的句柄，请教方法

ThisDrawing.Utility.GetEntity entobj, temp, "请选择一条曲线"
entobj.offset(10)
?.handle

zrqzrq · 发表于 2003-10-6 16:41:34

什么不懂啊？？
问题吗?　我想求出偏移后，新生成曲线的句柄

lsjjm · 发表于 2003-10-7 08:34:58

See my code:

Private Sub test ()
Dim ent As Object
Dim pt As Variant
Dim offsetobj As Variant"
ThisDrawing.Utility.GetEntity ent, pt, "Select entlty: "
offsetobj = ent.Offset(10)
MsgBox offsetobj(0).Handle
End Sub

账号		自动登录	找回密码
密码			立即注册

[求助]：请版主和各位高手帮忙（在线等待！）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子