[求助]能输数字和字符的代码

啵浪鼓 · 发表于 2009-10-2 12:04:00

在写一段文字求高程序, 下面的代码中,为什么输入数字进去,enp返回一直是nil呀,请问要怎样写这段话呀

(setq s0 (strcat "\n >A=FileName<;>B=FilePath<;>输入数字=文字高度<" ))
(initget "A B a b ")
(setq enp (entsel s0))
(if (= enp nil)(setq s 3)
(setq s (abs enp)))

ZZXXQQ · 发表于 2009-10-2 22:33:00

entsel 在使用initget时不支持任意输入数字。如果输入数字，CAD将按鼠标移动方向寻找实体。该位置有实体则返回该实体；无实体返回nil。

狂刀无痕 · 发表于 2009-10-3 01:23:00

可以用getpoint

再 nentselp

啵浪鼓 · 发表于 2009-10-5 00:44:00

按照狂刀无痕的代码,得到的是坐标系,如何求出用户输入的值,求大侠再指点一下!

啵浪鼓 · 发表于 2009-10-5 01:24:00

如何让程序分辨用户输入的到底是数字还是字符呢??????头大了!

用getstring可以同时输入数字与字符,但是下面的语句却不能限制用户输入除数字与A B a b以外的字符,getstring也不能用!

(initget "A B a b ")
(setq enp (getstring s0))

xyp1964 · 发表于 2009-10-5 09:03:00

(SETQ NO1 (UREAL 7 "" "字高" NO1))

明经网友 *发表于 2009-10-5 09:33:00* · 发表于 2009-10-5 09:33:00

xyp1964斑主的代碼只能輸數字﹐我需要的是一段能一次同時輸入數字和字母的代碼(initget "A B a b ")

啵浪鼓 · 发表于 2009-10-5 09:35:00

xyp1964版主的代碼只能輸數字﹐我需要的一段代碼是能同時輸入數字和字母的代碼 (initget "A B a b ")

龙龙仔 · 发表于 2009-10-5 12:12:00

(defun C:TT (/ ENP FLAG)
(setq FLAG t)
(while FLAG
    (cond
      ((= (progn (initget 128)
   (setq ENP
   (getpoint
     (strcat "\n FileName<A>/FilePath<B>/文字高度<輸入數字>: "
     )
   )
   )
   )
   NIL
       )
       (setq FLAG t)
      )
      ((wcmatch (substr ENP 1 1) "[0-9]")
       (setq ENP (atof ENP)
      FLAG NIL
       )
      )
      ((wcmatch (setq ENP (strcase (substr ENP 1 1))) "[AaBb]")
       (setq FLAG NIL)
      )
    )
)
ENP
)

啵浪鼓 · 发表于 2009-10-5 18:30:00

龍哥厲害﹐愛死你了﹐謝謝﹗

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

[求助]能输数字和字符的代码

评分