Archive for 2007年8月

AU Golf

in AU 2007 on 2007/08/31

AU Golf 2007
AUで毎回 Golｆをやっているそうな。
私は全くできないんですけど、こういったイベントは面白いですね！
さすが世界から集まる AU というか。

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

in LISP on 2007/08/30

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

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

(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)
)
)
)

No Comments