[讨论]：布局中的cvport变量

carrot1983

想实现像天正的定义视口的功能。
遇到了以下的难题

AutoCAD Express Tools Copyright ?2002-2004 Autodesk, Inc.

AutoCAD 菜单实用程序已加载。
命令: 'VLIDE

命令:
命令: tt
输入新视口第一点<退出>:
输入角点<退出>:
输入视口比例1:<100>  正在重生成布局。
重生成模型 - 缓存视口。
正在重生成模型。

命令:  TT 恢复缓存的视口.

输入新视口第一点<退出>:
输入角点<退出>:
输入视口比例1:<100>  恢复缓存的视口 - 正在重生成布局。
正在重生成模型。

命令:  TT 恢复缓存的视口.

输入新视口第一点<退出>:
输入角点<退出>:
输入视口比例1:<100>  恢复缓存的视口 - 正在重生成布局。
正在重生成模型。

命令:  TT 恢复缓存的视口.

输入新视口第一点<退出>:
输入角点<退出>:
输入视口比例1:<100>  恢复缓存的视口 - 正在重生成布局。
; 错误: AutoCAD 变量设置被拒绝: "cvport" 6

[PHP]
(vl-load-com)
(defun C:TT ()
  (setvar "cmdecho" 0)
  (setq ACADOBJ (vlax-get-acad-object))
  (setq ACADDOC (vla-get-activedocument ACADOBJ))
  (setq CTAB (getvar "ctab"))
  (setq LAYOUTS (layoutlist))
  (if (= CTAB "Model")
    (setq CTAB (car LAYOUTS))
    (setvar "ctab" "Model")
  )
  (if (and
        (setq PT1 (getpoint "\n输入新视口第一点<退出>:"))
        (setq PT3 (getcorner PT1 "\n输入角点<退出>:"))
        (if (setq SCALE (getreal "\n输入视口比例1:<100> "))
          t
          (setq SCALE 100.)
        )
        (> SCALE 0)
      )
    (progn
      (setvar "ctab" CTAB)
      (command "._pspace")
      (command "._mview" "none" PT1 "none" PT3) ;_建立视口
      (setq VPE (entlast))
      (setq VPO (vlax-ename->vla-object VPE))
      (setq ELIST (entget VPE))
      (setq V10 (cdr (assoc 10 ELIST))) ;_视口中心
      (setq V69 (cdr (assoc 69 ELIST))) ;_视口ID
      (command "._mspace")
      (setvar "cvport" V69)
      (command "._zoom" "w" "none" PT1 "none" PT3)
      (command "._pspace")
      ;;设置视口自定义比例
      (setq SCALE (/ 1 SCALE))
      (vla-put-standardscale VPO acvpcustomscale)
      (vla-put-customscale VPO SCALE)
      (command "._scale" VPE "" "none" V10 SCALE)
      (command "._move"
               VPE
               ""
               "none"
               (cadr (assoc V69 (vports)))
               '(0 0 0)
      )
      (command "._move"        VPE "" "none" '(0 0 0) PAUSE)
    )
  )
  (setvar "cmdecho" 1)
  (princ)
)
[/PHP]


; 错误: AutoCAD 变量设置被拒绝: "cvport" 6
有时候，把现有的视口删除后，再运行本程序，也会出现类似情况
有解决办法吗？
[/COLOR]