 - (defun c:tt (/ tbla)
- (if (setq pt (getpoint "\n文字点 :"))
- (while (setq tbla (tblnext "LAYER" (not tbla)))
- (setq txt (strcat (cdr(assoc 2 tbla)) "——" (itoa (cdr(assoc 62 tbla)))))
- (command "_.TEXT" pt "" "" txt)
- (setq pt (polar pt (/ pi -2) (getvar "TEXTSIZE")))
- )
- )
- (princ)
- )
|