オブジェクトの尺度を調べたい


オブジェクトの尺度が欲しい時、オブジェクトプロパティ管理から調べるのでしょうか?
二つ以上ついてたら調べるのかなり面倒なんですけど・・・
カーソル近づけたらツールチップに表示できるようにしてよ!

まぁそんな高等なことできないので以下。

(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)
)
)
)
  1. No comments yet.
(will not be published)
  1. No trackbacks yet.