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

dutrf · 发表于 2004-5-20 08:50:00

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

lzy9788 · 发表于 2004-5-20 09:11:00

试下read-line函数

f5612140 · 发表于 2004-5-20 09:14:00

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

dutrf · 发表于 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）//关闭游标