;************************************
(defun C:UfTextOutDrawinfo ( / Ofile Fw MyData MyText)
;************************************
	;テキストファイルを書き出す
　　　　	(setq Ofile "C:/MyCANAL/Supply/Text/OutputText.txt")
　　　　	(setq Fw (open Ofile "w")) ;ファイルのオープン
　　　　	(if (= Fw nil)
　　　　　		(alert "\nファイルが見当たりません。")
　　　　　		(progn
			;----------------1行目
　　　　　　			(setq MyData "R")
　　　　　　				(write-line MyData Fw) 
			;----------------2行目
			(if (= (Getenv "作図単位m") nil)
				(Setq MyText "m")
				(If (Equal  (strcase (Getenv "作図単位m") T) "m");小文字変換
					(Setq MyText "m")
					(Setq MyText "mm")
				)
			)
　　　　　　			(setq MyData MyText)
　　　　　　				(write-line MyData Fw) 
			;----------------3行目
			(if (= (Getenv "図面縮尺") nil)
				(setq MyText "1000")
				(setq MyText (Getenv "図面縮尺"))
			)
　　　　　　			(setq MyData MyText )
　　　　　　				(write-line MyData Fw) 
			;----------------4行目
			(if (= (Getenv "文字高") nil)
				(setq MyText "3")
				(setq MyText (Getenv "文字高"))
			)
　　　　　　			(setq MyData MyText )
　　　　　　				(write-line MyData Fw) 
			;----------------5行目
			(if (= (Getenv "小数点") nil)
				(setq MyText "3")
				(setq MyText (Getenv "小数点"))
			)
　　　　　　			(setq MyData MyText )
　　　　　　				(write-line MyData Fw) 　　　　　　			
			;----------------
　　　　　　			(close Fw)
　　　　　		)
　　　　	)
	(princ)
)





;************************************
(defun C:UfTextOutFlagID ( / Ofile Fw MyData MyText)
;************************************
	;テキストファイルを書き出す
　　　　	(setq Ofile "C:/MyCANAL/Supply/Text/OutputText.txt")
　　　　	(setq Fw (open Ofile "w")) ;ファイルのオープン
　　　　	(if (= Fw nil)
　　　　　		(alert "\nファイルが見当たりません。")
　　　　　		(progn
			
			;----------------1行目;測点名P 表示登録
			(if (= (Getenv "Pyn") nil)
				(Setq MyText "n")
				(If (Equal  (strcase (Getenv "Pyn") T) "y");小文字変換
					(Setq MyText "y")
					(Setq MyText "n")
				)
			)
　　　　　　			(setq MyData MyText)
　　　　　　				(write-line MyData Fw) 
			;----------------2行目
			(if (= (Getenv "Zyn") nil)
				(Setq MyText "n")
				(If (Equal  (strcase (Getenv "Zyn") T) "y");小文字変換
					(Setq MyText "y")
					(Setq MyText "n")
				)
			)
　　　　　　			(setq MyData MyText)
　　　　　　				(write-line MyData Fw) 　　　			
			;----------------
　　　　　　			(close Fw)
　　　　　		)
　　　　	)
	(princ)
)






;************************************
(defun C:UfTextOutHeaderFooter ( / Ofile Fw MyData MyText)
;************************************
	;テキストファイルを書き出す
　　　　	(setq Ofile "C:/MyCANAL/Supply/Text/OutputText.txt")
　　　　	(setq Fw (open Ofile "w")) ;ファイルのオープン
　　　　	(if (= Fw nil)
　　　　　		(alert "\nファイルが見当たりません。")
　　　　　		(progn
			
			;----------------1行目　接頭辞YesNo
			(if (= (Getenv "BFyn") nil)
				(Setq MyText "n")
				(If (Equal  (strcase (Getenv "BFyn") T) "y");小文字変換
					(Setq MyText "y")
					(Setq MyText "n")
				)
			)
　　　　　　			(setq MyData MyText)
　　　　　　				(write-line MyData Fw) 
			;----------------2行目　接頭辞登録
			(if (= (Getenv "接頭辞") nil)
				(Setq MyText "")
				(setq MyText (Getenv "接頭辞"))
			)
　　　　　　			(setq MyData MyText )
　　　　　　				(write-line MyData Fw) 
			;----------------3行目　接尾辞YesNo
			(if (= (Getenv "AFyn") nil)
				(Setq MyText "n")
				(If (Equal  (strcase (Getenv "AFyn") T) "y");小文字変換
					(Setq MyText "y")
					(Setq MyText "n")
				)
			)
　　　　　　			(setq MyData MyText)
　　　　　　				(write-line MyData Fw) 　
			;----------------4行目　接尾辞登録
			(if (= (Getenv "接尾辞") nil)
				(Setq MyText "")
				(setq MyText (Getenv "接尾辞"))
			)
　　　　　　			(setq MyData MyText )
　　　　　　				(write-line MyData Fw) 
			;----------------
　　　　　　			(close Fw)
　　　　　		)
　　　　	)
	(princ)
)
















;************************************
(defun C:UfTextOutFlagEL ( / Ofile Fw MyData MyText)
;************************************
	;テキストファイルを書き出す
　　　　	(setq Ofile "C:/MyCANAL/Supply/Text/OutputText.txt")
　　　　	(setq Fw (open Ofile "w")) ;ファイルのオープン
　　　　	(if (= Fw nil)
　　　　　		(alert "\nファイルが見当たりません。")
　　　　　		(progn
			
			;----------------1行目　接頭辞YesNo
			(if (= (Getenv "BFZyn") nil)
				(Setq MyText "n")
				(If (Equal  (strcase (Getenv "BFZyn") T) "y");小文字変換
					(Setq MyText "y")
					(Setq MyText "n")
				)
			)
　　　　　　			(setq MyData MyText)
　　　　　　				(write-line MyData Fw) 
			;----------------2行目　接頭辞登録
			(if (= (Getenv "接頭辞Z") nil)
				(setq MyText "n")
				(setq MyText (Getenv "接頭辞Z"))
			)
　　　　　　			(setq MyData MyText )
　　　　　　				(write-line MyData Fw) 
			;----------------
　　　　　　			(close Fw)
　　　　　		)
　　　　	)
	(princ)
)






















