[LISP函数]：如何在VLISP下建立选择集？

kohi · 发表于 2006-5-24 18:47:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如 AcdbText,AcdbLine.....

bobby_yang · 发表于 2006-5-26 11:25:25

lisp好像不行。

kohi · 发表于 2006-5-26 15:04:29

看来最近高手都比较忙？

zhang8755 · 发表于 2006-5-27 13:45:18

AcdbText,AcdbLine.....
什么意思，建立包含AcdbText的选择集？
再说的具体些

xyp1964 · 发表于 2006-5-27 14:17:31

(ssget '((0 . "TEXT,LINE")))

eachy · 发表于 2006-5-27 16:00:51

http://www.mjtd.com/function/lis ... ;ordertype=byletter

kerryout · 发表于 2006-5-28 17:01:56

AUTOLISP 好像可以的

kohi · 发表于 2006-5-29 18:39:26

To select ALL the Circles on Layer "2", We would write this :

;create a 2 element array for the DXF Code
(setq filter_code (vlax-make-safearray vlax-vbinteger '(0 . 1)))

;create a 2 element array for the values
(setq filter_value (vlax-make-safearray vlax-vbvariant '(0 . 1)))

;DXF Code for Objects and Layer
(vlax-safearray-fill filter_code '(0 8))

;the filter values
(vlax-safearray-fill filter_value '("CIRCLE" "2"))

;select ALL Circles on Layer 2
(vla-select newsset acSelectionSetAll nil nil filter_code filter_value)

This is the equivalent in AutoLisp :

(setq newsset (ssget "x" '((0 . "CIRCLE") (8 . "2"))))

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

[LISP函数]：如何在VLISP下建立选择集？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子