Jw_cad 情報交換室

Jw_cad 情報交換室－その３ New

　JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談室－その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

2009年9月以前の発言は過去ログのページからご覧ください。

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

258 / 1498 ←次へ　｜　前へ→

一発で全レイヤを編集レイヤにする方法

CroPanda - 23/6/30(金) 2:40 -

WSHを利用した外部変形を紹介します。

下記batとvbsをお試し下さい。
（私はクロックメニュー：左ロングPM1時に仕込んで利用しています。）

以下の流れをVBスクリプトへ記述します。
　→[F3]
　→[TAB キーを×22回]
　→[スペースキー]

補足：「82 = ﾚｲﾔの設定」の仕込み先 key は［F3］　→ "{F3}"
　　　仕込み先［KEY］の記述は適宜に書き換えてください。

スクリプト
-----ファイル名：All_LayerON.vbs -------------------
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "jw_win"
WScript.Sleep 50
WshShell.Sendkeys "{F3}"
WScript.Sleep 200
WshShell.Sendkeys "{TAB 22}"
WScript.Sleep 50
WshShell.Sendkeys " "
----------------------------------------------------

バッチファイル
-----ファイル名：-All_LayerON-.bat -----------------
@REM レイヤ設定　全レイヤ編集
@echo off
REM #jww
REM #cd
REM #h0
REM #e

ECHO h#　【全レイヤ編集】を実行　 >jwc_temp.txt
start wscript.exe All_LayerON.vbs
----------------------------------------------------