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

也许是这个
 
(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

这可能有用。。。。

(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。。。。。。。它起作用了。
精彩的
页: [1] 2
查看完整版本: 文字从英制到公制