AutoCADマクロ屋本舗 掲示板

お世話になっております。
今回のご相談は　前回の　自動分割長さ寸法線を　少し変えた感じの
両端任意指定の長さ寸法線です。
寸法線を　指定した時　両端に　任意の数値を入力し
残りの寸法線を作図するという流れです。
例えば　1000の寸法線を2点指定した時点で　両端に発生させる寸法線数値を入力します。
100と入力すれば　100+800+100　の3個の寸法線を作図する　流れなのですが・・・
左右(上下)の入力値が　それぞれ別々の数値でも　可能でしょうか?
どうぞよろしくお願い致します。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),dimlinear;\$M=\$M=\setenv;寸法始;\;寸法終;\;p1;"""$(getvar,lastpoint)""";;p2;"""""""$(getvar,lastpoint)""""""";;to;1,,)$(nth,$(getenv,to),,line;non;$(getenv,p2);non;$(getenv,p1);;ucs;e;l;lengthen;dy;;;l;;;erase;l;;select;l;;setenv;to;2,)$(nth,$(getenv,to),,,dimcontinue;non;$(getenv,寸法終)<0;;;dimspace;l;p;;$(*,$(getvar,DIMDLI),$(getvar,DIMSCALE));dimcontinue;non;$(-,$(getvar,perimeter),$(getenv,寸法始))<0;non;$(getvar,perimeter)<0;;;^Cucs;p)^M

マクロ実行して寸法線を書いた後に、始めと終わりの寸法を入力

Lon様　早速のご対応ありがとうございます。
私の思った通りの　動きてす。とても　助かります。
ありがとうございました。

両端任意指定の長さ寸法線
自動分割　長さ寸法線
上記のマクロが2014LTでは作動しないのですが，設定の変更とかがあるのでしょうか？
教えて下さい

どちらのマクロも質問者さんのCAD（LT2018）用に作ってます。
LT2014で動かすためには、
https://ameblo.jp/totthi-macro/entry-12220279344.html
ここに書いてあることを逆に実行すれば良いと思います。

つまり、マクロ内の
lengthen;dy;;;l;;;
を
lengthen;l;;
に変更する。

これで動く様になると思われます。

当方、LT2014での検証が出来ませんので、違う原因の場合はゴメンナサイ。

Lonさん
マクロ内の文字変更で動作ができました
ありがとう御座います．

御世話になります。

こちらのマクロに追加してほしい動作があります。

両端の寸法の間に指定した寸法を同じピッチで入れたいのですが可能でしょうか。

指定寸法を1000としら『（端部寸法）+1000+1000+1000+1000+残り+（端部寸法）』の様な感じです。

指定寸法は固定ではなく毎回入力できるようにしたいです。

宜しくお願い致します。

（AUTOCAD2019）

とりあえず、こっちのトピックを見て下さい。
http://totthi.bbs.fc2.com/?act=reply&tid=16470759#23618738

「指定寸法を1000」ではなく、「分割数を4」としたら『（端部寸法）+1000+1000+1000+1000+残り+（端部寸法）』の様になります。

「指定寸法を1000」がご希望ならマクロを作り変える必要がありますが、
多忙なため、ほかの人からのフォロー期待

あ。

>「指定寸法を1000」ではなく、「分割数を4」としたら『（端部寸法）+1000+1000+1000+1000+残り+（端部寸法）』の様になります。

これ、ならないです。

「残り」が無い時だけなります。

作り変えが必要みたいですね。

余計なことして難しく考えているような気はするけど
とりあえずLt2019で確認しました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),dimlinear;\$M=\$M=\setenv;寸法始;\;寸法終;\;分割長;\;p1;"""$(getvar,lastpoint)""";;p2;"""""""$(getvar,lastpoint)""""""";;to;1,,,,,)$(nth,$(getenv,to),,line;non;$(getenv,p2);non;$(getenv,p1);;ucs;e;l;lengthen;dy;;;l;;;erase;l;;select;l;;setenv;to;2,,,,)$(nth,$(getenv,to),,,;分割数;$M="""$(fix,$(/,$(-,$(getvar,perimeter),$(getenv,寸法始),$(getenv,寸法終)),$(getenv,分割長)))""";;to;3,,,)$(nth,$(getenv,to),,,,;p3;$(-,$(getvar,perimeter),$(getenv,寸法始),$(getenv,寸法終),$(*,$(getenv,分割長),$(getenv,分割数)));;to;4,,)$(nth,$(getenv,to),,,,,dimcontinue;non;$(getenv,寸法終)<0;non;$(+,$(getenv,寸法終),$(getenv,p3))<0;non;$(+,$(getenv,寸法終),$(getenv,p3),$(getenv,分割長))<0;;;setenv;to;5,)$(nth,$(getenv,to),,,,,,erase;p;;copy;l;;non;@;a;$(getenv,分割数);non;@$(getenv,分割長)<0;dimcontinue;non;$(getvar,perimeter)<0;;;^Cucs;p)^M

