如何改成默认输入值

nayipiantian999 · 发表于 2022-7-8 09:03:16

(if (and (setq aarea (getdist "\n指定面积值(小于此值的面积将删除) <300>:"))；如何改成回车默认输入300？
(princ "\n选择封闭实体 :")
(setq ss (ssget '((0 . "CIRCLE,*POLYLINE"))))) (progn

自贡黄明儒 · 发表于 2022-7-8 09:35:52

(setq aarea (getdist "\n指定面积值(小于此值的面积将删除) <300>:")
(if (not aarea) (setq aarea 300))
(princ "\n选择封闭实体 :")
......

原地踏步 · 发表于 2022-7-8 09:38:34

先在你的程序之外定义一个全局变量：
(setq default_area 300)
然后再写你的程序，将aarea定义为局部变量。
......
(if (and (setq aarea (getdist "\n指定面积值(小于此值的面积将删除) <300>:"
         (princ "\n选择封闭实体 :")
         (setq ss (ssget '((0 . "CIRCLE,*POLYLINE"))))) (progn
  ......
在适当位置输入默认值：
  (if aarea
(setq default_area aarea)
(setq aarea default_area)
  )
......

菜卷鱼 · 发表于 2022-7-8 16:27:45

(if (null *auto_xh*)
  (setq *auto_xh* 1)
)
(mapcar 'princ (list "\n起始编号:<" *auto_xh* ">"))
(setq num (getint))
(if (= num nil)
  (setq num *auto_xh*)
  (setq *auto_xh* num)
)

czb203 · 发表于 2022-7-9 20:14:16

谢谢各位大佬的分享～

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

[讨论] 如何改成默认输入值