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

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

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

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

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

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

(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)
)波总的代码标记一下

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

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

最佳答案