选择集?

jhl 发表于 2002-7-10 21:33:00

本帖最后由作者于 2002-7-10 21:33:34 编辑

请问版主及各位老师:我可不可以选择好几个选择集,将其存为不同的名称,而后再分别进行所需要的处理,就像这样:dim LineSele() as AcadSelectionSet,而后根据需要再用redim语句定维,即确定几组选择集,我没有试过,之所以问,是因为在autocad中不允许,也就是说一次只能选一组选择集,选下一个则一个就会被充掉,如果在vba中存起来,是不是就不存在着问题呢?期望今天能够得到回答.

mccad 发表于 2002-7-10 21:35:00

在VBA中可以定义不同名称的选择集，而且可以同时存在，需要时再调用

jhl 发表于 2002-7-11 16:17:00

新问题

版主,我想把当前cad图形在vb窗体中重现,使用户在可视的条件下进行与cad作图无关的下一步操作(比如针对图形的不同部分设置不同的与专业有关的参数),我自己打算这样进行:首先将当前图形输出为windows图元文件,在窗体设置一图像控件(比较大).运行时自动装载图形文件.可是我不知道如何在vb中用代码实现这一功能,而且对用户来说这一过程是不可见的(比如输出图元文件)

jhl 发表于 2002-7-11 16:29:00

新问题2

这个问题应该是vb中的问题,但我实在搞不清楚:就是不定维的数组作为参数的子过程如何来调用呢?我看了帮助文件还是搞不懂,只好同样的代码写很多遍,幸好有拷贝粘贴功能可用,然后用替换把变量名换掉,毕竟麻烦的多,也不利于程序的维护,帮帮忙!

mccad 发表于 2002-7-11 17:11:00

有没有看到实用函数中的这个函数

http://www.mjtd.com/function/vba/004.htm

jhl 发表于 2002-7-11 20:58:00

前一个"新问题"如何解决?

版主,前一个问题,也就是如何先保存图元文件再装载到vb图像框中?

mccad 发表于 2002-7-11 21:38:00

你可以用其缩略图控件来实现

控件在下载中心有。
如果你想用你所说的方法来实现也可以。
生成WMF文件：
' 定义输出WMF文件的名称
Dim exportFile As String
exportFile = "C:\AutoCAD\WMFExprt" ' 在这里按你的系统调整路径

' 创建空选择集

Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("TEST")

'生成输入的选择集
sset.Select acSelectionSetAll

' 输入图形到以上指定的文件中.
ThisDrawing.Export exportFile, "WMF", sset

显示WMF的方法：
在窗体上生成一个叫imgMK的image控件
在你所触动的动作中写上：
pctWMF=exportFile&".WMF"
Me.imgMK.Picture = LoadPicture(pctWMF)

这些方法没有经过调试，希望能够有效

页: [1]