【AutoLISP サンプル】CSVデータから座標点を入力（点とテキスト編）

コマンドの内容

CSVファイルを読み込み、その座標に点をブロック挿入します。

今回のコマンドで使用するCSVファイル例です。

１列目は連番
２列目はAutoCADのY座標（南北の座標）
３列目はAutoCADのX座標 (東西の座標）
４列目はAutoCADのZ座標（高さの座標）
５列目は座標点の名称

という形式です。

このコマンドでは、は2、3列目の情報を使って、(x,y) 座標に点とテキストを挿入します。

準備

csv ファイル

読み込むcsvファイルを用意してください。

２列目　AutoCADのY座標（南北の座標）
３列目　AutoCADのX座標 (東西の座標）
５列目　挿入するテキストの内容

という形式のデータが前提です。

コマンドを実行するとファイル指定のダイアログボックスが出てきます。

C:/JagaimoLISP/　が最初に開くようになっています。
必要に応じて書き換えてください。

フォルダパスの区切りは \ ではなく \\ もしくは / ですので気を付けてください。

〇　 C:\\JagaimoLISP\\
〇　 C:/JagaimoLISP/

×　 C:\JagaimoLISP\
×　 C://JagaimoLISP//

点の表示形式

点の表示形式を見やすいものに変更しておいてください。
コマンド DDPTYPE で設定ダイアログボックスが出てきます。

AutoLISP　サンプル

ファイルパス名、X、Y、名称の列番号、属性のタグ名、画層名の設定はカスタマイズしやすいようにプログラムの最初にまとめておきました。

Var. 20241008 文字位置も編集しやすいようにプログラムの最初に設定する変数に入れました。

テキスト位置合わせオプションはAutoCADの公式サイトTEXT[文字記入] (コマンド)を参考にしてください。　初期値”MC”は中央です。

Text_X と Text_Y の値は、座標点から文字挿入点の距離です。

コマンド名は TEST です。

;/////////////////////////////////////////////
;|
Jagaimo Lisp　
Inserting Survey Point Text Var.20241008
|;
;/////////////////////////////////////////////
(defun c:Test 
       (/ *error* 
         Folder Path X_Easting Y_Northing Tag_Column
         Text_Height Text_Justify Text_X Text_Y
         Block_Name Block_Tag Layer_Name
          OldCmdEcho OldDynMode OldOsmode JagaEnd
           LyCk File T2Lst LyCol Tx Lst PtY PtX TxTag LyNm VlObj
        ) 
  
  ;///////////////////////////////////////
  ;///////////////////////////////////////
  (setq
    
    Folder "C:/JagaimoLISP/"  ;; データファイル指定フォルダの初期値
    X_Easting 3 ;; AutoCADのX軸(東西)座標の列番号
    Y_Northing 2 ;; AutoCADのY軸(南北)座標の列番号
    Tag_Column 5 ;; 名称の列番号
    Text_Height 0.1 ;; テキストの高さ
    Text_Justify "MC" ;; テキスト位置合わせオプション
    Text_X 0 ;; テキスト挿入点　座標＋X方向
    Text_Y 0 ;; テキスト挿入点　座標＋Y方向
    Layer_Name "Jaga-Point-" ;; 画層名
  
  );setq

  ;///////////////////////////////////////
  ;///////////////////////////////////////
  
  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;--------------------------------------- 
    (setq OldCmdEcho (getvar "CMDECHO")) 
    (setvar "CMDECHO" 0)
    (setq OldOsmode (getvar "OSMODE"))
    (setq OldLayer (getvar "CLAYER"))
    (command-s "undo" "be")
;-----------------------------------------
  (defun JagaEnd ()
    (command-s "undo" "end")
    (setvar "CMDECHO" OldCmdEcho)
    (setvar "OSMODE" OldOsmode)
    (setvar "CLAYER" OldLayer)
  ;-----------------------------------------	 
  (princ "\n=========== JagaimoLISP.com ===========")
  (princ));defun
  ;-----------------------------------------
    (defun *error* (msg)	
      (princ (strcat"\nJagaimoLisp ERR\n " msg))
      (JagaEnd)
    (princ));defun Err
 
  ;----------------------------------------------------
  
  (defun LyCk (LyNm / LyInfo Ly62 Ly70)       
    (if (null (tblsearch "layer" LyNm )) 
     (progn
       (setq LyCol (1+ LyCol))
       (command-s ".-layer" 
                     "N" LyNm 
                      "C" LyCol LyNm 
                        "")
       
       (princ (strcat " \n 画層 < " LyNm " > 作成しました\n"))
  
  )) ;if progn
;----------------------------------------------------

   (setq LyInfo (tblsearch "layer" LyNm)) ;
		  
   (if LyInfo	
   (progn
      (setq 
          Ly62 (cdr(assoc 62 LyInfo)) 
          Ly70 (cdr(assoc 70 LyInfo))
      );setq

;----------------------------------------------------
     
     (if (> 0 Ly62) 
      (progn
            (command-s "._LAYER" "ON" LyNm "") 
            (alert (strcat " \n 画層 < " LyNm " > 非表示だったので表示にしました\n"))
      ));if progn
  
;----------------------------------------------------   
     
      (if (= 1 (logand 1 Ly70))
         (progn
         (command-s "._LAYER" "T" LyNm "")
            (alert (strcat " \n 画層 < " LyNm " > フリーズ解除しました"))
      ));if progn
     
;----------------------------------------------------
     
      (if (= 4 (logand 4 Ly70))
       (progn
        (command-s "._LAYER" "U" LyNm "")
      ));if progn
     
  ));if progn

);defun
  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (setq Path (getfiled "Select Data File" Folder "csv" 16))
  
  (if (setq File (open Path "r"))  
    (progn
      
      (defun T2Lst (Tx Del / Num )
        (if (setq Num (vl-string-search Del Tx))
          (cons (substr Tx 1 Num) (T2Lst (substr Tx (+ Num 2)) Del))
          (list Tx)
        );if
       );defun
      
      (setvar "OSMODE" 0)
      (setq LyCol 0)
      
      (while 
        (setq Tx (read-line File))
        (setq Lst (T2Lst Tx ","))
        
        (setq PtY (atof (nth (1- Y_Northing) Lst))
              PtX (atof (nth (1- X_Easting) Lst))
              TxTag (nth (1- Tag_Column) Lst)
        );setq
        
        (setq LyNm (strcat Layer_Name TxTag))
        (LyCk LyNm)
        
        (command-s "._LAYER" "S" LyNm "") ; 現在の画層をLyNmに設定
        (command-s "._POINT" (list PtX PtY)) ; 点の挿入
        (command-s "._-TEXT" "J" Text_Justify (list (+ PtX Text_X) (+ PtY Text_Y)) Text_Height 0 TxTag) ; テキストの挿入
        
	      
      );while
  ));if progn

  (close File)
(JagaEnd)
(princ));defun

参考記事

点とテキストではなく、属性付きのブロックを挿入するバージョン

【AutoLISP サンプル】CSVデータから座標点を入力（ブロック編）

Jagaimo CSVファイルで受け取った座標点をにブロック挿入します。 さらに、座標点の名称ごとに画層を作成し、ブロックの属性に名称を入れます。 コマンドの内容 CSVファイルを読み込み、その座標に点をブロック挿入します。 今回のコマンド...

jagaimolisp.com

2022.11.18

関数 open, close read-lineでテキストファイルをAutoCADに読み込む記事です。
csvファイルも同じように読み込めます。

【AutoLISP データ読み込み】関数 open, close, read-line

テキスト形式の情報を読み込む方法です。CSV形式のファイルも同じように読み込めます。 テキストファイル(拡張子 .txt)にある文字を読み込む方法です。 関数 open 関数 open は情報を読み込むためにファイルを開く関数です。関数 c...

jagaimolisp.com

2022.11.25

【AutoLISP データ読み込み】複数行のTXT/CSV ファイルを読み込む

テキスト形式の情報を読み込む方法です。今回は複数行のテキストファイルから１行づつ読み込みます。CSVファイルも同じように読み込めます。 複数行のテキストファイル(拡張子 .txt)にある文字を読み込む方法です。 予備知識 関数 open, ...

jagaimolisp.com

2022.12.02

【AutoLISP データ読み込み】エクセル ファイルを読み込む

エクセル形式のファイルをCSV形式に変換してAutoCADに読み込みます。 予備知識 列と行 エクセルの列は縦。行は横です。 「漢字の２本線の向き」って考えると覚えやすいです。 ファイル読み込み テキスト形式のファイルを読み込む方法について...

jagaimolisp.com

2022.12.09

【AutoLISP リスト】コンマで区切った文字列からリストを作成

文字列 "Jaga, imo, LISP"から リスト ("Jaga" "imo" "LISP")を作成します。 予備知識 リストって何？という方はまずはコチラの記事を。 文字列から一文字づつ取り出してリストにする方法。今回は "," で区...

jagaimolisp.com

2023.01.06

点座標についてです。

【AutoLISP リスト】点座標の編集

1つの点座標からあれこれ編集して別の点座標を作りたいとき、リストから値を出して編集してまたリストにして…と、リスト操作が必要になります。 予備知識 この記事ではリスト操作を行い点座標を編集します。 リストとは何か、リストの作り方 リストから...

jagaimolisp.com

2020.06.21

エラー処理について。ブロックをたくさん挿入して画層を変更するなど手数が多いので、UNDOで戻すときに点を一つ一つ戻すのではなく、UNDO１回でコマンド実行前に戻るように処理を入れています。
エラーが起きた時も実行前の状態に戻ります。

【AutoLISP エラー処理】UNDO[元に戻す] - [開始(BE)] [終了(E)]

AutoCADコマンドUNDO の と を前後に入れることでプログラム内で行った操作が1つのセットになります。 しかし、エラー中断も想定しておかないと、 プログラム最後の　が実行されずに、予期せぬ操作がセットになってしまうことも。 UNDO...

jagaimolisp.com

2020.04.25

画層作成、テキストをリストにする処理は自作関数にしています。
コマンド内でしか使わないローカルコマンドの定義について。

【AutoLISP 自作関数】一時的な自作関数の定義　defun内でdefun

数値をちょっとだけ変えてコマンド内で何回か使いたいけれど、他のコマンドでは使いそうにない一連の流れは、コマンド関数内でもdefunを使って定義できます。 (/ ローカル関数名)で、ローカル関数として宣言できます。 予備知識 自作関数について...

jagaimolisp.com

2021.09.17

自作関数について。

【AutoLISP 自作関数】画層を作成する自作関数 - 複数の引数がついた関数

画層を作成する自作関数を作ります。 コマンド作成時に、必要な画層が無い時に画層を作る。というプログラムを組み込みたいときに使えます。 予備知識 関数の内容 引数として、画層名、線種、色、印刷設定　を渡すと、画層を作成する関数を作ります。 A...

jagaimolisp.com

2020.05.03

非表示画層を表示する関数です。
関数 strcat で文字をつなげることについても書いています。

【AutoLISP 自作関数】非表示画層を表示する自作関数 – strcat 文字をつなげる

特定の画層に作図するコマンドを作るとき、その画層が非表示になっていることも想定して、”画層が非表示なら表示する” 自作関数があると便利です。 文字列をつなげる関数 strcat も紹介します。 予備知識 自作関数の内容 画層名を引数で得る。...

jagaimolisp.com

2020.05.05

画層がフリーズかどうかを調べて、もしフリーズなら解凍する方法についてです。

【AutoLISP 自作関数】フリーズ画層を解凍する自作関数 – rem 割り算した余りの数字

特定の画層に作図するコマンドを作るとき、その画層がフリーズされていることも想定して、”画層がフリーズなら解凍する” 自作関数があると便利です。 数字を割っていって残ったあまりの数を教えてくれる関数remも紹介します。 予備知識 自作関数の内...

jagaimolisp.com

2020.05.06

画層がロックされているかどうかを調べて、ロックされていたら解除する方法についてです。
ビットコードが含まれているかどうかを調べる logand について書いてあります。
画層だけでなく、オブジェクトスナップなど、ビットコードで設定されているものを変更したいとき、この関数はとても便利です。

【AutoLISP 自作関数】画層のロック/ロック解除切り替る自作関数 – logand ビットコードが含まれてるか調べる

画層のロックしてたらロック解除、ロック解除だったらロックと、一つのコマンドで切り替える自作関数を作ります。 ビットコードが含まれているかどうかを調べる関数 logand も紹介します。 予備知識 自作関数の内容 画層名を引数で得る。関数 t...

jagaimolisp.com

2020.05.07

コマンド実行中、必要無いエコーバックとプロンプトを消す設定にしています。それらのシステム変数について。

【AutoLISP システム変数】自作コマンドに入れたいおススメのシステム変数

システム変数CMDECHO を 0 (オフ) にするとコマンドラインの見栄えが良くなるし、DYNMODEを 3 (オン)にすると、ユーザー入力などを促すメッセージがカーソル横出てきて見やすいです。 自作コマンド内でシステム変数の値を変えると...

jagaimolisp.com

2020.04.27