求输入tt，提示输入数字，比如输入1后，提示框选，框选后建立一个名称为1，以框选边界

664571221

求输入tt，提示输入数字，比如输入1后，提示框选，框选后建立一个名称为1，以框选边界为编辑边界的视图。

嘒彼小星

(defun c:tt()
        (setq v (getstring "\n视图名称："))
        (command "-VIEW" "w" v )
        (princ)
)

664571221

(defun c:tt (/ p)
        (setvar "CMDECHO" 0)
        (or #BT-VIEW (setq #BT-VIEW 0))
        (setq #BT-VIEW (1+ #BT-VIEW))
        (command "-view"  "w" (itoa #BT-VIEW) (setq p (getpoint)) (getcorner p))
        (princ)
)波总的代码标记一下