spiker7221 发表于 2022-7-5 23:42:14

从虚线中提取文本

知道了！
 
 
我有一份出口清单，里面有长度和数量的点对。。。。
 
((2.0 1) (3.0 1) (5.0 1) (6.0 1) (7.0 3) (12.0 4) (14.0 1) (16.0 2) (18.0 5))
 
如何分离/提取我需要的数字。。。
 
即。
3@7'长
 
迈克

spiker7221 发表于 2022-7-5 23:48:16

解决了。。。

David Bethel 发表于 2022-7-5 23:49:08

只需提醒一下，你发布的列表不是虚线对-大卫
 
很高兴你发现了

spiker7221 发表于 2022-7-5 23:54:08

下午好，大卫，
我用你的代码片段创建了我的列表。。。。
 
(setq raflst (if (assoc flen raflst)
   (subst (list flen (+ 1 (cadr (assoc flen raflst))))
            (assoc flen raflst) raflst)
            (cons (list flen 1) raflst))
);end setq
 
我想知道为什么列表中有一组额外的参数。。。。那么，我如何获得这些数字呢？
 
迈克
 
 

Snownut 发表于 2022-7-5 23:55:15


(setq lgth 7.0
       lmbrlst (list '(2.0 1) '(3.0 1) '(5.0 1) '(6.0 1) '(7.0 3) '(12.0 4) '(14.0 1) '(16.0 2) '(18.0 5))
       textstr (strcat (itoa(cadr(assoc lgth lmbrlst))) " @ " (rtos lgth 2 1)"' long")
)

David Bethel 发表于 2022-7-5 23:58:28

这可能是由于它是多路（setq）调用的一部分
 

(setq raflst
(if (assoc flen raflst)
   (subst (list flen (+ 1 (cadr (assoc flen raflst)))) (assoc flen raflst) raflst)
   (cons (list flen 1) raflst)))

 
 
-大卫

BIGAL 发表于 2022-7-6 00:03:23

 
你解决这部分问题了吗？

spiker7221 发表于 2022-7-6 00:06:56

嘿BigAl，
 
不，还没有。显然，我的虚线不是一个列表。
 
((2.0 1) (3.0 1) (5.0 1) (6.0 1) (7.0 3) (12.0 4) (14.0 1) (16.0 2) (18.0 5))
 
那么，我该如何把上面的清单列出来呢？
 
迈克
 

BIGAL 发表于 2022-7-6 00:10:25

我会尽快给你寄些东西，基本上我在工作的地方做了这件事
 
(setq len (length exportlist))
(setq x 0
y 0)
(repeat len
(setq newlst (Nth Y exportlist)) ; get 1st pair of big list
(setq var1 (nth x newlst)) ;to get 1st value
(setq var2 (nth (+ x 1) newlst );to get 2nd value
; do something here with var1 var2
(setq x 0)
(setq y (+ y 1))
) ;continue repeat

Snownut 发表于 2022-7-6 00:13:42

斯派克，
 
你试过我在VLIDE上面列出的代码吗。。。
 
它在lgth=木材长度后准确返回您的状态
页: [1] 2
查看完整版本: 从虚线中提取文本