Jw_cad 情報交換室−その３
JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
Jw_cad Copyright (C)1997-2021 Jiro Shimizu & Yoshifumi Tanaka
JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
 |
 |
外部変形 ソリッド色変更 tonbo 26/6/19(金) 20:59 |
|
 |
Re:外部変形 ソリッド色変更 Since Dos 26/6/20(土) 15:52 |
![[NEW]](./brd/003/image/new_icon.gif){kind=icon}
|
|
 |
Re:外部変形 ソリッド色変更 tonbo 26/6/20(土) 19:08 |
|
|
tonbo - 26/6/19(金) 20:59 - |
GoogleのAIモードに手伝ってもらい ソリッド色変更の外部変形を作ってみました。
パワーシェルでパレットを立ち上げ好きな色を選べます。
興味のある方はお試しください。
*左端のダブルクォーテーション（ " ）の前に半角スペースが無いと上手く動きませんでした
-----------ソリッド色変更.bat---------------------------
@REM 一括 ソリッド色変更（全グループレイヤ対象）
@echo off
REM
REM #jww
REM #cd
REM #h1
REM #hcソリッドの色を変更 範囲選択
REM #g1
REM #hr
REM #e
powershell -NoProfile -ExecutionPolicy Bypass -Command ^
"Add-Type -AssemblyName System.Windows.Forms; " ^
"$d = New-Object System.Windows.Forms.ColorDialog; " ^
"$d.FullOpen = $true; " ^
"if ($d.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK) { " ^
" $hex = '#{0:X2}{1:X2}{2:X2}' -f $d.Color.R, $d.Color.G, $d.Color.B; " ^
" Set-Content -Path 'color.txt' -Value $hex -Encoding Ascii; " ^
"}"
copy jwc_temp.txt temp.txt
jgawk -f ソリッド色変.awk temp.txt > jwc_temp.txt
---------------------キリトリ---------------------------------------------
------------------ソリッド色変.awk-----------------------------------------
BEGIN {
color_file = "color.txt"
if ((getline < color_file) > 0) {
hex_color = $0
}
close(color_file)
}
/^hq/ {print "hd";next}
/^lc10/ {
print "lc 10 "hex_color
next
}
{print $0}
-----------------------------------------------------------
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/149.0.0.0 Safari/537.36
|
Since Dos
- 26/6/20(土) 15:52 -
|
▼tonboさん：
>*左端のダブルクォーテーション（ " ）の前に半角スペースが無いと上手く動きませんでした
半角スペースが無いと、パレットが立ち上がらないで、いきなり前回の色に変更されますね。
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/148.0.0.0 Safari/537.36
|
tonbo
- 26/6/20(土) 19:08 -
|
作成した色と選択した色をカレントのＴＸＴファイルに保存し
次回起動時に読み込むようにしました。（してもらいました。）
JW_CAD本体のカラーパレットとは同期しません。
AWKスクリプトは変更なしです。
-------------------------------------------------------
@rem 一括 ソリッド色変更（全グループレイヤ対象）
@echo off
rem
rem #jww
rem #cd
rem #h1
rem #hcソリッドの色を変更 範囲選択
rem #g1
rem #hr
rem #e
powershell -noprofile -executionpolicy bypass -command ^
"add-type -assemblyname system.windows.forms; " ^
"$d = new-object system.windows.forms.colordialog; " ^
"$d.fullopen = $true; " ^
"$sf = 'color_settings.txt'; " ^
"if (test-path $sf) { " ^
" $lines = get-content $sf; " ^
" if ($lines.count -ge 2) { " ^
" if ($lines[0]) { $d.color = [system.drawing.colortranslator]::fromhtml($lines[0]) }; " ^
" $arr = $lines[1] -split ',' | foreach-object { [convert]::toint32($_, 10) }; " ^
" $d.customcolors = $arr; " ^
" } " ^
"} " ^
"if ($d.showdialog() -eq [system.windows.forms.dialogresult]::ok) { " ^
" $hex = '#{0:x2}{1:x2}{2:x2}' -f $d.color.r, $d.color.g, $d.color.b; " ^
" set-content -path 'color.txt' -value $hex -encoding ascii; " ^
" $ccText = $d.customcolors -join ','; " ^
" @($hex, $ccText) | set-content -path $sf -encoding ascii; " ^
"}"
copy jwc_temp.txt temp.txt
jgawk -f ソリッド色変.awk temp.txt > jwc_temp.txt
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/149.0.0.0 Safari/537.36
Jw_cad Copyright (C)1997-2021 Jiro Shimizu & Yoshifumi Tanaka
