bobby 发表于 2006-1-4 19:02:00

用lisp获得当前图档中所有的群组名

<P>请问各位大侠用lisp能获得当前图档中所有的群组名吗？如果能，如何获得？</P>

ZZXXQQ 发表于 2006-1-5 09:49:00


(DEFUN C:ECODE ()
(SETQ SS (SSGET "X") I -1)
(REPEAT (SSLENGTH SS)
(PRINT (CDR (ASSOC 0 (ENTGET (SSNAME SS (SETQ I (1+ I)))))))
)
(PRINC)
)

bobby 发表于 2006-1-5 13:24:00

<P>对不起，我要的是群组名而不是对象名。</P>
页: [1]
查看完整版本: 用lisp获得当前图档中所有的群组名