« 断面指示線 | トップページ | 昇順ソート »

2013年10月29日 (火)

取消し線

Jw_cad相談室での質問ですが・・・・・
文字に取消し線を作図する外部変形を作ってみました。m(__)m

--------------------
@REM 取消し線
@echo off
REM #jww
REM #cd
REM #h3    文字選択
REM #hc    文字(水平横文字)を選択してください
REM #e
jgawk '/hs/{for(i=0;i^<=9;i++)S[i]=$(i+2);S["a"]=$12;S["b"]=$13;S["c"]=$14;S["d"]=$15;S["e"]=$16;S["f"]=$17}/lg/{lg=substr($1,3);sc=S[lg]}/hch/{for(i=0;i^<=9;i++)ch[i+1]=$(i+2)}/cn/{if($1=="cn0"){cwh=$2;cht=sc*$3}else if(substr($1,4,1)=="$"){}else{h=substr($1,3);cht=sc*ch[h]}}/^^ch/{x0=$2;y0=$3;lth=$4;dh=int(100*cht/3)/100;xe=x0+lth;y1=y0+dh;y2=y1+dh;print x0,y1,xe,y1;print x0,y2,xe,y2}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
# 水平横文字のみ適用
# 書込み線色・線種で作図
# 2013.10.29 by somem
:end

|

« 断面指示線 | トップページ | 昇順ソート »

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/94529/58478674

この記事へのトラックバック一覧です: 取消し線:

« 断面指示線 | トップページ | 昇順ソート »