明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3526|回复: 11

求助text命令应以怎样的格式在lisp中使用

  [复制链接]
发表于 2004-5-20 08:50:00 | 显示全部楼层 |阅读模式
请问:如何将CAD中的TEXT命令写入LISP中,以实现将文本或数据库中的信息写到CAD图形的相应位置上,比如在CAD图形中有已经画好的表格,如何将数据库中的信息写到表格当中
发表于 2004-5-20 09:11:00 | 显示全部楼层
试下read-line函数
发表于 2004-5-20 09:14:00 | 显示全部楼层
(command "text" "m" pt txth 0 aa);寫入文字
(setq pt (mapcar '+ pt '(+5.0 -0.0 0)));換另一相對位置
 楼主| 发表于 2004-5-20 09:52:00 | 显示全部楼层
我写了一部分,请各位帮我看看


(defun prepare(WCVAL tablename)


                 (setq sql-statement


(strcat "SELECT*FROM" tablename "where zdk_code=' "WCVAL" ' ")


                 )


(setq STATEMENT (asi_prepare SESSION sql-statement))


(asi_stmtype STATEMENT)


(csr-alloc STATEMENT)


(asi_open CURSOR nil)


)


                         上面的程序中函数prepare()有两个参数:WCVAL和tablename,其中WCVAL代表“作业指导卡编号”,而tablename 则是指“表名”autolisp程序在调用函数prepare()时,首先到特定的路径下读出文件“zdkh.txt”中所保留的作业指导卡编号,然后将作业指导卡编号和数据库表名传递给prepare(),取出数据库指定表中满足查询条件的记录。


                                         下面的程序是取表        tc_cxgf中的记录并将记录中的作业指导卡信息写到cad图中的相应位置


(asi_deallocstm STATEMENT)


(prepare WCVAL "tc_cxgf")


         (setq cursor-list1 nil)


         (setq header-list(asi_coldsc CURSOR))


                 (setq cursor-list1 (asi_fetch CURSOR))//取出一条记录


                 (while(/=nil cursor-list1))//记录不为空


         (用text命令将记录中的信息写到cad图的相应位置)


                         (setq cursor-list1(asi_fetch CURSOR))取出下一条记录





(        close-cursor)//关闭游标
发表于 2004-5-20 10:49:00 | 显示全部楼层
(用text命令将记录中的信息写到cad图的相应位置)



3楼不是已经给出了吗,aa就是字符串


----另,这些东西应该是你摘抄来的吧,,,希望你摘抄一个东西的时候能把它搞明白了,否则你拼出来的程序一旦出现问题,你将无从下手
 楼主| 发表于 2004-5-20 10:54:00 | 显示全部楼层
(command "text" "m" pt         txth 0 aa)


这一句中的txth 0 aa是什么意思,此处可不可以加变量,以写入不同的文本,如果可以应该怎么加。
发表于 2004-5-20 11:08:00 | 显示全部楼层
看看text命令(在命令行输入),提示输入什么,上面就写什么参数


写不同的文本你将变量的值改变不就可以了,为什么要加变量,,,


[建议]参考帮助文件中command函数的介绍
 楼主| 发表于 2004-5-20 11:29:00 | 显示全部楼层
这一段程序是我拼凑下来的,因为是临时使用所以没有太多时间去看语言,这段时间我一直在看书,尽量能理解其中的意思,但是还是有一些不明白。尤其是像asi_stmtype,csr-alloc这些命令,我不明白它们的用法和意思,借了一些书,也找不到,不过我会尽力的,也希望各位能够多多提示
发表于 2004-5-20 11:35:00 | 显示全部楼层
这些都是自定义函数,书上是肯定找不到的(除非是书上的例子),,,而且这部分内容建议你现在不要去看,还是先将基础的部分弄明白了先
发表于 2004-5-22 10:20:00 | 显示全部楼层
3楼的东西,我也有用耶!我前两天还正为这事纳闷呢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 06:54 , Processed in 0.188170 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表