「Vla-put-historylines」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-historylines ''vla-object'' ''num'') ; 機能 : メモリに保存するテキスト ウィンドウ内のテキストの行数を設...」)
 
編集の要約なし
 
(同じ利用者による、間の1版が非表示)
24行目: 24行目:


(vla-put-historylines (vla-get-display *prefs*) 500)
(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)
)


</pre>
</pre>

2013年7月15日 (月) 16:50時点における最新版

構文
(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)
)


関連事項