[求助]：哪里有VBA创建实体的例子

stoneball · 发表于 2004-4-22 12:27:17

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

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

×

哪里有VBA创建实体的例子：
根据线的层、线形、颜色、坐标创建LINE
文档中只有这些
Dim oEl As LineElement
      Set oEl = CreateLineElement1(Nothing, m_atPoints)
      ActiveModelReference.AddElement oEl
      oEl.Redraw
层、线形、颜色怎么设置？

或者其他实体

laixc66 · 发表于 2004-4-22 13:12:52

原来论坛上有上海VBA培训的资料，你找找

zergman · 发表于 2004-4-22 13:26:25

Set oNewElement = CreateLineElement1(Nothing, points)
Set oNewElement.Level = ActiveDesignFile.Levels.FindByCode(10)
ActiveModelReference.AddElement oNewElement
oNewElement.Redraw

帮助文件里都有的，为何不输入level 看看？

stoneball · 发表于 2004-4-22 15:24:44

1。帮助文件？你指的是哪个帮助？VBA？MS？OR...？谢谢！
2。另外用ActiveDesignFile.Levels.FindByCode(10)，
或ActiveDesignFile.LineStyles.Find("test")时特别慢，有什么办法吗？
3。上海培训中的例子有没有文档说明，不知道都有些什么，也不知道在哪个代码中

zergman · 发表于 2004-4-23 12:43:59

呵，用的是vba，应该就是vba的帮助文件吧。
上面只是个例子，具体的看帮助吧

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

[求助]：哪里有VBA创建实体的例子

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

相关帖子