文字从英制到公制

datalife · 发表于 2022-7-6 07:01:23

你好

我绘制了大量的文字测量点，单位为英制（ft）。我需要换衣服
它符合公制（m）。是否有lisp通过“围栏”文本来更改文本
并在屏幕中立即转换为公制（m）。

谢谢：）

Tharwat · 发表于 2022-7-6 07:08:31

简单的绘图可能会有很大帮助（显示当前和之后）

datalife · 发表于 2022-7-6 07:12:29

你好Tharwat。。。。。
不太明白你的答案？将
如果Lisp程序可以节省时间，我们将不胜感激

谢谢

Dadgad · 发表于 2022-7-6 07:23:05

在我看来，你实际上可能想做的是改变你画的图形
从当前的英制单位到您首选的公制单位。
我可能错了，看看样品会有帮助。dwg文件，如Tharwat建议。

Tharwat · 发表于 2022-7-6 07:26:44

就像你在其他帖子中所做的那样，只需上传一个示例图。

pBe · 发表于 2022-7-6 07:32:12

也许是这个

copy

(defun _I2M  (str m d)
     (if (distof str)
           (rtos (* (distof str)
                    (* 0.0254 (if m 1000 1))
                       )
                     2
                 (if m 0 d))
           )
     )

T代表毫米

（_i2m“6'-11”t 2）
"2108"

仪表为零
2位小数
（_i2m“6'-11 \”nil 2）
"2.11"

（_i2m“6'-11 \”nil 4）
"2.1082"

HTH公司

datalife · 发表于 2022-7-6 07:34:47

大家好，
我已收到验船师的图纸
其中文字以英制（即英尺）单位显示测量点。

我提取了部分图纸；如前所述；我希望
要使用lisp“隔离”文本并替换中的文本
公制（即米）单位

谢谢
帝国的图纸

Dadgad · 发表于 2022-7-6 07:43:50

我检查了您的图形的绘图单位，它们是米，因此看起来很合适。

看起来像李的http://www.lee-mac.com/textcalculator.html
lisp可能能够做到这一点。我以前从未注意到这一点
在李网站上的所有其他共享软件中，我想我会的
如果我不看一眼，那就是失职了。
谢谢李！

Tharwat · 发表于 2022-7-6 07:48:30

这可能有用。。。。

copy


(defun c:f2m (/ ss)
 (if (setq ss (ssget "_:L" '((0 . "*TEXT"))))
   ((lambda (i / sn st e)
      (while (setq sn (ssname ss (setq i (1+ i))))
        (if (numberp (setq st (read (cdr (assoc 1 (setq e (entget sn)))))))
          (entmod (subst (cons 1 (rtos (* 0.3048 st) 2 2)) (assoc 1 e) e))
        )
      )
    )
     -1
   )
   (princ)
 )
 (princ)
)

datalife · 发表于 2022-7-6 07:50:35

谢谢Tharwat。。。。。。。它起作用了。
精彩的

[编程交流] 文字从英制到公制

发表回复

精选推荐