zzl9105 发表于 2011-10-24 17:38:16

关于”选择对象[设置(S)]“

关于”选择对象[设置(S)]“的应用
在程序中，有时会用到改变变量预定值的时候，要用到这个，
按s，自动执行某些代码，你就可以在提示下，给某变量定新值，
这个函数，是用关键字getkword实现的不？
是怎样的一个格式来响应呀？
谢谢大虾指点！



http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 zzl9105的微博

sen.sam 发表于 2011-10-24 22:55:14

本帖最后由 sen.sam 于 2011-10-24 22:56 编辑

(initget "S")
(setq ent(entsel "\n选择对象[设置(S)]:"))
(cond
       ( (= ent "S")
         (设置)
       )
   ((= (type ent) 'list)
   (处理选择的物体)
   )
)



xiaxiang 发表于 2011-10-25 09:00:40

回楼上，应加上出错提示，如

(setq flag nil)
(while (not flag)
(initget "S")
(setq ent(entsel "\n选择对象[设置(S)]:"))
(cond
       ( (= ent "S")
         (设置)
       )
   ((= (type ent) 'list)
      (setq flag T)
   (处理选择的物体)
   )
    (T
   (princ "\n无效选择。 需要选择对象或者输入S修改相应设置。\n")
   )
)
)

menger_8 发表于 2011-11-1 18:15:05

不错，记录一下备用。。。。
页: [1]
查看完整版本: 关于”选择对象[设置(S)]“