好的，在这种情况下，块和标记是否总是编码到LISP中？
正如建议的那样，您可以轻松地限制list_框的大小，这样它就会有一个滚动条。
我只是想表达我的想法——如果你想要更新的块确实有一个单行属性，并且你想要用多行来更新它，这意味着在定义之外更改块，除非重新定义块。 谢谢李的建议，我喜欢带滚动条的列表框更好。
我想块和标记会被编码到lisp中。用不同的方式做有什么好处吗？
只是改变它很麻烦 我可以让我们偏离目标吗。。。
DCL的情况如何？
attchange : dialog { key = "dctitle";
spacer;
: list_box { label = "Attribute Strings:"; key = "lst"; alignment = centered;
fixed_height = true; fixed_width = true; width = 50; height = 20; }
spacer;
ok_cancel;
}
李，
我想在afralisp上争取一些周末的时间。net，看看我能走多远。谢谢你抢先一步。 不用担心，樵夫
老实说，我真的不喜欢AfraLISP上显示的一些方式，但它会给你一个想法。 这应该会帮助您，它将读取一个文件并返回每行的列表：
(defun _read (file / ofile lst nl)
(cond ((setq ofile (open file "r"))
(while (setq nl (read-line ofile))
(setq lst (cons nl lst)))
(close ofile)))
(reverse lst))
您需要为其提供有效的文件名。 李，
周末我在lisp的时间不多，但我希望在接下来的几天里我能有一些时间。
谢谢 我忍不住想写这篇文章——它并不太难。但我建议您研究代码，以便将来编写类似的程序。
LISP代码：
（defunc:Change\u Att（/*错误*\u read BLOCKNAME DCFILENAME DCFLAG DCTAG ELST ENT I PTR SS STR STRFILENAME STRLST TAGSTRING；；李Mac ~ 01.03.10（setqdcfilename“Change_Att.dcl”；；dcl文件名Strfilename“Change_Att.txt”；；数据文件名块名“项目名称”;; 块名TagString“Tag_String”；；标记字符串（defun*错误*（（（dcTag）[颜色=红色）（或（wcmatch（strcasemsg）“*中断，*取消*，*退出*”（（strcat “\n**错误：”msg“**”color=BLUE]defun\u读取（文件/文件lst nl的（cond（（打开文件“r”]/color](而（setqnl（读取文件的行（setqlst（[nl lst （关闭文件（反转lst）（cond[（（非（setqi009900]-1ss（list（cons0“插入”（cons2块名（cons Lee,
I tried to run the lisp but nothing updated.I didn't get any errors but nothing happened either.I am also trying to include another tag within the same block that the first word of the line in the text file will update the second attribute.
e.g.
Text file line: R600 Blah de Blah de Blah
Attribute 1: R600 Blah de Blah de Blah
Attribute 2: R600
I can do this using the str car function yeah??
页:
1
[2]