怎样修改布局视口的大小
本帖最后由 龙城飞将36 于 2013-5-30 21:45 编辑怎么用lisp修改布局视口的大小,如左下为0,0右上为11,7改为左下为0,0右上为50,50 (defun C:CPV2()
(vl-load-com)
(setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument Acadobject)
mSpace (vla-get-ModelSpace Acaddocument)
;pSpace (vla-get-PaperSpace AcadDocument)
LayoutSel (vla-get-Layouts AcadDocument)
)
(setvar "TILEMODE" 0)
;获得布局1对象Layout1
(setq Layout1(vla-item LayoutSel "布局1"))
怎么获得4个夹点的坐标? 龙城飞将36 发表于 2013-6-3 12:23 static/image/common/back.gif
(defun C:CPV2()
(vl-load-com)
(setq AcadObject (vlax-get-acad-object)
修改PViewport object 对象的Center 、width、height属性! Gu_xl 发表于 2013-6-3 13:51 static/image/common/back.gif
修改PViewport object 对象的Center 、width、height属性!
老大,能不能帮忙写一个,工作中经常用到!
页:
[1]