单选项OptionButton1标题怎么从1.TXT内容第一行读出

2279902679

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:sld.odcl 
下载次数:0  文件大小:854 Bytes 
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:sld.lsp 
下载次数:0  文件大小:808 Bytes 
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:1.txt 
下载次数:0  文件大小:12 Bytes 
下载权限: 不限 以上  [免费赚D豆]

2279902679

那位高手能帮个忙啊

newer

2279902679 发表于 2014-12-28 00:07
那位高手能帮个忙啊

以后还是把LISP文件贴出来吧。

你意思是想从TXT读出文字，然后设置 单选Radio的 标题？ 你用下 setCaption 试试。

2279902679

1. ;;加载lsp时自动加载OpenDCL.xx.arx链接库arx函数
   
2. (or dcl_getversionex (progn
   
3. (defun Load:Runtime ( / acadversion arxname dclarxfile)
   
4.    (defun *error* (msg) (princ (strcat "\n 加载失败，找不到" arxname "文件,请确认该文件是否在搜索路径")))
   
5.    (setq acadversion (substr (getvar "acadver") 1 2))
   
6.    (setq arxname (strcat "OpenDCL." acadversion ".arx"))
   
7.    (setq dclarxfile (findfile arxname))
   
8.    (if (and (= (member arxname (arx) ) nil) (/= dclarxfile nil))
   
9.       (arxload dclarxfile) (exit))
   
10. ) (Load:Runtime))
    
11. )
    
12. 
    
13. ;;主程序
    
14. (defun c:sssd()
    
15.    (dcl_Project_Load "sld.odcl")
    
16.    (dcl_Form_Show sld_form1)
    
17.    (dcl_Project_Unload "sld")
    
18. )
    
19. (defun c:sld_Form1_OnInitialize (/)
    
20. (dcl_Control_SetCaption sld_Form1_OptionButton1 "不知怎么才能从文本中读入");;本人只会这个，不知怎么才能从文本中读入
    
21. )

;;加载lsp时自动加载OpenDCL.xx.arx链接库arx函数<br /> (or dcl_getversionex (progn<br /> (defun Load:Runtime ( / acadversion arxname dclarxfile)<br />    (defun *error* (msg) (princ (strcat "\n 加载失败，找不到" arxname "文件,请确认该文件是否在搜索路径")))<br />    (setq acadversion (substr (getvar "acadver") 1 2))<br />    (setq arxname (strcat "OpenDCL." acadversion ".arx"))<br />    (setq dclarxfile (findfile arxname))<br />    (if (and (= (member arxname (arx) ) nil) (/= dclarxfile nil))<br />       (arxload dclarxfile) (exit))<br /> ) (Load:Runtime))<br /> )<br /> <br /> ;;主程序<br /> (defun c:sssd()<br />    (dcl_Project_Load "sld.odcl") <br />    (dcl_Form_Show sld_form1)<br />    (dcl_Project_Unload "sld")<br /> )<br /> (defun c:sld_Form1_OnInitialize (/)<br /> (dcl_Control_SetCaption sld_Form1_OptionButton1 "不知怎么才能从文本中读入");;本人只会这个，不知怎么才能从文本中读入<br /> )

2279902679

我只会用这个命今改标题，但是不知怎么才能从1.TXT文件第一行读出。

st788796

2279902679 发表于 2014-12-28 08:23
我只会用这个命今改标题，但是不知怎么才能从1.TXT文件第一行读出。

开源函数库  xd:list:formfile

2279902679

初学者，不懂啊，那位高手帮我改一下啊

st788796

2279902679 发表于 2014-12-28 08:44
初学者，不懂啊，那位高手帮我改一下啊

你是初学 ODCL 还是初学 Alisp ？

(setq lst (xd::list:fromfile "1.txt"))

把 1.txt 内容读到表里面，后面就可用 nth 取出来作为 Caption

2279902679

两个都是初学者，还是不明白

newer

2279902679 发表于 2014-12-28 10:02
两个都是初学者，还是不明白

你用下 xd::list:fromfile 就把文件文本内容读入到表里面了，你显示下表内容看看，需要提取哪个，就提出来设置到setCaption.