CAD开发者社区 › 首页 ›AutoCAD二次开发指南› AutoLISP 开发指南› AutoLISP：开发人员指南› AutoLISP 核心概念› 关于使用 AutoLISP 与 AutoCAD 通信（AutoLISP）› 关于数据转换（AutoLISP）› 关于单位转换（AutoLISP） › 查看内容

AutoLISP 开发指南

示例：将英寸转换为米（AutoLISP）

2023-1-6 12:15| 发布者: admin| 查看: 1340| 评论: 0|来自: AutoCAD

摘要: 此示例演示如何使用 cvunit 函数将用户指定的距离（以英寸为单位）转换为米。

此示例演示如何使用该函数将用户指定的距离（以英寸为单位）转换为米。cvunit

(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)
)