近くにある気になってた(BlogPet)
in ブログペット on 2007/01/30
大きいマジとか、大きいシェフなど載ってた
椿山荘のシェフ？
アズネット多摩
メモがわり
近くにある気になってた
と、ゆりが考えてるみたい♪
*このエントリは、BlogPet(ブログペット)の「うり坊」が書きました。
ゆりの(BlogPet)
in ブログペット on 2007/01/26
きょううり坊はサーバーへマークされたみたい…
きょううり坊は、パソコンをオンしなかったよ。
ゆりの、マークしたいなぁ。
きのうゆりで、サーバーを愛用したよ♪
*このエントリは、BlogPet(ブログペット)の「うり坊」が書きました。
ダイナミックブロックの値
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 "拝み"))
こんな感じ。
続けるには［Enter］キーを
in memo on 2007/01/24
続けるには［Enter］キーを押してください：
がうざいアナタへ。
表示できなくはないですが、この変数、他のことも制御しているそうです。
設定したら必ず元に戻しましょう。
QAFLAGSを 6 に設定して下さい。
元に戻すには 0 です。
計算書
in Civil memo on 2007/01/23
縦断計算書が欲しいなぁ、とか、横断勾配の計算が欲しいなぁ、
とか色々あると思うんですが、
この機能、なんか隠れてるような気がします。
[一般]→[ツールボックス]
で、ツールスペースに「ツールボックス」タブを表示させると、
様々な計算書を使用できます。
選んで右クリックのショートカットから実行です。
VBAでできてるので、編集や作図もできるし、
このツールボックスに登録も可能です。
・・・登録まではできたけど、VBAの中身をいじることがまだあまりできません・・・。
がんばりたいなぁ。
Loading ...
