njcknfy 发表于 2006-10-12 16:13:00

VLisp中关于Vla-select函数的问题

<P>请问AUtolisp中的这段代码</P>
<P>(setq lwpls (ssget "X" (list (cons 0 "LWPOLYLINE") (cons -4 "&gt;") (cons 90 2))))</P>
<P>在VLisp中怎么写?</P>

njcknfy 发表于 2006-10-13 08:44:00

说明一下，主要是(cons -4 "&gt;") 的过滤方式在VLisp中如何实现，请高手指点，谢谢

zml84 发表于 2006-10-13 18:22:00

有时Vlisp并不比<STRONG>Autolisp好，比如vla-command 和command。</STRONG>

brainstorm 发表于 2008-2-11 01:03:00

(VL-LOAD-COM)
(setq        AcadObject   (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument AcadObject)
        mSpace             (vla-get-ModelSpace AcadDocument)
)
(setq ssobj (vla-add (vla-get-selectionsets AcadDocument) "dsaazxx"))
(setq gpcode (vlax-make-safearray vlax-vbInteger '(0 . 2)))
(vlax-safearray-fill gpcode '(0 -4 90))
(setq datevalue (vlax-make-safearray vlax-vbvariant '(0 . 2)))
(vlax-safearray-fill datevalue (list ""LWPOLYLINE" "&gt;" 2))
(vla-selectonscreen ssobj mode gpcode datevalue)

czcxxx 发表于 2015-10-21 11:29:55

谢谢分享！！！！！！！！！！！！！！1
页: [1]
查看完整版本: VLisp中关于Vla-select函数的问题