大神救命啊，救救可怜的小女子

fedd · 发表于 2021-12-14 11:32:59

本帖最后由 fedd 于 2021-12-14 12:04 编辑

积分1581

电梯直达[url=]

[/url]
楼主

发表于 2021-12-13 23:56 | 只看该作者

xy任何一个输入0值，程序就运行不下去，显示参数类型错误numberp
(defun c:O ()
      (setq x(getreal (strcat "输入水平偏移：<" (rtos 0) ">")))
      (setq y(getreal (strcat "输入垂直偏移：<" (rtos 0) ">")))
      (setq cp(getpoint "选择基点："))
      (setq px1(car cp))
      (setq py1(cadr cp))
      (setq mx(+ px1 x))
      (setq my(+ py1 y))
      (setq mpt(list mx my))
      (command "LINE" mpt PAUSE "")
      (princ)
)

vitalgg · 发表于 2021-12-14 16:01:02

本帖最后由 vitalgg 于 2021-12-14 16:02 编辑

(or (setq x(getreal (strcat "输入水平偏移：<" (rtos 0) ">")))
(setq x 0))
(or (setq y(getreal (strcat "输入垂直偏移：<" (rtos 0) ">")))
(setq y 0))

回车，就是默认为 0
一个小女子，钓出多少大佬。男人至死是少年啊。

自贡黄明儒 · 发表于 2021-12-14 14:42:39

fedd 发表于 2021-12-14 13:57
大哥，这个我早试过，确实没问题，就是想设置一个默认值0，经常要输入0
这个为什么不能做到呢？或许需要 ...

(setq x(getreal "输入水平偏移<0>："))
(if (not x) (setq x 0))
(setq y(getreal "输入垂直偏移<0>：" ))
(if (not y) (setq y 0))

baitang36 · 发表于 2021-12-14 13:49:13

本帖最后由 baitang36 于 2021-12-15 15:50 编辑

(defun c:O ()
      (setq x(getreal  "输入水平偏移："))
      (setq y(getreal "输入垂直偏移：" ))
      (setq cp(getpoint "选择基点："))
      (setq px1(car cp))
      (setq py1(cadr cp))
      (setq mx(+ px1 x))
      (setq my(+ py1 y))
      (setq mpt(list mx my))
      (command "LINE" mpt PAUSE "")
      (princ)
)

xj6019 · 发表于 2021-12-14 12:49:58

你那个帖子大神不是给你回复了吗没问题呀

fedd · 发表于 2021-12-14 13:14:27

xy任何一个输入0值，程序就运行不下去，显示参数类型错误numberp
你试过了没？

bssurvey · 发表于 2021-12-14 13:56:04

在2008測試沒問題

fedd · 发表于 2021-12-14 13:57:49

baitang36 发表于 2021-12-14 13:49
(defun c:O ()
(setq x(getreal "输入水平偏移："))
(setq y(getreal "输入垂直偏移 ...

大哥，这个我早试过，确实没问题，就是想设置一个默认值0，经常要输入0
这个为什么不能做到呢？或许需要一个把字符串转化成实数的函数？

start4444 · 发表于 2021-12-14 16:01:32

用不用发那么多帖子啊，感觉你根本没把想要达到的效果说清楚

fedd · 发表于 2021-12-14 16:56:05

vitalgg 发表于 2021-12-14 16:01
(or (setq x(getreal (strcat "输入水平偏移：")))
(setq x 0))
(or (setq y(getreal (strcat "输入 ...

大神啊，太感谢了！！太好用了！！太棒了！！菜鸟小女子得救啦~~~~

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

[讨论] 大神救命啊，救救可怜的小女子