;旗上座標文字列（測点名,X,Y,Z)をテキストファイルに抽出する

;(R)=ARES
;<--------------2025/06/18
;<--------------2024/02/12
;<--------------2023/05/22
;<--------------2022/11/25


;*******************
(Defun C:TransferFlagID ( / Eset cnt num Tmpl Ed  Org Ofile FileID MyData MyText)
;*******************
;テキストファイルを書き出す
  (setenv "Result" "FALSE")
  (if (setq FileID (open "C:/MyCANAL/Supply/Text/TransferFlagID.txt" "w")) ;書込みモードで開く    
    (progn   ;もしファイルを開けたら 
     ;---------------
      (setq Ent (entget (car (entsel "旗上げ座標値を選択:")))) ;EntにDXF図形情報のリストを代入
      (if (= (cdr (assoc 0 ent)) "MTEXT") ;選択図形がマルチテキストかどうかチェック
        (progn ;図形がマルチテキストの時の処理
          (setq  Orgtxt (Cdr(Assoc 1 Ent)))
          (write-line Orgtxt FileID)
          ;----
          (close FileID)
          (setenv "Result" "TRUE")
        );progn
      );if
      (princ)
    );
    (alert "\nファイルが見当たりません。") ;エラーメッセージ
  );if
);defun







