[求助]：如何设置命令行的文字行数，且要立即生效的

ysx810210

如何设置命令行的文字行数，且要立即生效的。以前好像看过狂刀写过类似的，但是找不到了

wuzz

直接拖动命令行窗口是最简单的办法，其次就是在选项里改了

ljpnb

2楼说得是，直接拖拉一下就行了，想留几行就留几行。

ysx810210

不是手动实现而是要自动实现的

(defun cmdlins-control-lines(cmdlines)
  (vl-load-com)
  (vla-put-DockedVisibleLines
    (vla-get-display (vla-get-Preferences (vlax-get-acad-object))) cmdlines)
  T
)

(defun c:11()
  (cmdlins-control-lines 8)
  (initget "d f")
  (getkword "\nd-你好/f-大家好")
  (cmdlins-control-lines 4)
  (initget "d f")
  (getkword "\nd-行/f-OK")
  (princ "\n********")
  (princ)
)

程序是有了，但有点缺点，运行了“11”后，返回下面的信息

命令: 11

d-你好/f-大家好*取消*      （不知何缘故，多了此句）

d-你好/f-大家好f

d-行/f-OK*取消*      （不知何缘故，多了此句）

d-行/f-OKd

********

命令:



看谁能帮帮忙，屏蔽掉多余的语句.

aeo

(defun cmdlins-control-lines(cmdlines)
(vl-load-com)
(vla-put-DockedVisibleLines
(vla-get-display (vla-get-Preferences (vlax-get-acad-object))) cmdlines)
T
)

(defun c:11()
  (initget 6)
  (cmdlins-control-lines (getint "行数:"))
)

ysx810210

还是不行，你试试和输入函数一起配合使用

yxljx

原来如此，知道了