（读取（strcat）（“管150x150

muthu123 · 发表于 2022-7-6 10:57:36

请在这个问题上提供帮助。

（读（strcat“（”“TUBE150X150X4.5 20.2”“））

它返回一个列表
（管150x150x4 20.2）。

但我需要一份清单
（管150x150x4.5 20.2），包括小数点。

你的
穆图。

Tharwat · 发表于 2022-7-6 11:05:37

你好

试试这个。

copy

(read (strcat " " TUBE150X150X4.5 20.2 " "))

当做
塔瓦特

muthu123 · 发表于 2022-7-6 11:10:40

不工作。

Tharwat · 发表于 2022-7-6 11:17:04

在这里进行得很顺利。
加载文件并键入abc开始；

copy

(defun c:abc (/ a b c d e f g tharwat pt)
(setq a "TUBE"
     b "150"
     c "X"
     d "150"
     e "X"
     f "4.5"
     g "20.2")
(setq tharwat (strcat "(" a b c d e f " " g ")"))
  (if (setq pt (getpoint "\nSpecify placement point: "))
   (entmake (list '(0 . "TEXT")
                  (cons 40 (getvar 'textsize))
                  (cons 10 (trans pt 1 0))
                  (cons 1 tharwat)
      ) ) )
 (princ)
)

结果是（TUBE150X150X4.5 20.2）
享受
塔瓦特

BIGAL · 发表于 2022-7-6 11:23:44

我认为您需要的是strcat chr（x）“TUBE150X150X4.5”“20.2”chr（y）

例如13，x的正确值是回车32是空格。你可以用我几年前写的一个数字值替换任何键盘字符。一个asc lisp在我按键时给了我数字。

大提示在lisp帮助中查找帮助asc和chr

抱歉，找不到asc。lsp也称为asci密钥代码。

Tharwat · 发表于 2022-7-6 11:30:01

你好
如果你能给我们举个例子，那会更好。。。。。

塔瓦特

Tharwat · 发表于 2022-7-6 11:32:04

你好muthu123
今天是你的幸运日，伙计。。。我的想法今天很快就被烧掉了。
看看这个，它和前一个一样好。

copy

(defun c:abc (/ a pt)
(setq a "(TUBE150X150X4.5 20.2)")
  (if (setq pt (getpoint "\nSpecify placement point: "))
   (entmake (list '(0 . "TEXT")
                  (cons 40 (getvar 'textsize))
                  (cons 10 (trans pt 1 0))
                  (cons 1 a)
      ) ) )
 (princ "Cad Tutor Forum is the best")
(princ))

当做
塔尔瓦尔

Tharwat · 发表于 2022-7-6 11:35:55

所以最后。

主要问题在函数“read”内，因为它不包含小数
数字或无法处理它。

希望这是有益的和足够的。

萨尔瓦特
叙利亚

VVA · 发表于 2022-7-6 11:45:37

这么满意？

copy


(read (strcat "(" [b][color="Red"]"""[/color][/b] "TUBE150X150X4.5" [b][color="Red"]"""[/color][/b] "20.2" ")"))

返回（“管150x150x4.5”20.2）

Tharwat · 发表于 2022-7-6 11:47:58

它与要求不同。用括号试试眨眼：

我希望看到它成为现实。

[编程交流] （读取（strcat）（“管150x150

发表回复

精选推荐