taoyi0727 发表于 2019-11-12 17:36
帅哥能看否再帮我下,能不能找到这些,找这些确实不知道怎么下手
100币奉上
貌似并不是所有的设置都可以通过ActiveX访问、修改。
自动保存打印和发布日志可以：
(setq output (vla-get-output(vla-get-preferences (vlax-get-acad-object))))
(vla-put-AutomaticPlotLog output 0)
打印戳记及高级选项可以通过-PLOTSTAMP命令设置。例如，设置不创建日志文件：
(command "-plotstamp" "L" "N" "" "")
sbwdx 发表于 2019-11-12 13:15
老师，请问这三个也能取消吗？
可打印区域我也没找到
satan421 发表于 2019-11-12 23:31
貌似并不是所有的设置都可以通过ActiveX访问、修改。
自动保存打印和发布日志可以：
(setq output (vla ...
知道这是个知道情况吗?有币为什么转不出来?
taoyi0727 发表于 2019-11-13 08:41
知道这是个知道情况吗?有币为什么转不出来?
不用转了。举手之劳，相互学习。
satan421 发表于 2019-11-13 08:47
不用转了。举手之劳，相互学习。
大气 谢谢,怪不好意思的:handshake
satan421 发表于 2019-11-13 00:10
可打印区域我也没找到
我查到了老师，(vla-put-LayoutDisplayMargins display 0 ) 这个
sbwdx 发表于 2020-1-2 10:44
我查到了老师，(vla-put-LayoutDisplayMargins display 0 ) 这个
不错不错，功夫不负有心人
(vl-catch-all-apply
'(lambda ( / x )
(setq x (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'Preferences) 'Display))
(vlax-put-property x 'displaylayouttabs :vlax-true) ;打开布局控制图签
(vlax-put-property x 'DisplayScrollBars :vlax-false) ;关闭滚动条
(vlax-put-property x 'TextFont "Consolas") ;设置命令行字体
(vlax-put-property x 'LayoutDisplayMargins :vlax-false) ;在布局不显示可打印区域
(vlax-put-property x 'LayoutDisplayPaper :vlax-false) ;在布局不显示图纸背景
(vlax-put-property x 'LayoutDisplayPaperShadow :vlax-false) ;在布局不显示图纸阴影
(vlax-put-property x 'GraphicsWinModelBackgrndColor "0") ;在模型空间背景色（黑色）
(vlax-put-property x 'ModelCrosshairColor "3355443") ;在模型空间十字光标色（颜色250）
(vlax-put-property x 'GraphicsWinLayoutBackgrndColor "0") ;在布局空间背景色（黑色）
(vlax-put-property x 'LayoutCrosshairColor "3355443") ;在布局空间十字光标色（颜色250）
)
) ;对显示选项卡的操作
G〆h 发表于 2020-1-2 13:07
(vl-catch-all-apply
'(lambda ( / x )
(setq x (vlax-get-property (vlax-get-property (vlax-ge ...
您真是个有心人，谢谢，收藏了，欢迎懂的会的继续接力补全一下！！
好东西 把这些整理好,写个程序,就能一下设置好自己习惯的操作界面了