664571221 发表于 2023-9-9 15:33:20

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

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

嘒彼小星 发表于 2023-9-9 15:33:21

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

664571221 发表于 2023-9-9 17:27:32

(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)
)波总的代码标记一下
页: [1]
查看完整版本: 求输入tt，提示输入数字，比如输入1后，提示框选，框选后建立一个名称为1，以框选边界