Vla-put-historylines

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年7月15日 (月) 16:50時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)
)


関連事項