hyerlink lisp问题

sammyg · 发表于 2022-7-5 19:49:13

你好

我有一个lisp，在我删除blooks以启动agen后，第一次运行时它不会将hyperliks连接到块，第二次运行时它会dos evan。
问题sems位于超链接comand中，并且未在该位置找到块

有些人帮助世界变得伟大：P

（-hyperlink）
输入选项[删除/插入]：i
输入超链接插入选项[区域/对象]：o
选择对象：找到25722.2165506.921625.235 0
选择对象：
选择错误。）

我的代码

（定义C:lmg（）

;;;;;; 阅读CSV；；；；；；；；；；；；；；；
（setq gf（getfield“Select CSV File”“”“CSV”16））；slect文件
（setq f（打开gf“r”）；打开文件进行读取
（while（setq row1（读取行f））；读取csv的下一行
（foreach line data；do to each line
（princ“）（prin1行）”；抓住下一行？

;;;;;; 桥；；；；；；；；；；；；；；；；；；；；；；；；
（setq pont1（vl字符串位置（ascii“，”）row1 nil））；查找第一个（，）
（打印pont1）
（setq pont2（substr row1 pont1））；从第一个（，）到最后抓住evrythink
（打印pont2）
（setq pont3（substr pont2 3））；pont换档固定
（打印pont3）；打印结果

;;;;;; 东距、北距、高距；；；；；；
（setq enz1（vl字符串位置（ascii“，”）pont3 nil T））；查找最后（，）
（打印enz1）
（setq enz2（substr pont3 1 enz1））；从最后（，）开始抓取evrythink
（打印enz2）；打印结果

;;;;;; 照片文件；；；；；；；；；；；；；；；；；；
（setq file1（vl字符串位置（ascii“，”）pont3 nil T））；查找最后（，）
（打印文件1）
（setq文件2（substr pont3文件1））；从最后（，）到结尾抓住evrythink
（打印文件2）
（setq文件3（substr文件2-3））；pont换档固定
（打印文件3）；打印结果
（setq文件4“照片/”）；将的“photos/”设置为字符串
（setq文件5（strcat文件4”“文件3））；组合字符串（文件4和3）
（打印文件5）；打印结果
（princ“\n”）；转到下一行

;;;;;; 超链接；；；；；；；；；；；；；；；；；；；
（命令“_insert”“Photo Node”（strcat enz2）“1”“1”“0”）；插入照片节点
（普林斯）
（命令“regenall”）；转到下一行
（命令“-hyperlink”“i”“o”（strcat enz2”“）”“（strcat file5”“）”“（strcat file3”“）；添加的超链接照片

)
;关闭时
（普林斯）
) ;关闭defun
Book2.csv

[编程交流] hyerlink lisp问题

发表回复

精选推荐