[求助]：请大家帮忙看下程序哪里错了

eobser

[PHP](defun c:sk()
   (setvar "cmdecho" 0)
   (setq en1 (car (entsel "\n选择范围多段线(封闭):"))
         pt1 (getpoint "\n选择对角线第一点:")
         pt2 (getpoint pt1 "\n选择对角线第二点:")
   )
   (if (= nill (setq sc (getreal "\n给定视口比例<1>:")))
       (setq sc 1)
   )
   (command ".copybase" pt1 en1 "")
   (setvar "tilemode" 0)
   (setq pt3 (getpoint "\n指定视口位置点:"))
   (command "pasteclip" pt3)
   (setq en2 (entlast))
   (command ".scale" en2 "" pt3 sc)
   (command "-vports" "O" en2)
   (command "mvsetup" "s" en2 "" "" sc "")
   (setq pt4 (getvar "viewctr"))
   (setq pt5 (cons (/ (+ (car pt1) (car pt2)) 2) (/ (+ (cadr pt1) (cadr pt2)) 2)))
   (command ".mspace")
   (command "pan" pt5 pt4)
   (princ)
)
[/PHP]

我想在模型空间选定范围创建视口。
似乎在   (command "mvsetup" "s" en2 "" "" sc "")图元名en2有点问题，但我调不出了。请大家帮忙，谢谢！

zml84

MVSETUP在COMMAND中不能使用，原因不知。
<br>
另外，变量SC输入处是笔误吧？如下所示：
[PHP]
    (if        (= nill (setq sc (getreal "\n给定视口比例<1>:")))
        (setq sc 1)
    )
;;;改为>>>>>>>
    (if        (= nil (setq sc (getreal "\n给定视口比例<1>:")))
        (setq sc 1)
    )

;;;亦可改为>>>>>>>
    (if        (setq sc (getreal "\n给定视口比例<1>:"))
        ()
        (setq sc 1.0)
    )
[/PHP]

aeo

(command "-vports" "O" en2)
(command "mvsetup" "s" en2 "" "" sc "")

命令vports其实生成了一个新的mview，那个多义线其实是一个视口的剪切而已
mvsetup,只能正对mview

(command "-vports" "O" en2)
(setq en2(entlast))
(command "mvsetup" "s" en2 "" "" sc "")

eobser

谢谢！
已经改过，可是还是不行。提示如下：
指定视口位置点:未知命令“MVSETUP”。按 F1 查看帮助。
未知命令“S”。按 F1 查看帮助。
<图元名: 7EF6E470>
; 错误: 函数被取消
命令: *取消*[/COLOR]
是不是命令mvsetup的问题，使用此命令时提示：
命令: mvsetup
正在初始化...
输入选项 [对齐(A)/创建(C)/缩放视口(S)/选项(O)/标题栏(T)/放弃(U)]: *取消* [/COLOR]

zml84

不是所有的命令都可以在COMMAND函数中调用的。