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

dutrf

请问：如何将CAD中的TEXT命令写入LISP中，以实现将文本或数据库中的信息写到CAD图形的相应位置上，比如在CAD图形中有已经画好的表格，如何将数据库中的信息写到表格当中

lzy9788

试下read-line函数

f5612140

(command "text" "m" pt txth 0 aa);寫入文字
(setq pt (mapcar '+ pt '(+5.0 -0.0 0)));換另一相對位置

dutrf

我写了一部分，请各位帮我看看


(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）//关闭游标

meflying

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



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


----另,这些东西应该是你摘抄来的吧,,,希望你摘抄一个东西的时候能把它搞明白了,否则你拼出来的程序一旦出现问题,你将无从下手

dutrf

(command "text" "m" pt         txth 0 aa)


这一句中的txth 0 aa是什么意思，此处可不可以加变量，以写入不同的文本，如果可以应该怎么加。

meflying

看看text命令(在命令行输入),提示输入什么,上面就写什么参数


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


[建议]参考帮助文件中command函数的介绍

dutrf

这一段程序是我拼凑下来的，因为是临时使用所以没有太多时间去看语言，这段时间我一直在看书，尽量能理解其中的意思，但是还是有一些不明白。尤其是像asi_stmtype，csr-alloc这些命令，我不明白它们的用法和意思，借了一些书，也找不到，不过我会尽力的，也希望各位能够多多提示

meflying

这些都是自定义函数,书上是肯定找不到的(除非是书上的例子),,,而且这部分内容建议你现在不要去看,还是先将基础的部分弄明白了先

fizuwy

3楼的东西,我也有用耶!我前两天还正为这事纳闷呢!