![](source/plugin/imc_colorcode/images/loading.gif) - (defun c:tt (/ cmdecho *error* d ss n e)
- (defun *error* (s)
- (setvar 'cmdecho cmdecho)
- (princ s)
- )
- (setq cmdecho (getvar 'cmdecho))
- (setvar 'cmdecho 0)
- (setq d (getdist "\n输入定距:"))
- (while (not
- (tblobjname "block" (setq b (getstring "\n输入块名称:")))
- )
- )
- (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
- (repeat (setq n (sslength ss))
- (setq e (ssname ss (setq n (1- n))))
- (command "measure" e "b" b "y" d)
- )
- )
- (setvar 'cmdecho cmdecho)
- (princ)
- )
|