Archive for category AutoCAD
ブロック更新
in Script on 2007/02/17
属性付きブロックの更新
————————————-
open
[FULLNAME]
attreq
0-insert
ブロック名=ブロックファイル名.dwg
0,0
1
1
0erase
last
attsync
n
ブロック名
zoom
e
qsave
close
————————————-
新機能をアニメーションで
in 2008 on 2007/02/09
どんな機能追加されてるのかな～？
ということで、アニメーションで紹介してくれてるブログがこちら
↓
AutoCAD Insider
興味深いのがこちら。
Annotation Scaling in AutoCAD 2008
革命的な気がしますね、AutoCADの考え方からすると。
この先の使い方はどのように変化してくるのでしょうか？？
2008情報
in 2008 on 2007/02/08
下の日付からするとオカシイのですが、
書いてるのは18日だからいいか。
ネタないんですよ、これしか。
出ましたね、2008情報。
とりあえず本家はこちら↓。
Preview 2008
パッケージもガラッと変わっているようです。
ダイナミックブロックの値
in LISP on 2007/01/25
ダイナミックブロックの値の種類と値を取得
(defun y_dyblklst(
E_NAME
/
V_OBJ
VARPRO
I
V_OBJ_BL
N_LST
DAT
D_LST
)
(setq V_OBJ (vlax-ename->vla-object E_NAME))
(setq VARPRO (vlax-variant-value (vla-GetDynamicBlockProperties V_OBJ)))
(setq I (vlax-safearray-get-l-bound VARPRO 1))
(while I
(setq V_OBJ_BL (vlax-safearray-get-element VARPRO I))
(setq N_LST (append N_LST (list (vla-get-PropertyName V_OBJ_BL))))
(setq DAT (vla-get-value V_OBJ_BL))
(cond
((= 2 (vlax-variant-type DAT))
(setq DAT (vlax-variant-value DAT))
)
((= 5 (vlax-variant-type DAT))
(setq DAT (vlax-variant-value DAT))
)
((= 8 (vlax-variant-type DAT))
(setq DAT (vlax-variant-value DAT))
)
(T
(setq DAT (vlax-safearray->list (vlax-variant-value DAT)))
)
)
(setq D_LST (append D_LST (list DAT)))
(setq I (1+ I))
(if (> I (vlax-safearray-get-u-bound VARPRO 1))
(setq I nil)
)
)
(list N_LST D_LST)
)
(("X 距離" "Y 距離" "Origin" "反転状態" "側溝反転" "ルックアップ")
(77.9525 24.6063 (0.0 0.0 0.0) 1 1 "拝み"))
こんな感じ。
Loading ...
