马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
x
 - (defun c:xdtb_selbyblk (/ e1 na ss)
- (if (and (setq
- e1 (car (xdrx-entsel "\n选择图块<退出>:" '((0 . "insert"))))
- )
- (setq na (xdrx-getpropertyvalue e1 "name"))
- (setq ss (xdrx-ssget "\n选择搜索范围<退出>:" (list (cons 2 na))))
- )
- (progn (xdrx-prompt "\n共选择到图块 " na " 共" (sslength ss) "个.")
- (sssetfirst nil ss)
- )
- )
- (princ)
- )
|