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)
)

---

関連事項

• vlax-get-acad-object
• vla-get-preferences
• vla-get-display
• vla-get-historylines