在dephi中如何实现cad图形的全屏？功能等同与cad中的zoomall(100分)

L

Lion_sj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-06

• #1

用语句实现
很急！！！

 

L

Lion_sj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-06

• #2

我用cad.zoomall;
报OLE error 8021001C

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-06

• #3

导成wmf 再全屏显示吧

 

L

Lion_sj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-06

• #4

可是导出wmf只能导出屏幕上看到的部分，即使你把屏幕外的部分选中也没有用
所有改成先全屏显示在导出，可zoomall出错，急死了

 

L

Lion_sj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-06

• #5

没人回答啊

 

L

Lion_sj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-06

• #6

没人回答啊

 

L

Lion_sj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-06

• #7

部分源码如下：
caddoc.Application.Documents.Open('c:/zhgl_tzgl.dwg', true);
cad.ZoomAll;-----出错！！
sleep(400);
t_SelectionSet.Select(5);
caddoc.Export( 'c:/' + 'zhgl_tzgl', 'WMF',t_SelectionSet);

 

L

Lion_sj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-06

• #8

我用了下面这句：
caddoc.SendCommand('z a ');