AutoLisp英寸转米

电脑技术 电脑技术 1134 人阅读 | 0 人回复 | 2022-04-15

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

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

x
(defun C:I2M ( / eng_len metric_len eng metric)
  (princ "\nConverting inches to meters. ")
  (setq eng_len
    (getdist "\nEnter a distance in inches: "))
  (setq metric_len  (cvunit eng_len "inches" "meters"))
  (setq eng (rtos eng_len 2 4)
        metric (rtos metric_len 2 4))
  (princ
    (strcat "\n\t" eng " inches = " metric " meters."))
  (princ)
)
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

热门推荐