求教两种效果的vba实现方法.

mikewolf2k

1.类似"fillet"命令，执行到“Select first object or [Polyline/Radius/Trim]:”时，既可以直接选择图元，也可以输入关键字符进行设置，请问在vba中怎样实现这种功能？对于用户输入的设置值，例如radius，怎样保存，使其在cad打开期间均有效？（不写入外部文件，在内存中储存） 2.建立选择集时如何从PickfirstSelectionSet内筛选？
欲实现先选择、后执行的方式，如何从屏幕上已选图元中筛选得到自己所需的选择集？

topirol

1、设关键字，判断用户的输入的关键字，然后作出相应的事情就可以了，要保存上次输入的值可以通过注册表来存取


2、好像前面的帖子有说过了

mikewolf2k

1.vba中的的getxxx语句,好像要么是获得通过鼠标在屏幕中选择的图元,要么是获得键盘输入的字符,不知道怎样才能以上两种方式同时接受,既能用鼠标选择图元,也可以键盘输入关键字.关于用户设置值,惭愧,不会用操作注册表.vb能不能设置一个变量,在该vb程序执行完后还能保存在内存中,下次执行程序还能访问?或者acad有没有什么保留的系统变量或一般无用的变量,把用户设置值保存在这里面?


2.能不能说具体一点,我一点印象也没有.


谢谢.

mikewolf2k

再顶一顶.第二个问题已经自己摸出来了,第一个问题还在摸索中.......

mccad

[WEB]http://www.mjtd.com/object/acad2004/ex_getinput.htm[/WEB]

mikewolf2k

看过了,在点选图元时可以实现,如果我要框选又如何做呢?

mccad

框选是选择集的方法了，不能使用该方法。

my_computer

存值有个简单的办法，可以实现，在不同的程序间调用，甚至可以跨越，不同的软件。 方法是： ‘声明dataobject需要程序中有窗体。 Dim DataObj As DataObject '写数值
DataObj.SetText "ddd", "MyFormat" ’取数值
Dim Str As String
Str = DataObj.GetFormat("MyFormat")

mikewolf2k

谢谢,试试看