求助..........

tyliling · 发表于 2006-11-16 18:47

各位怎样把

(setq enn (entsel "\n直接选图元:"))和

(setq enn (getkword "\n修改<C>/移动<M>:"))

在同一命令行显示:也就是达到可以直接选图元或输入"C"或"M"

有什么方法可以.......

Andyhon · 发表于 2006-11-16 21:09

(initget "C Move")
(setq enn (entsel "\n直接选图元 or 修改<C>/移动<M>::"))

tyliling · 发表于 2006-11-23 07:24

楼主,如果我用"initget'先定义的话那我可以输入的字符就有限了,我想任意输入任何字符都行要怎样处理

zml84 · 发表于 2006-11-23 10:45

用while函数进行循环；
在循环内对输入内容做一判断，满足你的要求后退出循环；
即可

liu_kunlun · 发表于 2006-11-23 12:37

(setq ct t)
(while ct
   (setq ct nil)
   (initget 128)
   (setq pt (getpoint "\n修改<C>/移动<M>/\n直接选图元:"))
   (cond
         (   (= "c" pt)..........)
         ( (= "m" pt).........)
         ( (= 'LIST (type pt))
            (if (setq pt (ssget pt))
                (progn
                    ......
                )
                (setq ct t)
         ) )
         ( t (setq ct t) )
) )

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