 - (defun C:Tt (/ E)
- (if (setq E (entsel))
- (progn
- (setq E (entget (car E))
- E (list (assoc 0 E) (assoc 8 E)(if (assoc 62 E)(assoc 62 E)(cons 62 256)))
- E (ssget "_X" E)
- )
- (sssetfirst nil E)
- (princ "\n共有 ")
- (princ (sslength E))
- (princ " 个对象被选择。")
- )
- )
- (princ)
- )
|