在模型空间显示打印样式

gaics

如题，找了好久控制“显示打印样式”的系统变量也没找到，现在终于可以实现了！

gaics

;;;还原设置
(defun c:hy ()
  (vla-put-ShowPlotStyles
    (vla-get-ActiveLayout
      (vla-get-ActiveDocument (vlax-get-acad-object))
    )
    :vlax-false
  )
  (vla-put-GraphicsWinModelBackgrndColor
    (vla-get-display
      (vla-get-Preferences (vlax-get-acad-object))
    )
    (vlax-make-variant 0 19)                ;背景颜色设置为黑色
  )
  (vla-regen
    (vla-get-ActiveDocument (vlax-get-acad-object))
    AcAllViewPorts
  )
  (setvar "LWDISPLAY" 0)
  (princ)
)

nsh935

没反应过来 具体效果是？

gaics

nsh935 发表于 2023-6-20 16:47
没反应过来 具体效果是？

就是让模型空间或者图纸空间按照打印样式来显示。已上传示例图片。

Bao_lai

这个自带的lisp样例中就有呀。

gaics

Bao_lai 发表于 2023-6-21 08:06
这个自带的lisp样例中就有呀。

噢，没注意

Bao_lai

gaics 发表于 2023-6-21 08:37
噢，没注意

vla-get-ShowPlotStyles 函数
功能     判断是否在打印中使用打印样式。
语法及参数
(vla-get-ShowPlotStyles Object )
Object         Layout, PlotConfiguration
                  这个属性适用的对象
ShowPlotStyles    布尔; 读/写
                          TRUE: 打印中使用打印样式
                          FALSE: 打印中不使用打印样式
说明
    当这个属性的初始值是TRUE时，对象是以它们在图形文件中指定的打印样式打印。

gaics

Bao_lai 发表于 2023-6-21 12:16
vla-get-ShowPlotStyles 函数
功能     判断是否在打印中使用打印样式。
语法及参数

对，就是用的这个函数

hzyhzjjzh

谢谢分享。