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想要的单位精度是多少，所以为了安全起见，我只保留了小数点后两位。
 
很高兴你把它分类了
页: 1 [2]
查看完整版本: 需要从x，y，z到x，y，c