选择集?

jhl

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

mccad

jhl

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

jhl

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

mccad

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

jhl

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

mccad

控件在下载中心有。
如果你想用你所说的方法来实现也可以。
生成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)

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