muhanleek 发表于 2012-11-1 18:28:48

奇怪现象，vla-ZoomExtents错误！！！！

(setq AcadObject (vlax-get-acad-object)
      AcadDocument (vla-get-ActiveDocument AcadObject)
)
(vla-put-Width AcadDocument 100)
(vla-put-Height AcadDocument 200)

(vla-ZoomExtents AcadObject)

执行上面的代码，最后一句vla-ZoomExtents得到错误的结果，
还是按照没有修改当前活动文档窗口大小之前执行的。

namezg 发表于 2012-11-1 19:25:28

我试了一下，结果正常

muhanleek 发表于 2012-11-1 20:23:35

namezg 发表于 2012-11-1 19:25 static/image/common/back.gif
我试了一下，结果正常

(defun C:xx()
(setq AcadObject (vlax-get-acad-object)
      AcadDocument (vla-get-ActiveDocument AcadObject)
)
(vla-put-Width AcadDocument 100)
(vla-put-Height AcadDocument 200)

(vla-ZoomExtents AcadObject)


)

不是在命令行一行一行执行,你把它写成上面一个程序，加载后执行看看。。。。。。

muhanleek 发表于 2012-11-1 20:27:22

遇到过的TX讲下呗！！！！

namezg 发表于 2012-11-1 22:13:14

本帖最后由 namezg 于 2012-11-6 20:43 编辑

书上说vla-ZoomExtents适用于目前作用的视口，vla-put-Width vla-put-Height改变了作用的视口，不知是不是这个原因感觉不对，呵呵。

muhanleek 发表于 2012-11-2 11:12:26

我顶，那怎么 解决呢 ？？？？

muhanleek 发表于 2012-11-2 13:21:13

顶到解决为止

muhanleek 发表于 2012-11-2 16:05:03

ding ding ding

muhanleek 发表于 2012-11-2 22:32:54

我顶顶顶！！！！！！！！！！！！

muhanleek 发表于 2012-11-3 11:39:49

帮顶一下。。。。。。。。。
页: [1] 2
查看完整版本: 奇怪现象，vla-ZoomExtents错误！！！！