[求助]：菜鸟求一段LSP语句解释！

Dream.Fei · 发表于 2006-6-26 14:01:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

下面这一段是我曾经在：http://www.xdcad.net/forum/showt ... �过了，可行。

但是因为当时做的是一个数值（REAL）来的，我现在就想把这个变成字符，但是我简单的的把 Getrea l改成了 Getstring 后，却发现行不通，程序运行后，不能记住上次的输入。

还有：这一段中，BIT 的设定有什么作用？

[PHP](defun ureal (bit kwd msg def / inp)
  (if def
(setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
   bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp
inp
def
  )
)[/PHP]

wuzz · 发表于 2006-6-26 15:36:22

记住上次程序运行的输入：
(defun g:str(string default)
      (princ string)
      (princ "<")
      (princ default)
      (princ ">:")
      (princ "")
)
(defun c:z3(/  p w n l i e m  older pt1 r)
......
(if (not g:wi)
      (setq g:wi (* (getvar "dimscale") 0.5))
)
(setq w (getreal (g:str "\n请输入实体宽度" g:wi)))
(if w
      (setq g:wi w)
      (setq w g:wi)
)
......
）

Dream.Fei · 发表于 2006-6-26 16:49:44

老实说，有点看不懂。能解释吗？或者QQ聊也行：7686599

wuzz · 发表于 2006-6-27 08:54:45

先运行下，看看是不是你想要的结果

Dream.Fei · 发表于 2006-6-27 10:58:42

有点太长了，我新学LSP，我都不知道该怎么插到程序中去啊。我觉得上面那种就较简单点，烦请楼上的老大帮我解释下好不？或者直接更改一下也行啊。

我要可以记住输入是英文的。比如说： “B”“ D” 等，还要另一种： “3210/E10/C/6001 ” 引号内的是可以记住的输入。能帮我按顶上的贴子更改下吗（最好是可以帮我解释，让我自己懂点，呵呵。）？多谢了！

littlecong · 发表于 2006-6-27 12:08:34

看看initget的帮助吧

Dream.Fei · 发表于 2006-6-27 13:00:51

BIT 知道了，那记住上次输入的字符呢？如： “B” “3210/E10A/C/6001”？

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

[求助] [求助]：菜鸟求一段LSP语句解释！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子