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

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

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



http://bbs.mjtd.com/static/image/common/star_level3.gif积分1581
电梯直达http://bbs.mjtd.com/static/image/common/fj_btn.png
楼主
http://bbs.mjtd.com/static/image/common/online_member.gif 发表于 2021-12-13 23:56 | 只看该作者 http://bbs.mjtd.com/static/image/common/arw_r.gif



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 "输入 ...

大神啊，太感谢了！！太好用了！！太棒了！！菜鸟小女子得救啦~~~~
页: [1] 2 3
查看完整版本: 大神救命啊，救救可怜的小女子