请问为什么在布局使用代码关闭图纸阴影后还是会显示灰色的边框

Chinchillas

我用代码关闭布局的图纸阴影后还是会显示灰色的边框，直接在设置手动关闭就不会显示阴影，麻烦各位大佬解答一下

1. (defun c:TT (/ lout display)
   
2.   (vl-load-com)
   
3.   (setq lout (vla-Item
   
4.                (vla-get-layouts
   
5.                  (vla-get-activedocument
   
6.                    (vlax-get-acad-object)
   
7.                  )
   
8.                )
   
9.                (getvar "ctab")
   
10.              )
    
11.   )
    
12.   ; 设置打印样式表为monochrome.ctb
    
13.   (vla-Put-StyleSheet
    
14.     (vla-get-activelayout
    
15.       (vla-get-activedocument
    
16.         (vlax-get-acad-object)
    
17.       )
    
18.     )
    
19.     "monochrome.ctb"
    
20.   )
    
21.   
    
22.   (setq display (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
    
23.   (if (= (vla-get-ShowPlotStyles lout) :vlax-true)
    
24.     (progn
    
25.       ; 关闭显示打印样式
    
26.       (vla-put-ShowPlotStyles lout :vlax-false)
    
27.       ; 设置线宽显示为0
    
28.       (setvar "lwdisplay" 0)
    
29.       ; 显示纸张阴影
    
30.       (vla-put-LayoutDisplayPaperShadow display 1)
    
31.       ; 不显示纸张背景
    
32.       (vla-put-LayoutDisplayPaper display 0)
    
33.       ; 设置布局背景颜色为黑色
    
34.       (vla-put-GraphicsWinLayoutBackgrndColor (vla-get-display (vla-get-preferences (vlax-get-acad-object)))
    
35.         0
    
36.       )
    
37.     )
    
38.     (progn
    
39.       ; 开启显示打印样式
    
40.       (vla-put-ShowPlotStyles lout :vlax-true)
    
41.       (setvar "lwdisplay" 0)
    
42.       (vla-put-LayoutDisplayPaperShadow display 0)
    
43.       (vla-put-LayoutDisplayPaper display 1)
    
44.       ; 设置布局背景颜色为白色
    
45.       (vla-put-GraphicsWinLayoutBackgrndColor (vla-get-display (vla-get-preferences (vlax-get-acad-object)))
    
46.         16777215
    
47.       )
    
48.     )
    
49.   )
    
50.   (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acAllViewports)
    
51.   (princ)
    
52. )
    

(defun c:TT (/ lout display)<br />   (vl-load-com)<br />   (setq lout (vla-Item<br />                (vla-get-layouts<br />                  (vla-get-activedocument<br />                    (vlax-get-acad-object)<br />                  )<br />                )<br />                (getvar "ctab")<br />              )<br />   )<br />   ; 设置打印样式表为monochrome.ctb<br />   (vla-Put-StyleSheet<br />     (vla-get-activelayout<br />       (vla-get-activedocument<br />         (vlax-get-acad-object)<br />       )<br />     )<br />     "monochrome.ctb"<br />   )<br />   <br />   (setq display (vla-get-display (vla-get-preferences (vlax-get-acad-object))))<br />   (if (= (vla-get-ShowPlotStyles lout) :vlax-true)<br />     (progn<br />       ; 关闭显示打印样式<br />       (vla-put-ShowPlotStyles lout :vlax-false)<br />       ; 设置线宽显示为0<br />       (setvar "lwdisplay" 0)<br />       ; 显示纸张阴影<br />       (vla-put-LayoutDisplayPaperShadow display 1)<br />       ; 不显示纸张背景<br />       (vla-put-LayoutDisplayPaper display 0)<br />       ; 设置布局背景颜色为黑色<br />       (vla-put-GraphicsWinLayoutBackgrndColor (vla-get-display (vla-get-preferences (vlax-get-acad-object)))<br />         0<br />       )<br />     )<br />     (progn<br />       ; 开启显示打印样式<br />       (vla-put-ShowPlotStyles lout :vlax-true)<br />       (setvar "lwdisplay" 0)<br />       (vla-put-LayoutDisplayPaperShadow display 0)<br />       (vla-put-LayoutDisplayPaper display 1)<br />       ; 设置布局背景颜色为白色<br />       (vla-put-GraphicsWinLayoutBackgrndColor (vla-get-display (vla-get-preferences (vlax-get-acad-object)))<br />         16777215<br />       )<br />     )<br />   )<br />   (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acAllViewports)<br />   (princ)<br /> )<br />

yefei812678

不明白什么意思

lxl217114

(setenv "ShowPaperBackground" " 0 ")  
(setenv "ShowPrintBorder" " 0 ")   

Chinchillas

lxl217114 发表于 2024-2-26 16:37
(setenv "ShowPaperBackground" " 0 ")  
(setenv "ShowPrintBorder" " 0 ")

新版本的CAD好像没有这两个变量了，14版的可以用

Chinchillas

lxl217114 发表于 2024-2-26 16:37
(setenv "ShowPaperBackground" " 0 ")  
(setenv "ShowPrintBorder" " 0 ")

直接在CAD用好像可以，但是加进去之后用起来好像不太理想，图纸背景跟阴影都还在

lxl217114

Chinchillas 发表于 2024-2-27 08:44
直接在CAD用好像可以，但是加进去之后用起来好像不太理想，图纸背景跟阴影都还在

环境变量，应该是得重启一下cad生效的吧，具体的也不是很懂，也是大佬教的，然后也就这样用，没有出现什么问题。

Chinchillas

lxl217114 发表于 2024-2-27 10:21
环境变量，应该是得重启一下cad生效的吧，具体的也不是很懂，也是大佬教的，然后也就这样用，没有出现什 ...

好的，谢谢！我再研究研究

你有种再说一遍

https://www.cnblogs.com/JJBox/p/11610343.html#_lab2_1_1
巧了,刚好会