EXTYPE8120の原因は何でしょうか。？

　　EXTYPE8120の原因は何でしょうか。？ ARRIS 2004/07/07 19:00:19 
　　└extypeはJISの規定を準用しています。 白石　和夫 2004/07/07 21:02:56 
　　　└白石先生、教えていただきまして有難う御座... ARRIS 2004/07/08 00:55:22 
　　　　└DXF元データを再度解析してトライしてみます... ARRIS 2004/07/10 00:50:48

　　EXTYPE8120の原因は何でしょうか。？ ARRIS 2004/07/07 19:00:19  ツリーへ

EXTYPE8120の原因は何でしょうか。？ 返事を書く

ARRIS 2004/07/07 19:00:19

はじめまして。三次元CADのDXFファイルの読み込みルーティンを、
作成したのですが、下記のソースリスト１００番でEXTYPE8120という
エラー？で止まってしまいます。私なりにヘルプを読んだ限り、
わかりませんでした。どなたか教えて下さいませ。

　　　　　　　　　　　記

REM 3D-DXFファイル読込 Program(一部抜粋）

OPTION BASE 1
DIM a$(10)

SUB vclear
LET a1=0
LET a2=0
LET a3=0
LET a4=0
END SUB

CALL vclear

LET i=1
LET x$=""

LET f$="d:\3D-DXF\KX.dxf"
LET g$="d:\3D-DXF\KX-SS.dxf"

OPEN #1:NAME f$,RECTYPE INTERNAL
OPEN #2:NAME g$,RECTYPE INTERNAL
ERASE #2

DO
100 READ #1,IF MISSING THEN EXIT DO:x$

IF x$="0" THEN
LET a1=1
END IF
IF x$="SECTION" THEN
LET a2=1
END IF
IF x$="2" THEN
LET a3=1
END IF
IF x$="ENTITIES" THEN
LET a4=1
END IF

IF a1=1 AND a2=1 AND a3=1 AND a4=1 THEN
LET a$(i)="0"
WRITE #2:a$(i)
LET i=i+1
LET a$(i)="SECTION"
WRITE #2:a$(i)
LET i=i+1
LET a$(i)="2"
WRITE #2:a$(i)
LET i=i+1
LET a$(i)="ENTITIES"
WRITE #2:a$(i)
LET i=i+1
CALL vclear

END IF

LOOP

LET i=i-1

CLOSE #1
CLOSE #2

END

　　└extypeはJISの規定を準用しています。 白石　和夫 2004/07/07 21:02:56  ツリーへ

Re: EXTYPE8120の原因は何でしょうか。？ 返事を書く

白石　和夫 2004/07/07 21:02:56

extypeはJISの規定を準用しています。
extype8120は，「内部形式記録の入力における型の不一致」です。
文字列変数に入力しようとした文字列データに引用符が欠けていたりするとこのエラーになります。

　　　└白石先生、教えていただきまして有難う御座... ARRIS 2004/07/08 00:55:22  ツリーへ

Re: extypeはJISの規定を準用しています。 返事を書く

ARRIS 2004/07/08 00:55:22

白石先生、教えていただきまして有難う御座います。
DXF元データを再度解析してトライしてみます。
PS.思いついたアイディアをすぐに実行できる十進Basicは、
素晴らしいtoolですね。重宝しております。

　　　　└DXF元データを再度解析してトライしてみます... ARRIS 2004/07/10 00:50:48  ツリーへ

Re: 白石先生、教えていただきまして有難う御座... 返事を書く

ARRIS 2004/07/10 00:50:48

>DXF元データを再度解析してトライしてみます。

通常DXFファイルは１行１命令（or１データ）が多くを占めますが、
中には1行に1,1,1のようなデータが有りました。
これが原因でした。1,1,1のデータは今回の3次元データ変換に、
必要としませんので、前回のソースリスト100番において、
[SKIP REST]を追加する事により、解決する事が出来ました。

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。

EXTYPE8120の原因は何でしょうか。？	返事を書く
ARRIS 2004/07/07 19:00:19
はじめまして。三次元CADのDXFファイルの読み込みルーティンを、作成したのですが、下記のソースリスト１００番でEXTYPE8120というエラー？で止まってしまいます。私なりにヘルプを読んだ限り、わかりませんでした。どなたか教えて下さいませ。　　　　　　　　　　　記 REM 3D-DXFファイル読込 Program(一部抜粋） OPTION BASE 1 DIM a$(10) SUB vclear LET a1=0 LET a2=0 LET a3=0 LET a4=0 END SUB CALL vclear LET i=1 LET x$="" LET f$="d:\3D-DXF\KX.dxf" LET g$="d:\3D-DXF\KX-SS.dxf" OPEN #1:NAME f$,RECTYPE INTERNAL OPEN #2:NAME g$,RECTYPE INTERNAL ERASE #2 DO 100 READ #1,IF MISSING THEN EXIT DO:x$ IF x$="0" THEN LET a1=1 END IF IF x$="SECTION" THEN LET a2=1 END IF IF x$="2" THEN LET a3=1 END IF IF x$="ENTITIES" THEN LET a4=1 END IF IF a1=1 AND a2=1 AND a3=1 AND a4=1 THEN LET a$(i)="0" WRITE #2:a$(i) LET i=i+1 LET a$(i)="SECTION" WRITE #2:a$(i) LET i=i+1 LET a$(i)="2" WRITE #2:a$(i) LET i=i+1 LET a$(i)="ENTITIES" WRITE #2:a$(i) LET i=i+1 CALL vclear END IF LOOP LET i=i-1 CLOSE #1 CLOSE #2 END

Re: EXTYPE8120の原因は何でしょうか。？	返事を書く
白石　和夫 2004/07/07 21:02:56
extypeはJISの規定を準用しています。 extype8120は，「内部形式記録の入力における型の不一致」です。文字列変数に入力しようとした文字列データに引用符が欠けていたりするとこのエラーになります。

Re: extypeはJISの規定を準用しています。	返事を書く
ARRIS 2004/07/08 00:55:22
白石先生、教えていただきまして有難う御座います。 DXF元データを再度解析してトライしてみます。 PS.思いついたアイディアをすぐに実行できる十進Basicは、素晴らしいtoolですね。重宝しております。

Re: 白石先生、教えていただきまして有難う御座...	返事を書く
ARRIS 2004/07/10 00:50:48
>DXF元データを再度解析してトライしてみます。通常DXFファイルは１行１命令（or１データ）が多くを占めますが、中には1行に1,1,1のようなデータが有りました。これが原因でした。1,1,1のデータは今回の3次元データ変換に、必要としませんので、前回のソースリスト100番において、 [SKIP REST]を追加する事により、解決する事が出来ました。