« Googlemap | トップページ | Snipping Tool »

2014年5月24日 (土)

線_文字色一括変更

Jw_cad情報交換室から、線色と文字色を指定線色で一括変更する外変です。
任意のファイル名でバッチファイルとして保存してください。

@REM 線_文字色一括変更
@echo off
REM #jww
REM #cd
REM #h1 範囲内データ選択
REM #hc 線、文字を範囲選択してください
REM #g1 全レイヤグループ対象
REM #ht10 ブロック図形除外
REM #ht30 寸法図形除外
REM #ht40 ソリッド図形除外
REM #hr
REM #e
jgawk 'BEGIN{lc="lc3";cc=substr(lc,3,1)}/hq/{print "hd";next}/^^hcw/{for(i=0;i^<=9;i++)cw[i+1]=$(i+2)}/^^hch/{for(i=0;i^<=9;i++)ch[i+1]=$(i+2)}/^^hcd/{for(i=0;i^<=9;i++)cd[i+1]=$(i+2)}/^^lc/{m=m+1;if(m==1){culc=$0;print lc;next}{next}}/^^cn/{n=n+1;cnn=substr($1,3,1);if(n==1){cucn=$0}if(n==1 ^|^| n^>=3){if(cnn==0){$5=cc;print $0;next}else{print "cn0",cw[cnn],ch[cnn],cd[cnn],cc;next}}}{print}END{print culc;print cucn}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
##
# 選択した全レイヤグループの線、文字に適用
# 範囲選択から左AM0時「確定 基点(free)」を実行
# 指定線色を変更する場合は、lc="lc3"を変更 ⇒ 線色5の場合 lc5
# 2014.5.24  by somem
:end

|

« Googlemap | トップページ | Snipping Tool »

