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

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

(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
我试了一下，结果正常

(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

帮顶一下。。。。。。。。。

账号		自动登录	找回密码
密码			注册