vla-select如何利用组码过滤选择扩展数据（-3 （“扩展”））
本帖最后由 bloodtempt 于 2024-4-22 14:36 编辑lisp可以通过(ssget "x" '((0 . "INSERT")(-3 ("扩展"))))选取组码中含有“扩展”的图元
vlisp如何实现我根据lisp格式创建变体选择不到 不知道为什么
我想用创建一个字符串变体
(setq var
(vlax-make-variant
(vlax-SafeArray-Fill
(vlax-make-safearray vlax-vbString '(0 . 0) '(0 . 0))
(("扩展"))
)
)
)
把这个字符串在转变成vlax-vbvariant变体，未成功，请大神门指教一下。
(vla-Select
ssetObj
ACSelectionSetAll
nil
nil
(vlax-SafeArray-Fill
(vlax-Make-SafeArray
vlax-vbInteger
(cons 0 0)
)
‘(-3)
)
(vlax-SafeArray-Fill
(vlax-Make-SafeArray
vlax-vbvariant
(cons 0 0)
)
(list var)
)
) vla函数太晦涩了，直接用ssget过滤不就好啦 本帖最后由 bloodtempt 于 2024-6-14 22:43 编辑
筛选扩展数据扩展数据是字符串、数据、三维点、距离、层名，或者是其他附加在对象上得数据，特别是由外部应用程序附加到对象上得数据。扩展数据大小为16KB。通过指定，我们可以为一个特殊的应用程序使用-3组码在筛选表中指定扩展数据来检索扩展数据。例如：，函数acedSSGet()返回一个以指定名字注册的带扩展数据的实体。acedSSGet()不检索每个扩展数据项（组码的范围为1000—2000）。下面程序用于选择所有带有扩展数据的圆（Circle），应用程序为这些扩展数据注册的一个标志符（ID）为“APPNAME”。 eb1.restype=0;//实体类型strcpy(sbuf1,”CIRCLE”);eb1.resval.rstring=sbuf1;//实体为CIRCLEeb1.rbnext=&eb2;eb2.restype=-3;//扩展数据eb2.rbnext=&eb3;eb3.restype=1001;strcpy(sbuf2,”APPNAME”);eb3.resval.rstring=sbuf2;//APPNAME应用程序eb3.rbnext=NULL;//选择注册到APPNAME应用程序中的圆的扩展数据acedSSGet(“X”,NULL,NULL,&eb1,ssname1);如果不止一个应用程序名包含在表中，则acedSSGet()在选择集中所包含实体，必须对所有指定的应用程序都有扩展数据。比如，下面的程序选择带有注册到“APP1”和“APP2”中的扩展数据的圆 Code highlightingproduced by Actipro CodeHighlighter(freeware)http://www.CodeHighlighter.com/--> 1 eb1.restype=0;//实体类型strcpy(sbuf1,”CIRCLE”);eb1.resval.rstring=sbuf1;//圆eb1.rbnext=&eb2; eb2.restype=-3;//扩展数据eb2.rbnext=&eb3;eb3.restype=1001;strcpy(sbuf2,”APP1”);eb2.resval.restring=sbuf2;//应用程序APP1eb2.rbnext=&eb4;eb4.restype=1001;//扩展数据strcpy(sbuf3,”APP2”);eb4.resval.rstring=sbuf3;//应用程序APP2eb4.rbnext=NULL;//选择注册应用程序APP1和APP2的圆扩展数据
acedSSGet(“X”,NULL,NULL,&eb1,ssname1);
(setq app1 (vlax-make-safearray
vlax-vbInteger
'(0 . 0)
))
(vlax-SafeArray-Fill app1 (list 1001))
(setq app2 (vlax-make-safearray
vlax-vbString
'(0 . 0)
))
(vlax-SafeArray-Fill app2 (list "FrameHandle"))
(setq app3 (vlax-make-safearray
vlax-vbVariant
'(0 . 1)
))
(vlax-SafeArray-Fill app3 (list app1 app2))
(setq Filter (list (cons 0 "INSERT") (list -3 (list app3))))
(vla-Select
ssetObj
ACSelectionSetAll
nil
nil
(if Filter (List->VarArray (mapcar 'car Filter) vlax-vbInteger))
(if Filter (List->VarArray (mapcar 'cdr Filter) vlax-vbvariant))
)
TypedValue.TypeCode 属性是一个16位整型数据，它指明 TypedValue.Value 属性的数据类型，可接受的 TypeCode 值取决于 ResultBuffer 实例的使用范围。
创建 ResultBuffer 方法有两种： 1.一种是使用构造函数创建，即在声明 ResultBuffer 时将一个 TypedValue 作用参数传给 ResultBuffer： 2.另一种是使用 ResultBuffer.Add() 方法来添加 TypedValue，可以添加多个TypedValue，但总数据大小不能超过128K： ResultBuffer resBuf = new ResultBuffer(); resBuf.Add(new TypedValue(1001, "appname")); //必须放在第一条添加，否则会报错 resBuf.Add(new TypedValue(1000, "作者：王")); 注意// resBuf 必须包含 1001 对应的值 就是应用程序名称 ResultBufferresBuf = new ResultBuffer(new TypedValue((int)DxfCode.Text, "我的扩展数据"));
bloodtempt 发表于 2024-4-23 04:17
我根据编码10推应该是两层表的构建的都是cdr的数据要不改成这样
(setq var
(vlax-make-variant
(vlax-SafeArray-Fill
(vlax-make-safearray vlax-vbstring '(0 . 0) '(0 . 0))
'(("扩展数据"))
)
)
) ssyfeng 发表于 2024-4-22 15:01
vla函数太晦涩了，直接用ssget过滤不就好啦
哈哈， 我也问过。你这口气 ，这回复，同晓东老大一样。 ssyfeng 发表于 2024-4-22 15:01
vla函数太晦涩了，直接用ssget过滤不就好啦
有时候ssget不是那么方便多文档操作的时候局限性太大 自贡黄明儒 发表于 2024-4-22 15:05
哈哈， 我也问过。你这口气 ，这回复，同晓东老大一样。
研究出什么如何能选到了么:loveliness: vla-select没有这个函数吧？ 树櫴希德 发表于 2024-4-22 15:23
vla-select没有这个函数吧？
这个可以有 有知道的麻烦告诉一声 要不只能曲线救国了:'( 本帖最后由 liuhe 于 2024-4-22 17:28 编辑
https://www.cadtutor.net/forum/t ... onsetwindowpolygon/
ActiveX select objects - 知乎 (zhihu.com)
https://www.memodayo.com/autocad-lisp-select-specific-objects/
Problems with (vla-select ...) (narkive.com)
感觉有用
lisp就不要在乎怎么用了,你换c#/arx就说可以构造索引,获取内容.
页:
[1]
2