命令行行数有系统变量没有？

hanyu_gis

命令行行数有系统变量没有？刚才翻了一下，没找到。

wangph

顶起来

hanyu_gis

怎么没有人说话啊？

hanyu_gis

顶起来，问题还没有答案呢。

caoyin

如果没有你用下面的方法试试

(vla-get-DockedVisibleLines (vla-get-display (vla-get-Preferences (vlax-get-acad-object))))

hanyu_gis

试了，可以用。

再研究下看能不能直接赋值。

多谢楼上了。

jaminth

怎么赋值，让程序自动设置行数？！

caoyin

vla-put-DockedVisibleLines 可以赋值，但不能更新显示，不知为什么？？

wzh

在《AUTOLISP/VISUALLISP函数库查询辞典》一书的附盘中，也举到了这个例子，但运行后的确命令行没有反应，请高手指点。

(defun Example_DockedVisibleLines()

;;; 这个范例返回
;;; DockedVisibleLines当前的设定值，接着改变它的值，最后
;;; 重设为原来的值

  (VL-LOAD-COM)

  (setq AcadObject(vlax-get-acad-object)

        AcadDocument(vla-get-ActiveDocument AcadObject)

        mSpace(vla-get-ModelSpace AcadDocument)

  )

  (setq preferencesSel(vla-get-Preferences AcadObject))

  (setq AcadPref(vla-get-display preferencesSel))

;;; 取出当前的DockedVisibleLines 值

  (setq currDockedVisibleLines(vla-get-DockedVisibleLines AcadPref))

  (princ "DockedVisibleLines的当前值为: ")(princ currDockedVisibleLines)(princ "   DockedVisibleLines范例\n")

   (PROMPT "<Enter>进行:")(VL-CMDF pause)

;;; 改变 DockedVisibleLines 的值

  (vla-put-DockedVisibleLines AcadPref 15)

  (setq newDockedVisibleLines(vla-get-DockedVisibleLines AcadPref))

  (princ "DockedVisibleLines的新值为: ")(princ newDockedVisibleLines)(princ "   DockedVisibleLines范例\n")

  (PROMPT "<Enter>进行:")(VL-CMDF pause)

;;; 将 DockedVisibleLines重设为原来的值

  (vla-put-DockedVisibleLines AcadPref currDockedVisibleLines)

  (princ "DockedVisibleLinesr的值重设为: ")(princ currDockedVisibleLines)(princ "   DockedVisibleLines范例\n")

  (princ)

)

hicoffee

真的没有人知道如何更新吗？

xbkxbk

(vla-get-DockedVisibleLines (vla-get-display (vla-get-Preferences (vlax-get-acad-object))) 4)

在CAD2002上可以实现自动更新,但是在CAD2004以上不会自动更新,测试过了,不清楚是什么原因;

另外,用(command "-plot" .....) 改打印机名称及布局范围设定后,布局也没有自动调整成设定的参数,还要再进入到打印设定,选其它打印机,再选回去,才是我想设定的参数...有点麻烦..