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

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

線分及びポリラインの傾きに合わせて延長記入
いつも大変御世話になっております。
autocad2018を使用し、線分及びポリラインの傾きに合わせて延長記入マクロを以下に作成しました。

^C^C_dist;\\_text;\;$m=$(rtos,$(*,$(getvar,lastangle),57.29577951));L=$(rtos,$(/,$(getvar,distance),1000),2,1)0m;

しかし上記のマクロでは最後に作成した線分及びポリラインの角度が反映されるため難儀しております。
distance はdistマンドで計算された距離が格納されますが、角度はどのような変数に格納されているのでしょうか?
既に作成済みの線分及びポリラインに対応できるようなマクロを作成したいと考えています。
何卒御教示願います。

尚、図面はmmで作成しており、記載する延長には「L=00.0m」と表示させるようにしております。


  • cohjin
  • 2018/02/28 (Wed) 11:18:06
Re: 線分及びポリラインの傾きに合わせて延長記入
lineを描いてしまえばよいと思います。
これでどうでしょうか?
^C^C_line;\\;lengthen;dy;;;l;;;erase;l;;_text;\;$m=$(rtos,$(*,$(getvar,lastangle),57.29577951));L="$m=$(rtos,$(/,$(getvar,perimeter),1000),2,1)"0m;^Z
  • chibi-tom
  • 2018/02/28 (Wed) 13:03:04
Re: 線分及びポリラインの傾きに合わせて延長記入
余計なものが・・・ちょっと修正
^C^C_line;\\;lengthen;dy;;;l;;;erase;l;;_text;\;$m=$(rtos,$(*,$(getvar,lastangle),57.29577951));L=$m=$(rtos,$(/,$(getvar,perimeter),1000),2,1)0m;^Z
  • chibi-tom
  • 2018/02/28 (Wed) 13:05:43
Re: 線分及びポリラインの傾きに合わせて延長記入
早速の返信有難う御座います。
線を描くという発想とそれをマクロに反映出来る知識の深さに感服しております。
当方でも動作確認出来ました。有難う御座います。

尚、本マクロはautocad2012の所有者でも使用出来るのでしょうか?
大変便利なものなので、同じ仕事をしている者にも勧めたいと考えています。

  • cohjin
  • 2018/02/28 (Wed) 15:20:33
Re: 線分及びポリラインの傾きに合わせて延長記入
lengthenの仕様が違うと思います。
なので
lengthen;dy;;;l;;;の部分を
lengthen;l;;にすればできるとは思います。
  • chibi-tom
  • 2018/02/28 (Wed) 15:31:01
Re: 線分及びポリラインの傾きに合わせて延長記入
再び早速の回答有難う御座いました。
autocad2012でも動作が確認できました。

大変重宝しております。
誠に感謝しております、有難う御座いました。
  • cohjin
  • 2018/02/28 (Wed) 18:29:16

返信フォーム






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