この掲示板は AutoCADマクロ屋本舗 の掲示板です。

【 注意 】最初に必ず ↓↓ 下記内容 ↓↓ を参照ください。
① マクロが分からない方は、まず 【 マクロ講座 】 を参照ください。
② 質問の前に 【 マクロ使用前の注意事項 】 をお読みください。
③ 質問する時は、新規投稿フォーム下の【 新規投稿時のお願い 】を必ずお読みください。

寸法文字をひっくり返す
お世話になります。
LT2013ユーザーのマクロ初心者です。

オブジェクトプロパティの中で寸法文字の方向を
「右から左」「左から右」と変える操作はあるのですが
文字がその位置で変わるだけなので、寸法線を境にして
ひっくり返して表記をさせるマクロを作りたいのですが
ご教授いただけないでしょうか。
  • くまごろう
  • MAIL
  • 2015/06/06 (Sat) 12:17:02
Re: 寸法文字をひっくり返す
こんな感じでできると思います

^C^C_select;$M=$(if,$(getvar,"cmdactive"),\,)_dimoverride;dimtad;4;dimtxtdirection;1;;p;;^Z

lt2011動作確認です
コマンド、変数なくなって無ければ良いが
  • chibi-tom
  • 2015/06/08 (Mon) 11:53:38
Re: 寸法文字をひっくり返す
元に戻せるよう切替オプション付にしました。
自動識別はこの方法では出来なかった。

*^C^C_ray;逆向(左)/正向(右)=^X\$M=$(if,$(getvar,cmdactive),;_select;\dimoverride;dimtad;4;dimtxtdirection;1;;p;,_select;\dimoverride;dimtad;1;dimtxtdirection;0;;p;)^M
  • chibi-tom
  • 2015/06/09 (Tue) 09:01:01
Re: 寸法文字をひっくり返す
chibi-tomさん ありがとうございます。


私の操作が不十分なのか、LT2013のせいなのかわかりませんが
切り替えオプション付きのマクロを試用してみましたが
一度目はひっくり返るのですが、ひっくり返した寸法に
再度コマンドを実行しても元には戻せませんでした。

投稿にご返信を戴いたのに申し訳ありません。



  • くまごろう
  • 2015/06/09 (Tue) 17:36:08
Re: 寸法文字をひっくり返す
chibi-tomさんからご教授戴いたマクロを使って
寸法文字をひっくり返す、ひっくり返った寸法文字は
戻すというマクロを作ろうとしていますがどうも上手くいきません、校正よろしくお願いします。

*^C^C_select;$M=$(if,$(getvar,"cmdactive"),\,)_dimoverride;dimtad;4;dimtxtdirection;1;;p;;,_select;\dimoverride;dimtad;1;dimtxtdirection;0;;p;^Z
  • くまごろう
  • 2015/06/09 (Tue) 23:07:51
Re: 寸法文字をひっくり返す
chibi-tomさん対応どもです。

くまごろうさん
ちょっと仕事の方が忙しいので
後日検証いたします。
申し訳ありませんが、しばらくお待ちください。

とってぃ


※追記
LT2013で試してみましたら、問題無く動作しました。

当HPメニューの
AutoCAD R/LT 2013の注意点
http://ameblo.jp/totthi-macro/entry-11228055581.html
参照ねがいます。

特に
・コマンドラインの仕様変更
・selectコマンドの仕様変更
上記二点のご確認を。
  • とってぃ
  • 2015/06/10 (Wed) 08:16:36
Re: 寸法文字をひっくり返す
このマクロでは自動でひっくり返っているのを判断できないのです。

ですので
戻す場合はマクロ起動時にまず、マウスの右クリックをしてからオブジェクトの選択をするようにしました。
これで動かないと、私も勉強中なのでお手上げになってしまいます。
すいません


  • chibi-tom
  • 2015/06/10 (Wed) 08:22:27
Re: 寸法文字をひっくり返す
chibi-tomさん、とってぃさん
ご対応ありがとうございます。

chibi-tomさんの切替えオプション付きマクロで操作できました。恥ずかしながら私の操作が不十分だったようです。

  • くまごろう
  • 2015/06/10 (Wed) 11:14:50

返信フォーム






プレビュー (投稿前に内容を確認)