QuietErrorMode 属性 (ActiveX)
切换绘图错误报告的静默错误模式。 支持的平台:仅限 Windows 属性值只读:不 类型:布尔
言论安静错误模式将所有与绘图相关的错误消息记录到日志文件中。 当禁用安静错误模式时,将使用正常的错误报告机制(警报框)。 例子VBA: Sub Example_QuietErrorMode()
' This example plots the layouts of a drawing.
Dim oPlot As AcadPlot
Dim AddedLayouts() As String
Dim LayoutList As Variant
Dim oLayout As ACADLayout
Dim ArraySize As Integer, BatchCount As Integer
For Each oLayout In ThisDrawing.Layouts
ArraySize = ArraySize + 1
ReDim Preserve AddedLayouts(1 To ArraySize)
AddedLayouts(ArraySize) = oLayout.Name
Next
LayoutList = AddedLayouts
Set oPlot = ThisDrawing.Plot
oPlot.SetLayoutsToPlot LayoutList
oPlot.PlotToDevice "DWF6 ePlot.pc3"
End Sub
可视化 LISP: (vl-load-com)
(defun c:Example_QuietErrorMode()
;; This example plots the layouts of a drawing.
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq AddedLayouts (vlax-make-safearray vlax-vbString (cons 0 (1- (vla-get-Count (vla-get-Layouts doc)))))
ArraySize 0)
(vlax-for oLayout (vla-get-Layouts doc)
(vlax-safearray-put-element AddedLayouts ArraySize (vla-get-Name oLayout))
(setq ArraySize (1+ ArraySize))
)
(setq oPlot (vla-get-Plot doc))
(setq currMode (vla-get-QuietErrorMode oPlot))
(vla-put-QuietErrorMode oPlot :vlax-true)
(vla-SetLayoutsToPlot oPlot AddedLayouts)
(vla-PlotToDevice oPlot "DWF6 ePlot.pc3")
(vla-put-QuietErrorMode oPlot currMode)
)
|
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-10-29 07:04
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.