コメント

 キョロo(・ω・ = ・ω・)oキョロ
 こんちゃ m(_ _"m)ペコリ

 さて・・(いきなり本題に)
cord2を便利に利用させて頂いているわけですが、Excel2010ってCSVできちんと 吐き出してくれないのかな? どうも外部変形が言うこときいてくれません・・

 たぶんExcelさんのせいだと おもうのですが・・・
 これって 何か解決方法ありますか?

 この外部変形とっても便利で、現場で測量した 角度・距離一瞬で作図できるので 大変重宝しております。

 お時間のある時で 結構です。なんとかする方法があれば ご教授ください。

投稿: うにょれっど | 2014年6月21日 (土) 14時21分

((((;゜Д゜)))ガクガクブルブル
 somemuさん ごめんなさい
 ##を入れ忘れてました! すいません・・・・

 新規建物の測量や、計画段階で フル活用しているのですが・・
 毎回、ポイントが増えていった お陰で・・・##つけるの忘れてました  (;´Д`A ```

投稿: うにょすけ | 2014年6月21日 (土) 14時39分

うにょすけさん、お久しぶり。

とりあえず、解決したんですね。
忘れ物には、気をつけましょう。(^^♪

投稿: somem | 2014年6月21日 (土) 18時09分

somemさん 2014/06からの課題だった。外部変形に
けりが着きました。厚く御礼を申し上げます。


@REM 中間高 【HO_CAD用に変更】 *
@echo off
REM #jw
REM #h0
REM #cd
REM #1起点指示
REM #2端点指示
REM #3中間点・延長点指示
REM #1ch 起点高さ指示【TXT読み込み】
REM #2ch 端点高さ指示【TXT読み込み】
REM #e
copy jwc_temp.txt test.txt > nul
gawk.exe -f 中間高.awk test.txt > jwc_temp.txt
del test.txt
end

## 中間高.awk

## データ取得
/^hp1/{X1=$2;Y1=$3}
/^hp2/{X2=$2;Y2=$3}
/^hp3/{X3=$2;Y3=$3}
/^hhp4/{n=1}
/^hhp5/{n=2}
/^ch/{
if(n==1){H1=substr($6,2)*10^3}
if(n==2){H2=substr($6,2)*10^3}
}
## 出力データ
END{
L1=sqrt((X1-X2)^2+(Y1-Y2)^2);L2=sqrt((X1-X3)^2+(Y1-Y3)^2)
Y3=Y3+10
chr=int((H2-H1)/L1*L2+H1)/1000
printf "%s %e %e %e %e \"%s\n","ch",X3,Y3,10,0,chr
}

今度は、また挑戦したいと思いますので御指導
宜しく願います。

投稿: | 2015年4月17日 (金) 15時54分

**さん、こんにちは。

お役に立てて何よりです。
使い方、よくわからないですが、動作確認はできました。
何かありましたら、いつでもどうぞ

投稿: somem | 2015年4月18日 (土) 10時38分

4/17に投稿した者です。教えて頂けたら幸いです。
jww 外部変形で#Cを含む計算後に、他の計算(#cを含まない)演算をすると、外部変形パラメータ窓が開きます。
空打ちでも別に問題は、無いのですが解消する方法が
あるのでしょうか?

牛渡 浩様のP untilW重要情報にも、似た記事が載っていました。
Dos/コマンドプロンプト辞典で、set %1= を試したのですが、挿入位置がまずいのか、コマンド拡張機能を
使用しないからか分かりません。

なにとぞ御教授願います。

投稿: かっくん | 2015年5月 5日 (火) 05時01分

かっくんさん、こんにちは。

#cは、半角文字入力ですが、末尾に起動オプションの設定をされているのでしょうか?
いずれにしても、ご質問の文面だけでは、お答えするのが難しいです。
バッチファイルは、公開できますか?メールでもOKです。

caddwg.2006@gmail.com

投稿: somem | 2015年5月 5日 (火) 10時37分

土木設計の真似ごとをしています。

重宝しているのが面積・図心計算とsomemさん監修の
拙作、中間高計算です。

@REM 面積・図心計算【HO_CAD用に変更】 *
@echo off
REM #jw
REM #h1
REM #hc事前に必ず重複線の整理等を行って下さい
REM #hc結合した線分の面積を計算します
REM #1記入位置 マウス指示 (L)free(R)Read
REM #c図心計算(する:1 しない:パス):/_/CENT
ren jwc_temp.txt dummy
gawk.exe -f 面積図心.awk %1 dummy > dummy2
gawk.exe "/.+/ {print}" dummy2 > jwc_temp.txt
del dummy
del dummy2


@REM 中間高 【HO_CAD用に変更】 *
@echo off
REM #jw
REM #h0
REM #cd
REM #1起点指示
REM #2端点指示
REM #3中間点・延長点指示
REM #1ch 起点高さ指示【TXT読み込み】
REM #2ch 端点高さ指示【TXT読み込み】
REM #e
copy jwc_temp.txt test.txt > nul
gawk.exe -f 中間高.awk test.txt >
jwc_temp.txt
del test.txt
end

面積図心は、jw外変のkouzouzuの流用です。永年
使ってきました。

投稿: かっくん | 2015年5月 6日 (水) 05時29分

かっくんさん、こんばんは。

TOYOさんの外部変形をダウンロードして検証しました。
http://www.geocities.co.jp/SiliconValley-Bay/9130/KOUZOU02.htm

バッチファイルは、JWW用に修正しています。

--------
@REM 面積・図心計算
@echo off
REM #jww
REM #cd
REM #h1
REM #hc事前に必ず重複線の整理等を行って下さい
REM #hc結合した線分の面積を計算します
REM #1記入位置 マウス指示 (L)free(R)Read
REM #c図心計算(する:1 しない:パス):/_/CENT
ren jwc_temp.txt dummy
gawk.exe -f 面積図心.awk %1 dummy >dummy2
type dummy2
pause
gawk.exe "/.+/{print}" dummy2 > jwc_temp.txt
type jwc_temp.txt
pause
--------

--------
@REM 中間高
@echo off
REM #jww
REM #h0
REM #cd
REM #1起点指示
REM #2端点指示
REM #3中間点・延長点指示
REM #1ch 起点高さ指示【TXT読み込み】
REM #2ch 端点高さ指示【TXT読み込み】
REM #e
copy jwc_temp.txt test.txt > nul
gawk.exe -f 中間高.awk test.txt > jwc_temp.txt
type jwc_temp.txt
pause
del test.txt
end
---------

計算結果が正しいかどうかまでは、検証しておりませんが、
特に不具合はありませんでした。

尚、Jw_cad相談室に同様の質問がありましたが、解決までには至っていないようです。
※現在は、キャッシュでしか見ることができません。
"外部変形パラメータ窓"で検索し、URL横のキャッシュをクリック。

ところで、gawkはどこから入手したものですか?

それから、"外部変形パラメータ窓"とは何でしょうか?
できれば、不具合が起きた時の画像を、下記掲示板に貼りつけていただけると、
解決が早くなるかもしれません。

http://cad-dwg.bbs.coocan.jp/

投稿: somem | 2015年5月 6日 (水) 20時34分

恥ずかしながら、画像(jpeg)の張り付け方が、よく解らないのです。ケータイから当方パソコンまでは、着いたのですが、この欄へ落ち着かせることができません。、それからgawkは、gawkm115.zipからです。

投稿: かっくん | 2015年5月 8日 (金) 15時03分

かっくんさん、こんにちは。

すいません。画像を投稿できない設定にしていました。m(__)m
新規記事の投稿⇒画像⇒ファイル選択で貼付けできると思います。

>gawkは、gawkm115.zipからです。
AWKは同じものですね。

投稿: somem | 2015年5月 8日 (金) 16時04分

う~む、おそらく私はまだ未熟なのでしょう。Zipで送ろうとしたのですが、張り付いてくれません。jpegも同様です。

投稿: かっくん | 2015年5月 9日 (土) 05時01分

かっくんさん、こんばんは。

掲示板には、zipファイルは使えません。
それから、新規投稿する画面に、貼り付けする画像は表示されません。

掲示板の「新規記事の投稿」から、下記手順を試してみてください。

1.画像の「ファイル選択」ボタンを押す。
2.ファイル選択のウィンドウが開きます。
3.貼り付けるjpegファイルを選択します。
4.ウィンドウ下の「開く」をクリックします。
 ファイル選択ボタンの右横にファイル名が表示されます。
5.その他の必須項目を記入の上、画像認証の数字を入力
6.投稿するボタンをクリック

投稿: somem | 2015年5月10日 (日) 00時11分

昨日、「新規記事の投稿」を探したのですが、所在が
分かりません、何度もお手数をお掛け致します。
お教え下さい。 トホホ・・

投稿: かっくん | 2015年5月11日 (月) 20時55分

かっくんさん、こんばんは。

掲示板は開けているんですよね。
URLにリンクを設定させたので、下記をクリックすれば、
掲示板が開きます。
http://cad-dwg.bbs.coocan.jp

「新規記事の投稿」ボタンは、私が投稿した図を見てください。

投稿: somem | 2015年5月11日 (月) 22時22分

コメントを書く



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




トラックバック

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

この記事へのトラックバック一覧です: 線_文字色一括変更:

« Googlemap | トップページ | Snipping Tool »