Vla-put-historylines

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-put-historylines vla-object num)

機能: メモリに保存するテキストウィンドウ内のテキストの行数を設定する。

引数

vla-object … VLA オブジェクト
num … 数値

戻り値: nil

サンプル

(setq *prefs* (vla-get-preferences (vlax-get-Acad-Object)))

(vla-get-historylines (vla-get-display *prefs*))
400

(vla-put-historylines (vla-get-display *prefs*) 500)


(defun c:PutHistoryLines (/ hl)
  (vl-load-com)
  (setq *prefs* (vla-get-preferences (vlax-get-Acad-Object)))
  (if (setq hl 
        (getint
          (strcat "\n履歴行数 <"
            (itoa 
              (vla-get-HistoryLines
                (vla-get-display *prefs*)))
            ">: ")))
    (if (or (<  hl 25) (> hl 2048))
      (prompt "\n25～2048の間")
      (vla-put-HistoryLines (vla-get-display (vla-get-preferences (vlax-get-acad-object))) hl)
  ))
  (princ)
)