Jw_cad 相談室－その２

Jw_cad 相談室－その２ New

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

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

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

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

96 / 1490 ←次へ　｜　前へ→

Re:外変　引き出し線延長

ponpon - 25/6/4(水) 20:25 -

▼ponponさん：
>チャットGPTを使って作成しましたが、何も変わりません。
>やりたいことは範囲選択で囲った範囲の水平の引き出し線のみ→に10ｍｍ伸ばすことです。
>
>どこが間違っているのかご教授ください。
>
>@echo off
>REM #jww
>REM #cd
>REM #h2
>REM #hc 【囲んだ図形のうち、右向き水平な線だけを10mm延長します】
>
>setlocal enabledelayedexpansion
>> data.out (
> for /f "tokens=1-12" %%a in ('findstr "^1 " data.txt') do (
> set /a dx=%%g - %%e
> set /a dy=%%h - %%f
> if !dx! GTR 0 if !dy! GEQ -5 if !dy! LEQ 5 (
> set /a %%g+=10
> echo %%a %%b %%c %%d %%e %%f !%%g! !%%h! %%i %%j %%k %%l
> ) else (
> echo %%a %%b %%c %%d %%e %%f %%g %%h %%i %%j %%k %%l
> )
> )
>)
>endlocal
>exit /b 0
これだけならパラメ使えばいいじゃん。と思われると思いますが、
実際に行いたいことは尺度変更によってずれた引き出し線を延長して文字を上に任意の値分移動して引き出し線(水平)のセンターに合わせることまで外変で行いたいです。　