拆分文字

godofcad · 发表于 2022-7-6 07:56:35

你好

我想从列表中拆分单词（包括coma），并为每个拆分的单词创建变量

Example: "1,221866.070,1937463.651,611.892,A1"
want to split like this 
"1"
"221866.070"
"1937463.651"
"611.892"
"A1"

等待您的回复。。。。
:(:(:(

甘尼什·谢蒂

pBe · 发表于 2022-7-6 08:00:44

戈多夫卡。拆分“文字”很简单。像这种情况下，“单词”的数量总是5吗？如果没有。这就是问题的开始，变量名是什么？每次都不同？

样品

copy


(defun _delFinder  (str md / d l str)
     (while (setq d (vl-string-position md str nil T))
           (setq l (cons (substr str (+ 2 d)) l)
                 str (substr str 1 d)))
     (cons str l)
     )

copy

(setq str "1,221866.070,1937463.651,611.892,A1")
(setq tovar (_delfinder str 44) cnt 0)
(foreach words tovar
     (set (read (strcat "[b][color=blue]Var[/color][/b]" (itoa (setq cnt (1+ cnt))))) words))

var1->“1”
var2->“221866.070”
var3->“1937463.651”
var4->“611.892”
var5->“A1”

但是，您可以不使用变量名，直接从列表中完成任务。

pBe · 发表于 2022-7-6 08:04:28

我们可以通过分配收集/拆分的“文字”的真实值来进一步实现这一点

copy

(foreach words tovar
     (set (read (strcat "Var" (itoa (setq cnt (1+ cnt)))))
          [b][color=blue](if (numberp (setq num (read words))) num words))[/color][/b])

var1->1
（var1型）INT
var2->221866.070
（var2型）REAL
var3->1937463.651
（var3型）REAL
var4->611.892
（var4型）REAL
var5->“A1”
（var5型）STR

HTH公司

Tharwat · 发表于 2022-7-6 08:10:03

你好

晚会有点晚了，但总比什么都没有好

用法示例。。。

copy

(_StepThrough "1,221866.070,1937463.651,611.892,A1")

Tharwat · 发表于 2022-7-6 08:13:51

稍微好一点。。。。

copy


(defun _StepThrough (lst / chars integer position values variables)
;;;                 Tharwat 19. May. 2012               ;;;
;;; divide a list of strings that contain commas within ;;;
 (if (eq (type lst) 'STR)
   (setq chars (vl-string->list lst)))
 (if (eq (car chars) 44)
   (setq lst (substr lst 2 (strlen lst))))
 (if (eq (last chars) 44)
   (setq lst (substr lst 1 (1- (strlen lst)))))
 (setq lst (strcat lst ",") integer 0)
 (while (setq position (vl-string-search "," lst 0))
   (if (setq values (cons (set (read (strcat "a" (itoa (setq integer (1+ integer)))))
                  (substr lst 1 position)
                )
                values
              )
       )
     (setq variables (cons (strcat "a" (itoa integer)) variables))
   )
   (setq lst (substr lst (+ position 2) (strlen lst)))
 )
 (print (reverse variables))
 (print (reverse values))
 (princ)
)

ReMark · 发表于 2022-7-6 08:17:57

我刚刚注意到OP的屏幕名称：CAD之神。有人会认为CAD之神会知道所有的答案。

pBe · 发表于 2022-7-6 08:18:35

好吧，这也可能是一个对卡德·古夫（cadd goof）的字谜，不要冒犯，戈多夫·卡德（godofcad），我们只是在“偷懒”

随便。“文字”似乎是测量点的标签\坐标\描述。然后，就像我之前建议的那样，直接从列表中写出（我猜是属性）值，这将消除将每个值赋给变量的需要

copy

(foreach words (_delfinder str 44)
........  ;<-- your code here
)

我真的很抱歉我提到我的cp名为godofcad
我的avtar是lisp。。。对不起其他人

我今天要结帐

:(

godofcad · 发表于 2022-7-6 08:22:02

通过将命令调用替换为层、文本和点的函数entmake（x），可以改进代码。

pBe · 发表于 2022-7-6 08:28:24

你为什么要这么做？我以前说过。别生气，会员们只是在装傻，仅此而已

只工作不玩耍，戈多夫卡会变傻。。。。

Blackfish · 发表于 2022-7-6 08:30:11

油箱u pBe。。。隐马尔可夫模型。。。。。Tats ok。。。。

我不会感到难过，也不会关闭我的帐户

坦克为您提供支持

:):):):)

[编程交流] 拆分文字

发表回复

精选推荐