[求助]：Vlisp中如何设置变量为Nothing?

灯火

现在，要用ActiveX方法画一个没有注释的引线。帮助文件说AddLeader的Annotation参数设置为NULL即可，实际不行。Annotation参数必须为AcadObject类型，其值为Nothing才能画没有注释的引线。

问题是，在VLISP中怎样才能得到Nothing？

(vlax-make-variant :vlax-null)不行
(vlax-make-variant :vlax-null vlax-vbObject)不行
(vlax-variant-change-type (vlax-make-variant :vlax-null) vlax-vbObject)不行
nil不行
:vlax-false不行
:vlax-null不行

fylinwater

用空格呢？ 我瞎猜

陌生人

NULL 一般是指空“表”

bddlwzh

试试将NULL改为NIL

灯火

可能是顶楼没说明白：
1.在VBA中
Dim obj As AcadObject
Set obj = Nothing
2.在VL中如何获得与VBA中相同效果的obj数据类型?

陌生人

对象; 仅用于输入
Tolerance、MText、BlockRef 对象或 NULL。
说明

引线是将一些注解连接到图形中的特征的线。引线和它的注解是关联的，也就是说如果修改了注解，引线会随之更新。注解可以是 Tolerance、Mtext 或 BlockRef 对象。

也可以创建不和特定对象关联的引线。要这样做，只要输入 NULL 对象作为注解就行。


它让你做一个空的,没有内容的,Tolerance、Mtext 或 BlockRef , 一个躯壳：）不知道对不对

灯火

试验发现，NULL作AddLeader参数在VBA中是不行的，必须Set obj = Nothing，然后以obj为参数方可。VL可以制作出VBA相同类型数据，就是这个Nothing不知道怎么弄出来，这是本贴的问题。

陌生人

try： (setq varnull (vlax-make-variant nil vlax-vbNull))


vlax-make-variant Function




Creates a variant data type

(vlax-make-variant [value] [type])

Arguments

value

The value to be assigned to the variant. If omitted, the variant is created with the vlax-vbEmpty type (uninitialized).

type

The type of variant. This can be represented by one of the following constants:

vlax-vbEmpty (0)  Uninitialized (default value)

vlax-vbNull (1)  Contains no valid data

vlax-vbInteger (2)  Integer

vlax-vbLong (3)  Long integer

vlax-vbSingle (4)  Single-precision floating-point number

vlax-vbDouble (5)  Double-precision floating-point number

vlax-vbString (8)  String

vlax-vbObject (9)  Object

vlax-vbBoolean (11)  Boolean

vlax-vbArray (8192)  Array

灯火

(setq varnull (vlax-make-variant nil vlax-vbNull))肯定不行
因为(vlax-variant-type varnull)=1
必须(vlax-variant-type varnull)=9(vlax-vbObject )才可以。
-----------------
(vlax-make-variant ename vlax-vbObject)符合要求
问题是怎么得到一个返回效果等同Nothing的ename。

aeo

nothing上界为-1

lijiao

我的经验是：此路不通时，先找小路绕过去，等有了合适的方法时再来优化它。
可以先做一个带MTEXT的LENDR，然后删除MTEXT即可。
不过，二者的数据可能不一样。

eachy

建一个字符为空的Mtext是否可以

snsj

如果是建立MTXT再删除，空不空就没什么意义了，空也是删除不空也是删除，以前做引线的时候也是为这个问题大伤脑筋，最后也只能关联一个MTEXT，感觉VLA怪怪的连这么一个问题都处理不了么

雪山飞狐(lzh)

实在不行，用VB做一个ActiveXDll，VLisp可以调用麽？

Free-Lancer

游客，如果您要查看本帖隐藏内容请回复