0

２点指定による測量座標系・ワールド座標系図面の原点・UCS設定マクロ
Autocad 2009位だと動作するみたいですが、2012では、誤動作していまいます。
修正できる方、宜しくお願い致します。 下記のマクロを Autocad 2012 で動作できるように修正していただきたいのですが
宜しくお願い致します。


*^c^c$m=setenv;to;0;$(nth,$(getenv,to),setenv;s1w0;^X【数学座標=0、測量座標=1】^X;p0;^X【起点座標】^X;p1;^X【終点座標】^Xundo;be;ucs;w;"""$m=$(if,$(=,$(getenv,s1w0),1),ucs;z;90d;;x;180d;)"""setenv;to;1,,)$(nth,$(getenv,to),,ucs;o;^X【起点指示】^Xline;non;"0,0";^X【終点指示】^X;erase;l;;userr3;"""$m=$(getvar,lastangle)""";line;non;$(getenv,p0);non;$(getenv,p1);;zoom;e;erase;l;;zoom;e;setenv;to;2,)$(nth,$(getenv,to),,,ucs;z;$(-,$(getvar,userr3),$(getvar,lastangle))r;;o;non;$(*,-1,$(getenv,p0))","$(*,-1,$(index,1,$(getenv,p0)));expert;4;ucs;s;$(nth,$(getenv,s1w0),w_user,s_sokuryou);expert;0;undo;e;^c_select;);

質問者が選んだベストソリューション

Yahoo!知恵袋 4768日前