オブジェクトの尺度が欲しい時、オブジェクトプロパティ管理から調べるのでしょうか?
二つ以上ついてたら調べるのかなり面倒なんですけど・・・
カーソル近づけたらツールチップに表示できるようにしてよ!
まぁそんな高等なことできないので以下。
(y_objscale (car (entsel))) ("1:1" "1:2") (defun y_objscale (E_NAME / E_DATA) (if (and (setq E_DATA (cdr (assoc 360 (entget E_NAME)))) (setq E_DATA (dictsearch E_DATA "AcDbContextDataManager")) (setq E_DATA (dictsearch (cdr (assoc -1 E_DATA)) "ACDB_ANNOTATIONSCALES")) ) (progn (setq E_DATA (apply 'append (mapcar '(lambda (x) (if (eq (car x) 350) (list (cdr x)))) E_DATA) ) ) (mapcar '(lambda (x) (cdr (assoc 300 (entget (cdr (assoc 340 (entget x))))))) E_DATA) ) ) )