明经通道 AutoLISP 函数	明经通道 AutoLISP 函数
acad-push-dbmod

储存 DBMOD 系统变量的当前值

(acad-push-dbmod)

该函数使用 acad-pop-dbmod 来控制 DBMOD 系统变量。用户可使用该函数来更改图形而保持 DBMOD 系统变量不变。DBMOD 系统变量跟踪图形的修改状态和触发保存图形请求。

该函数在 acapp.arx 中实现，acapp.arx 默认状态下是加载的。该函数可将 DBMOD 系统变量的当前值转到内部堆栈。要使用 acad-push-dbmod 和 acad-pop-dbmod，必须先进行 acad-push-dbmod 操作，再使用 acad-pop-dbmod 来恢复 DBMOD 系统变量的初始状态。

返回值

总是返回 T。

示例

以下例子显示了怎样储存图形的修改状态，接着对图形进行修改，最后恢复初始状态。

(acad-push-dbmod)

(setq new_line '((0 . "LINE") (100 . "AcDbEntity") (8 . "0")

             (100 . "AcDbLine") (10 1.0 2.0 0.0) (11 2.0 1.0 0.0)

             (210 0.0 0.0 1.0)))

(entmake new_line)            ; DBMOD 被设置标志 1

(command "_color" "2")        ; DBMOD 被设置标志 4

(command "_-vports" "_SI")    ; DBMOD 被设置标志 8

(command "_vpoint" "0,0,1")   ; DBMOD 被设置标志 16

(acad-pop-dbmod)              ; DBMOD 被设置回初始值