初学者求助

dartyali

(defun c:test()
(setq f (open "e:\\abc.txt" "r"))
(setq t1 (read (read-line f)))
(setq t2 (read (read-line f)))
(command "line" "0,t1" "0,t2" "")
(close f)
(princ)
其中abc.txt 　　１００　　t1 200 t2 这个程序在coommand中敲　！t1　　　为１００ 　　　　　　　　　　　　　　！t2 　 为　　２００ 可就是不能画线，是不是数据类型不对，t1， t2是字符串型的原因，如果是我想把t1 t2 改成另一种类型，怎么改啊，请赐教～．

雪山飞狐_lzh

(command "line" "0,t1" "0,t2" "")
改为 (command "line" (strcat "0," t1) (strcat "0," t2) "")

Student

<BR>这个程序可能需要做如下改动<BR>1. 在最后加个右括号")"<BR>2. Acad的Line命令后面要点表数据，所以要把<BR>                                 (command "line" "0,t1" "0,t2" "")<BR>                 改为<BR>                         (command "line" (list 0 t1)(list 0 t2) "")<BR>                 这个程序就可画线了。<BR>供参考。<BR>下面是改过的程序：<BR>(defun c:test()<BR>         (setq f (open "e:\\abc.txt" "r"))<BR>         (setq t1 (read (read-line f)))<BR>         (setq         t2 (read (read-line f)))<BR>         (command "line" (list 0 t1)(list 0 t2) "")<BR>         (close f)<BR>         (princ)<BR>)<BR>

龙龙仔

這樣也可以,只是轉了n個灣! (command "line"
(strcat "0," (rtos T1))
(strcat "0," (rtos T2))
""
)