需要从x，y，z到x，y，c

cabltv1 · 发表于 2022-7-6 15:54:37

再次感谢李。
我知道我说过我会让你和CarlB单独呆着，但我又解决了一个问题。上面的代码（效果很好）添加了尾随零，我需要去掉它们。
例子：
2474002.00'-6.42",7002900.00'-4.24"
是否有删除“.00”的快速修复方法。

再次感谢。

每个解决方案都会产生新的问题。

CarlB · 发表于 2022-7-6 15:59:43

运行DIMZIN之前，请尝试将其设置为0。如果可行，您可以在例程中包含一行：

（setvar“DIMZIN”0）

cabltv1 · 发表于 2022-7-6 16:01:50

它已设置为“0”。

CarlB · 发表于 2022-7-6 16:07:49

我只看过你的代码片段，不知道哪部分给你带来了麻烦。但是从李的帖子中，我猜它应该在“in2ft”子程序中：

(defun in2ft (num / ft in)
 (setq ft (fix (/ num 12.0))
   in (rem num 12.0))
 (strcat (rtos ft 2 2) (chr 39) (chr 45)
     (rtos in 2 2) (chr 34)))

如果是这样，只需更改
（strcat（rtos ft 2 2）至
（strcat（rtos ft 2 0）

cabltv1 · 发表于 2022-7-6 16:11:02

就这样！！！
完美的
非常感谢你。

我保证让你和李单独呆着
（一段时间）

Lee Mac · 发表于 2022-7-6 16:14:22

卡尔，谢谢你帮我整理，这几天我有点忙

我不确定cabltv想要的单位精度是多少，所以为了安全起见，我只保留了小数点后两位。

很高兴你把它分类了

[编程交流] 需要从x，y，z到x，y，c