Jw_cad 相談室－その２

Jw_cad 相談室－その２ New

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

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

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

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

11 / 310 ﾂﾘｰ ←次へ　｜　前へ→

外部変形で用紙サイズを変更したいのですが 正廣 21/9/24(金) 10:15

Re:jwfでも既に開いている図面の用紙は変更できない。 正廣 21/9/28(火) 8:03

マクロで用紙サイズ変更 kojima 21/10/6(水) 20:15

Re:マクロで用紙サイズ変更 kojima 21/10/6(水) 23:09

Re:jwfでも既に開いている図面の用紙は変...

正廣

- 21/9/28(火) 8:03 -

▼kojimaさん：
>>私は図面サイズをA3でエクセルで数値を入力して自動でJW_cadで作図を作成させています。
>>数値によって図面枠からはみ出たり、するので外部変形で常時A3の図面を使用しているのを
>>数値によってA2の図面枠に変更したいのです。
>>とりあえずA3図面の時はエクセルの数値入力で印刷用に図面枠を作成しようかと思っています。
>
>違うレイヤにA3とA2の用紙枠を作図して、A2の時は、A3の用紙枠を非表示でいいのでは?

kojimaさんへ
ありがとうございます。kojimaさんのご指導のようにします。

・ツリー全体表示

マクロで用紙サイズ変更

kojima - 21/10/6(水) 20:15 -

マクロでできました。
短いコードですみます。
以下はrubyで書いていますが、マクロはVBscript や　Jscript VBA のほうが書きやすいと思います。
外部変形コマンドから実行できるようにしています。

@REM 用紙サイズの変更
@echo off
REM #jww
REM #cd
REM #e
start ruby -x %~f0

#!ruby -Ks
STDERR.puts "pape_size　0:A0 1:A1 2:A2 3:A3 4:A4 A:2A B:3A C:4A D:5A E:10m F:50m G:100m"
size=STDIN.gets.chomp
require 'win32ole'
shell=WIN32OLE.new("WScript.Shell")
shell.AppActivate("jw_win")
sleep(1)
shell.Sendkeys("%sy#{size}")
__END__
:end

EXCEL VBAのマクロだと以下のようになるようです？
(用紙サイズをA2にする)

Sub paper_size_change()
AppActivate "Jw_win.exe"
SendKeys "%sy2"
End Sub

・ツリー全体表示

Re:マクロで用紙サイズ変更

kojima - 21/10/6(水) 23:09 -

▼kojimaさん：
>EXCEL VBAのマクロだと以下のようになるようです？
>(用紙サイズをA2にする)
>
>Sub paper_size_change()
>AppActivate "Jw_win.exe"
>SendKeys "%sy2"
>End Sub

Sub paper_size_change()
AppActivate "Jw_win"
SendKeys "%sy2"
End Sub

でした。
EXCELからこのマクロを実行すると起動中のJWWの図面サイズがA2になります。

・ツリー全体表示

11 / 310 ﾂﾘｰ ←次へ　｜　前へ→

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

C-BOARD Moyuku v1.03b5