出了什么事？帮助，p

flopo · 发表于 2022-7-6 08:40:21

大家好，
我想换这个

（setq dr1（atof d1））
（setq dr2（atof d2））
（setq dr3（atof d3））
（setq dr4（atof d4））。。。。。。。。。
...........................................

有了这个：

（setq i 1）
（重复nrpct
（套
（读取（strcat“dr”（itoa i）））
（atof（读取（strcat“d”（itoa i）））

)
（setq i（1+i））
)

但不起作用。为什么？有什么帮助吗？谢谢

ketxu · 发表于 2022-7-6 08:46:19

nrpct的价值是多少？

pBe · 发表于 2022-7-6 08:49:53

假设d1-d4是字符串

（atof（eval（read（strcat“d”（itoa i \k）а））））

flopo · 发表于 2022-7-6 08:50:14

谢谢，Pbe

pBe · 发表于 2022-7-6 08:54:46

不客气，弗洛波。

干杯

flopo · 发表于 2022-7-6 08:56:23

还有这个

（setq pnr2（极性pnr1（dtr 0）dr1））
（setq pnr3（极性pnr2（dtr 0）dr2））
（setq pnr4（极性pnr3（dtr 0）dr3））

替换为：

（setq i 2）
（重复（-nrpct 1）
（套
（读取（strcat“pnr”（itoa i）））
（极性（eval（read（strcat“pnr”（itoa（-i 1 m）щ）））（dtr 0）（atof（read（strcat“dr”（itoa（-i 1щ）щ））））

（setq i（1+i））
)
)

pBe · 发表于 2022-7-6 09:01:28

copy

(setq i 2)
(repeat (- nrpct 1)
 (set
   (read (strcat "pnr" (itoa i)))
   (polar (eval (read (strcat "pnr" (itoa (- i 1)))))
   (dtr 0)
   (atof [color=blue][b](eval[/b][/color] (read (strcat "dr" (itoa (- i 1)))))[b][color=blue])[/color][/b]
   )
 )
 (setq i (1+ i))
)
)

flopo · 发表于 2022-7-6 09:03:01

输入消息上的额外右父级。出了点问题。。。

flopo · 发表于 2022-7-6 09:06:59

我试着没有最后一个右括号，但它不起作用。。。

pBe · 发表于 2022-7-6 09:09:09

如果出现以下情况，则代码中肯定没有：

（setq pnr1’（-3.65852 4.79514 0.0））；
（setq dr1“22”）；
（setq i 2）

copy


(repeat (- nrpct 1)
 (set
   (read (strcat "pnr" (itoa i)))
   (polar (eval (read (strcat "pnr" (itoa (- i 1)))))
   0
   (atof (eval (read (strcat "dr" (itoa (- i 1))))))
   )
 )
 (setq i (1+ i))
)

我想在这里发布你的代码不会有什么坏处，这样这里的任何人都可以参与进来，为你找出问题所在

[编程交流] 出了什么事？帮助，p

发表回复

精选推荐