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

;(R)=ARES

;<--------------2024/02/12
;<--------------2023/05/22
;<--------------2022/11/25


;*******************
(Defun C:TransmitFlag ( / Obj cnt num MyEnt Ent  Org Ofile FileID MyData MyText)
;*******************
;テキストファイルを書き出す
   (if (setq FileID (open "C:/MyCANAL/Supply/Text/TransmitFlag.txt" "w")) ;書込みモードで開く    
      (progn   ;もしファイルを開けたら 
         ;---------------
         (princ "\n旗上げ座標値を選択")
         (Setq Obj(ssget (list (cons 0 "MTEXT"))));マルチテキスト選択
         (Setq cnt 0)
         (Setq num (sslength Obj))
         ;---------------
         (While (< cnt num);
            (Setq MyEnt (ssname Obj cnt))
            (Setq Ent (entget MyEnt))
            (Setq  Org (cdr(assoc 1 Ent)))
            (setq MyHandle  (cdr (assoc 5 Ent)));ハンドル名
            ;---------------
            (Setq MyData (Strcat MyHandle "\\P" Org))
            (write-line MyData FileID) 				
            ;---------------
            (Setq cnt (+ 1 cnt))
         );While 
         (close FileID);ファイルを閉じる
      );progn
      (alert "\nファイルが見当たりません。") ;エラーメッセージ 
   );if
   (princ)
);defun







