取り敢えずテスト中 ＠レイフレ１４-A05

CAD図面が抹消され、魔法陣っぽくなったりするマクロ

^C^C_ucsicon;of ,^C^C_erase;all; ,^C^C_zoom;c;0,0;708 ,^C^C_-layer;s;0;l;Continuous;0;; ,^C^C_-color;6 ,^C^C_rectang 38.5,38.5;-38.5,-38.5; ,^C^C_rotate -65.5,65.5;65.5,-65.5;;0,0;c;45; ,^C^C_-layer;s;0;l;Continuous;0;; ,^C^C_-color;4 ,^C^C_polygon 109;0,0;i;51;; 0,0;i;27; ,^C^C_-layer;s;0;l;Continuous;0;; ,^C^C_-color;2 ,^C^C_polygon 109;0,0;i;59;; 0,0;i;30; ,^C^C_-layer;s;0;l;Continuous;0;; ,^C^C_-color;6 ,^C^C_polygon 73;0,0;i;51;; 0,0;i;59; ,^C^C_-layer;s;0;l;Continuous;0;; ,^C^C_-color;6 ,^C^C_polygon 137;0,0;i;27;; 0,0;i;30; ,^C^C_ai_selall xplode ;; ,^C^C_ai_selall G ,^C^C_zoom;e; ,^C^C_ai_selall mirror;0,173;0,-173;\ ,^C^C_zoom;c;0,0;708708 ,^C^C_circle 0,0;320 ,^C^C_zoom;e; ,^C^C_extend 297,-277;-297,-207; 40,-40;-40,-16;37,-37;-37,-13;51,-51;-51,-13;40,16;-40,40;37,13;-37,37;51,13;-51,51

（文字化けで、￥小文字が \ になってます。） 

普通の図面が・・・・

抹消され、魔法陣（？）が描かれます。

君はコマンドライン上で Ｙ（yes） or N（No） の運命の選択を迫られる！

コマンドプロンプトに対し、"N" もしくはそのままEnter を入力すると・・・・・・

こうなります・・・・・・

拡大して見てみると、こんな感じ。　　きれい？

「ああぁん！　もっとなのは色で染めてぇ！」　by 脳内ふぇいとさん

構成を見ると分かりますが、丸いのは円ではなくポリゴンです。１０９角形とか・・・・

あとは単純にブロックを分解し、ひたすた範囲を選択して最終円まで延長してるだけ～～

ちなみに、"Y" を入力すると少しだけボリュームの少ない感じのが出来上がります。

単純にミラーコマンドの要求なので・・・・

　も一個。

いろいろと反省させられるマクロ

^C^C_ucsicon;of ,^C^C_-layer;on;*;; ,^C^C_-layer;t;*;; ,^C^C_-layer;_unlock;*;; ,^C^C_-layer;s;0;c;6;0;l;Continuous;0;lw;0.09;0;; ,^C^C_-color;6 ,^C^C_'-linetype;s;Bylayer; ,^C^C_'-lweight;Bylayer ,^C^C_model ,^C^C_erase;all;; ,^C^C-purge ;;a;*;n; ,^C^C_layout;d;; ,^C^C_layout;d;; ,^C^C_layout;d;; ,^C^C_layout;s;; ,^C^C_erase;all;; ,^C^C-purge ;;a;*;n; ,^C^C_model ,^C^C_-MTEXT;0,0;J;MC;S;SCALE;H;708;0,0;ちょっと、頭冷やそっか・・・;; ,^C^C_zoom;e  ,^C^C_qsave _quit

全空間全削除・全要素パージされ、なのはさんのセリフと共に上書き保存・終了されます・・・・・・

「だ、ダメだよ、なのは。　これ以上されたら、　あっ！　　ああぁぁぁん！！」

・・・・・・・ごめんなさい。　　ちょっと頭冷してきます・・・・・・・・

図面は架空のものですよ～～

スポンサーサイト