下方向きの折れ線グラフ（N値）のLISPをGemini（AI）に作ってもらった

(defun c:GraphFromFile_GridFinal ( / filename file-handle line-data point-list final-point-list p-data x y circle-radius max-y-original grid-y-limit grid-x-values x-orig x-plotted)
  (princ "\n--- 座標ファイルから折れ線グラフを作成 (最終グリッド版) ---")
  
  ;; --- 設定 ---
  (setq circle-radius 20.0) ; ★★★ この値を 20.0 に変更しました ★★★
  ;; X軸のグリッド間隔 (元のデータ値: 0, 10, 20, 30, 40, 50)
  (setq grid-x-values '(0 10 20 30 40 50)) 
  ;; -------------------
  
  ;; 初期化
  (setq point-list '())
  (setq max-y-original -1e20) 
  
  ;; 1. ファイルの選択と読み込み (Yの最大値の取得を含む)
  (setq filename (getfiled "座標ファイルを選択" "" "txt;csv" 4))
  
  (if (not filename)
    (progn (princ "\nファイル選択がキャンセルされました。") (princ))
    (progn
      (setq file-handle (open filename "r"))
      
      (if (not file-handle)
        (princ "\nエラー: ファイルを開けませんでした。")
        (progn
          (while (setq line-data (read-line file-handle))
            (setq line-data (vl-string-subst " " "," line-data))
            (setq line-data (strcat "(" (vl-string-trim " " line-data) ")"))
            
            (setq p-data (vl-catch-all-apply 'read (list line-data)))
            
            ;; 読み込みとデータチェック
            (if (and (not (vl-catch-all-error-p p-data))
                     (listp p-data)
                     (= (length p-data) 2)
                     (numberp (car p-data))
                     (numberp (cadr p-data))
                )
              (progn
                ;; 有効な座標をリストに追加
                (setq point-list (append point-list (list p-data)))
                ;; Yの最大値を更新
                (if (> (cadr p-data) max-y-original)
                    (setq max-y-original (cadr p-data))
                )
              )
            )
          )
          
          (close file-handle)
          
          ;; 2. 座標の変換処理 (X軸40倍スケールとY軸反転)
          (if (>= (length point-list) 2)
            (progn
              (setq final-point-list '())
              (foreach pt point-list
                (setq x (car pt))
                (setq y (cadr pt))
                
                ;; X座標を40倍にスケール
                (setq x (* x 40.0)) 
                
                ;; Y座標を反転
                (setq y (* y -1.0)) 
                
                ;; 変換後の座標リストを作成
                (setq final-point-list (append final-point-list (list (list x y))))
              )
              
              (princ (strcat "\n" (itoa (length final-point-list)) "点のデータを読み込みました。"))
              
              ;; 3. ポリラインの作成
              (command "_PLINE")
              (foreach pt final-point-list (command pt))
              (command "")
              
              ;; 4. 各点に円を作成する処理
              (princ (strcat "\n各点に半径 " (rtos circle-radius 2 2) " の円を作成中..."))
              (foreach center-point final-point-list
                (command "_CIRCLE" center-point circle-radius)
              )
              
              ;; 5. 縦グリッド線を作成する処理
              (if (/= max-y-original -1e20) ; 有効なY座標が見つかったか確認
                (progn
                  ;; Y軸の終点: (MaxY + 500) -> 反転後のプロット座標: -(MaxY + 500)
                  (setq grid-y-limit (* (+ max-y-original 500.0) -1.0))
                  
                  (princ "\n縦軸グリッド線を作成中...")
                  (foreach x-orig grid-x-values
                    ;; X座標を40倍にスケール
                    (setq x-plotted (* x-orig 40.0))
                    
                    (command "_LINE")
                    ;; 始点: X軸上 (Y=0)
                    (command (list x-plotted 0.0)) 
                    ;; 終点: 計算したグリッドの終端
                    (command (list x-plotted grid-y-limit)) 
                    (command "")
                  )
                  (princ "\nグリッド線の作成が完了しました。")
                )
                (princ "\n注意: 有効なY座標が見つからなかったため、グリッド線は作成されませんでした。")
              )
              
              (princ "\nグラフ作成処理が完了しました。")
            )
            (princ "\nエラー: グラフを作成するための有効な座標点が2点未満です。")
          )
        )
      )
    )
  )
  (princ)
)