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

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

请问AUtolisp中的这段代码

(setq lwpls (ssget "X" (list (cons 0 "LWPOLYLINE") (cons -4 ">") (cons 90 2))))

在VLisp中怎么写?

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

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

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

有时Vlisp并不比Autolisp好，比如vla-command 和command。

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

(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" ">" 2))
(vla-selectonscreen ssobj mode gpcode datevalue)

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

谢谢分享！！！！！！！！！！！！！！1

账号		自动登录	找回密码
密码			注册