Lon様
返答ありがとうございます。
そちらのトピックも参照させて頂きましたが
ご指摘の通り等分ではできませんでした。

chibi-tom様
マクロありがとうございます！
やりたい事はこの通りなのですが
端部を0とした場合止まってしまいます。
それと上の段にトータル寸法も入れたいのですが。。。
要望ばかりですみませんが宜しくお願い致します。

自分もLonさんのを勝手にいじっているだけなので
うまく動作するかはわかりませんが

こんな感じでLt2019で確認しました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),dimlinear;\$M=\$M=\setenv;寸法始;\;寸法終;\;分割長;\;p1;"""$(getvar,lastpoint)""";;p2;"""""""$(getvar,lastpoint)""""""";;to;1,,,,,,)$(nth,$(getenv,to),,line;non;$(getenv,p2);non;$(getenv,p1);;ucs;e;l;lengthen;dy;;;l;;;erase;l;;select;l;;setenv;to;2,,,,,)$(nth,$(getenv,to),,,;分割数;$M="""$(fix,$(/,$(-,$(getvar,perimeter),$(getenv,寸法始),$(getenv,寸法終)),$(getenv,分割長)))""";;to;3,,,,)$(nth,$(getenv,to),,,,;p3;$(-,$(getvar,perimeter),$(getenv,寸法始),$(getenv,寸法終),$(*,$(getenv,分割長),$(getenv,分割数)));;to;4,,,)$(nth,$(getenv,to),,,,,dimcontinue;$(if,$(getenv,寸法終),non;$(getenv,寸法終)<0;non;,non;)$(+,$(getenv,寸法終),$(getenv,p3))<0;non;$(+,$(getenv,寸法終),$(getenv,p3),$(getenv,分割長))<0;;;setenv;to;5,,)$(nth,$(getenv,to),,,,,,dimspace;l;p;;$(*,$(getvar,DIMDLI),$(getvar,DIMSCALE));setenv;to;6,)$(nth,$(getenv,to),,,,,,,copy;l;;non;@;a;$(getenv,分割数);non;@$(getenv,分割長)<0;$(if,$(getenv,寸法始),dimcontinue;non;$(getvar,perimeter)<0;;;^Cucs;p,^Cucs;p))^M

これです！
マクロでここまで出来るとは感動しました！！
お忙しい中本当にありがとうございました。

chibi-tomさんのマクロで全く問題無いのですが、

自分的なこだわりで（始⇒終）の順に書く様に、マクロを作り替えてみました。
操作方法も動作結果もchibi-tomさんのマクロと同じですので、お試し頂く必要もございません。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),dimlinear;\$M=\$M=\setenv;寸法始;\;寸法終;\;定尺寸;\;p1;"""$(getvar,lastpoint)""";;p2;"""""""$(getvar,lastpoint)""""""";;to;1,,,,,)$(nth,$(getenv,to),,line;non;$(getenv,p1);non;$(getenv,p2);;ucs;e;l;lengthen;dy;;;l;;;erase;l;;select;l;;setenv;to;2,,,,)$(nth,$(getenv,to),,,;Cnt;$(fix,$(/,$(-,$(getvar,perimeter),$(getenv,寸法始),$(getenv,寸法終)),$(getenv,定尺寸)));;to;3,,,)$(nth,$(getenv,to),,,,dimcontinue;non;0<0;;;erase;p;;select;l;;dimcontinue;$(if,$(getenv,寸法始),non;$(getenv,寸法始)<0;)non;$(+,$(getenv,寸法始),$(getenv,定尺寸))<0;;;setenv;to;4,,)$(nth,$(getenv,to),,,,,dimspace;l;p;;$(*,$(getvar,DIMDLI),$(getvar,DIMSCALE));copy;l;;non;@;a;$(getenv,Cnt);non;@$(getenv,定尺寸)<0;setenv;to;5,)$(nth,$(getenv,to),,,,,,dimcontinue;$(if,$(getenv,寸法終),non;$(-,$(getvar,perimeter),$(getenv,寸法終))<0;)non;$(getvar,perimeter)<0;;;^Cucs;p)^M

Lon様

完璧です！
寸法の始終点がわかりやすくなっているので使いやすくなりました。
ありがとうございます！