更改属性

Lee Mac · 发表于 2022-7-6 11:58:57

好的，在这种情况下，块和标记是否总是编码到LISP中？

正如建议的那样，您可以轻松地限制list_框的大小，这样它就会有一个滚动条。

我只是想表达我的想法——如果你想要更新的块确实有一个单行属性，并且你想要用多行来更新它，这意味着在定义之外更改块，除非重新定义块。

woodman78 · 发表于 2022-7-6 12:01:07

谢谢李的建议，我喜欢带滚动条的列表框更好。
我想块和标记会被编码到lisp中。用不同的方式做有什么好处吗？

Lee Mac · 发表于 2022-7-6 12:05:59

只是改变它很麻烦

Lee Mac · 发表于 2022-7-6 12:08:05

我可以让我们偏离目标吗。。。

DCL的情况如何？

copy


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;
}

woodman78 · 发表于 2022-7-6 12:11:59

李，

我想在afralisp上争取一些周末的时间。net，看看我能走多远。谢谢你抢先一步。

Lee Mac · 发表于 2022-7-6 12:15:50

不用担心，樵夫

老实说，我真的不喜欢AfraLISP上显示的一些方式，但它会给你一个想法。

Lee Mac · 发表于 2022-7-6 12:18:19

这应该会帮助您，它将读取一个文件并返回每行的列表：

copy


(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))

您需要为其提供有效的文件名。

woodman78 · 发表于 2022-7-6 12:20:44

李，

周末我在lisp的时间不多，但我希望在接下来的几天里我能有一些时间。

谢谢

Lee Mac · 发表于 2022-7-6 12:25:23

我忍不住想写这篇文章——它并不太难。但我建议您研究代码，以便将来编写类似的程序。

LISP代码：

[code]（defunc:Change\u Att（/*错误*\u read BLOCKNAME DCFILENAME DCFLAG DCTAG ELST ENT I PTR SS STR STRFILENAME STRLST TAGSTRING[/color b][I]；；李Mac ~ 01.03.10（setqdcfilename“Change_Att.dcl”；；dcl文件名Strfilename“Change_Att.txt”；；数据文件名块名“项目名称”;; 块名[color]TagString“Tag_String”；；标记字符串（defun*错误*（（[color=BLUE b][dcTag（dcTag）[/color b][颜色=红色）[color=红色]（或（wcmatch（strcasemsg）“*中断，*取消*，*退出*”（（strcat “\n**错误：”msg“**”[color=BLUE princ color][/color b][/color b]color=BLUE]defun[/color\u读取（[/color文件/文件lst nl的[color]（cond（[color=BLUE setq][color]（[color=BLUE b][color=BLUE b]打开文件“r”]/color](而（setqnl（[color=BLUE b]读取文件的行（[color=BLUE b]setqlst（[nl lst （关闭文件[color]（[color=BLUE BLE]反转[color]lst）（[/color=RED]cond[[color]（（非[color]（setq[color]i[color=]009900]-1[color]ss（[color=BLUE ssget][color][color=BLUE ssget][a52a2a][U X”list（cons0“插入”（cons2块名（cons

woodman78 · 发表于 2022-7-6 12:27:22

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??

[编程交流] 更改属性

发表回复

精选推荐