关于ssget的一个问题

前生 · 发表于 2018-10-16 00:06:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

由于一个小程序的需要，针对ssget的选择有如下要求：
建立一个文本，比如c:\\1.txt 吧，这个文本可以编辑。
1.TXT 里面的文本，比如是下面的格式：
1 2300 2300 80
3 3400 3200 90
4 5400 3200 100
6 4300 3500 90
.......................
行数不限制。这其实是一个关于刀具转速进给以及吃刀量的排列。

一般来说，通过ssget 的选择是下面的形式：
(setq ssname (ssget ............................))
这个 ssname 是人为命名的。

现在的问题是：
怎么将这个ssname通过读取1.txt 文件，通过循环读取文件来自动命名选择集的名称为：
ss1
ss3
ss4
ss6
......

上述的ss1,ss3,ss4,ss6 的后面的数值为每行的第一个数。

evayleung · 发表于 2018-10-16 00:16:10

set，read命令，具体自己研究下吧，我也不是很懂的。

前生 · 发表于 2018-10-16 01:24:08

谢了。这个set真的很少用。
（open............
(while ..........

(set (read (stcat "ss"  (nth 0 (read  (strcat "("  (read-line f) ")")))
      (ssget ''''''''''
)......

受教了。学习

这个set  和 eval 都很少用，却在有些时候，很好用。

前生 · 发表于 2018-10-16 01:25:12

(nth 0 (read (strcat "(" (read-line f) ")"))
这个要加 (rtos .....
或 vl-pin1-to-string ........

前生 · 发表于 2018-10-16 01:31:03

marting · 发表于 2018-10-16 01:53:20

本帖最后由 marting 于 2018-10-16 01:54 编辑

动态赋值的，就SET,READ,EVAL

READ的作用是把字符串变成符号名，字符串可以用STRCAT动态的改变，这样符号名也就变了
SET 是给符号名赋值

命令: (setq a "1")
"1"

命令: (set (read "a") "2")
"2"
命令: !a
"2"

命令: (setq (read "a") "1")
错误: 语法错误

konglong604 · 发表于 2018-10-16 09:00:15

谢谢分享经验,让我也学习了一下.

账号		自动登录	找回密码
密码			立即注册

[求助] 关于ssget的一个问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。