rtos 的問題

hoodpinrh · 发表于 3 天前

      (if *a1*
         (setq Newmove (getreal (strcat "\n移動值:" (rtos *a1* 2 2) ">:"))) ;;;假設輸入25mm
         (setq Newmove (getreal "\n移動值:")) )
      (if (null Newmove)
         (setq Newmove *a1*)
         (setq *a1* Newmove) )
      (setq ngc_snx (strcat (rtos *a1* 2 2) "0,0" ) ;;;到這邊就變為250,0,0 是什麼原因呢??我少做了什麼步驟嗎?
            ngc_ty (ssget) )

aws · 发表于 3 天前

当你输入25之后，newmove就是实数，紧接着(setq *a1* Newmove)*a1*也变成实数，你还能用rtos吗？

hoodpinrh · 发表于 3 天前

本帖最后由 hoodpinrh 于 2024-9-27 09:02 编辑

aws 發表於2024-9-27 08:54
當你輸入25之後，newmove就是實數，緊接著(setq *a1* Newmove)*a1*也變成實數，你還能用rtos嗎？

我套用在移動跟拉伸時，只有在x軸會變成這樣。用在y軸就不會有這樣的問題

飞雪神光 · 发表于 3 天前

因为strcat拼接了"0,0"

hoodpinrh · 发表于 3 天前

飞雪神光发表于 2024-9-27 09:00
因为strcat拼接了"0,0"

有方法不???

飞雪神光 · 发表于 3 天前

你要是只想得到25 把他删掉就行了啊

(rtos *a1* 2 2)

aws · 发表于 3 天前

本帖最后由 aws 于 2024-9-27 09:13 编辑

你是想转坐标吗，应该拼接",0,0"

hoodpinrh · 发表于 3 天前

aws 发表于 2024-9-27 09:12
你是想转坐标吗，应该拼接",0,0"

是的
我用在移動跟拉伸上

hoodpinrh · 发表于 3 天前

飞雪神光发表于 2024-9-27 09:00
因为strcat拼接了"0,0"

我找到我的問題點了，我把(strcat (rtos *a1* 2 2) "0,0") 改成 (strcat (rtos *a1* 2 2) ",0,0")。

VBALISPER · 发表于前天 08:24

就是少了一个逗号嘛

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

[提问] rtos 的問題