怎样更新控制物件的属性!!!!

lovelilin

各位高手们我现在想更改打印设定时图纸的大小如下所示后面更新属性时我不知该怎样做请指教: (defun C:mp()
(vl-load-com)
(setq acadobj (vlax-get-acad-object)
acad (vla-get-activedocument acadobj)
acadpro(vla-get-activelayout acad)
pp (vla-get-canonicalmedianame acadpro)
(vlax-put-property acadpro "canonicalmedianame" ?)
) 上面?号地方不知写什么.

alin

(defun C:mp()
(vl-load-com)
(setq acadobj (vlax-get-acad-object)
DOC (vla-get-activedocument acadobj)
acadpro(vla-get-activelayout DOC)
pp (vla-get-canonicalmedianame acadpro))
(vlax-put-property acadpro "canonicalmedianame" "ANSI_B_(11.00_x_17.00_Inches)")
)

lovelilin

要是我要把他的值设定为A4的图纸怎么办呢？

alin

"ISO_A4_(210.00_x_297.00_MM)"


其实用下面的方法可得到所有纸张尺寸：


(vlax-safearray->list (vlax-variant-value (VLA-getcanonicalmedianames ACADPRO)))