坐标标注

gengjun2018 · 发表于 2018-11-29 14:54:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

找了个可以标注Z坐标的代码，能标注Z坐标但是是毫米单位，请大神帮忙改下，把标注结果改成米为单，也就是原标注值除以1000
(defun c:zz()
(getpoint
(setq a (getpoint "point"))
(setq b (strcat " H=" (rtos (caddr a) 2 0) ))
(command "-text" a "" "" b "")
)
)

Lisphk · 发表于 2018-11-29 15:30:25

这个地方
(caddr a) 改成 (/ (caddr a) 1e6)

gengjun2018 · 发表于 2018-11-29 19:47:54

Lisphk 发表于 2018-11-29 15:30
这个地方
(caddr a) 改成 (/ (caddr a) 1e6)

可以，非常感谢

应该是1e3

tzfcn · 发表于 2018-11-29 21:03:23

这个只能标注标高的。

sicky111 · 发表于 2018-11-30 00:02:28

用不上，专业不一样！

cyfdean · 发表于 2020-4-14 19:18:45

谢谢分享

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

[求助] 坐标标注

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。