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 - |
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
 |
 |
外部変形 ソリッド色変更 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 |
|