[LISP程序]：在线请教..一个连新手都不是的人....

cyanflame

(defun c:ReadData(/ Data_list file str)
   (setq file (getfiled "选择文件..." "c:/program files/AutoCAD 2004/support/" "txt" 8))
   (setq f (open file "r"))
   (setq Data_list nil)
   (while (setq str (read-line f))
     (if (/= (vl-string-trim "" str) "")
       (setq Data_list (append Data_list (list str)))
     )
   )
   ;(mapcar '(lambda(e) (read (strcat "(" e ")"))) Data_list)
)
我想问一下，如果返回的列表是(50 50 10)我该怎么把这三个数值分别放到x y z这三个参数里面去?

在线等待，急

Underway

(mapcar 'set  '(x y z ) '(50 50 10))

zhang8755

(setq x (car '(50 50 10)))
(setq y(cadr '(50 50 10)))
(setq y(caddr '(50 50 10)))

cyanflame

3楼楼主说：   9pt 10pt 11pt 12pt 13pt 15pt  

(setq x (car '(50 50 10)))
(setq y(cadr '(50 50 10)))
(setq y(caddr '(50 50 10)))  
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
（50 50 10）只是我举的个例子，那个地方应该用哪个参数代替? 我应该怎么把这三句话放到程序里面去?

zhang8755

(defun c:ReadData(/ Data_list file str)
(setq file (getfiled "选择文件..." "c:/program files/AutoCAD 2004/support/" "txt" 8))
(setq f (open file "r"))
(setq Data_list nil)
(while (setq str (read-line f))
(if (/= (vl-string-trim "" str) "")
(setq Data_list (append Data_list (list str)))
)
)
(setq x (car Data_list))
(setq y(cadr Data_list))
(setq y(caddr Data_list))
)

cyanflame

(defun c:getData(/ Data_list file str)
        (setq file (getfiled "选择文件..." "c:/program files/AutoCAD 2004/support/" "txt" 8))
        (setq f (open file "r"))
        (setq Data_list nil)
        (while (setq str (read-line f))
        (if (/= (vl-string-trim "" str) "")
        (setq Data_list (append Data_list (list str)))
          )
          (setq x (car Data_list))
                (setq y (cadr Data_list))
                (setq z (caddr Data_list))
                  (setq x (atof x))
                (setq y (atof y))
                (setq z (atof z))
                (setq pnt (list x y))
                (command "circle" pnt z)
          )
       
)
斑竹为什么我这样写会报stringp nil 参数错误?  我看了返回值好像是data_list返回的不是(50 50 10)怎么变成了"50\t50\t10"了 这是怎么回事啊

fsxm

(/= (vl-string-trim "" str) "") 这个是什么东东啊？不明白

cyanflame

(defun c:ReadData(/ Data_list file str)


  (setq file (getfiled "选择文件..." "c:/program files/AutoCAD 2004/support/" "txt" 8))
   (setq f (open file "r"))
   (setq Data_list nil)
   (while (setq str (read-line f))
     (if (/= (vl-string-trim "" str) "")
       (setq Data_list (append Data_list (list str)))
     )
   
   )
   (mapcar '(lambda(e) (read (strcat "(" e ")"))) Data_list)
)

如果这样写则能够正常返回我在文本文件里输入的(80 80 10)
但是加上
(setq x (car Data_list))
(setq y (cadr Data_list))
(setq z (caddr Data_list))
(setq x (atof x))
(setq y (atof y))
(setq z (atof z))
(setq pnt (list x y))
(command "circle" pnt z)
这段以后就会报stringp nil 参数类型错误,请高手指导一下是怎么回事
我要做的事情就是从文本中导入圆心坐标 x y 和 半径 z,然后画圆
文本文件是逐行读取,一行一组数据
请高手帮忙阿，或者留个QQ交流一下
我是第一次弄cad,连函数都没搞清楚

fsxm

后面的改成这样.
[php]
  (foreach nthlst Data_list
    (setq x (car nthlst))
    (setq y (cadr nthlst))
    (setq r (caddr nthlst))
    (command "circle" (list x y 0) r)
  )
[/php]

cyanflame

用了上面那段代码
错误: 参数类型错误: consp "50 50 10"
9楼的能帮我再看看么

fsxm

(mapcar '(lambda(e) (read (strcat "(" e ")"))) Data_list)
这个是给谁的值没有说!
改成：
(setq Data_list (mapcar '(lambda(e) (read (strcat "(" e ")"))) Data_list))
[php]
  (setq        Data_list
         (mapcar '(lambda (e) (read (strcat "(" e ")"))) Data_list)
  )
  (foreach nthlst Data_list
    (setq x (car nthlst))
    (setq y (cadr nthlst))
    (setq r (caddr nthlst))
    (command "circle" (list x y 0) r)
  )
[/php]

雨箭风刀

(setq    Data_list
     (mapcar '(lambda (e) (read (strcat "(" e ")"))) Data_list)
  )
  (foreach nthlst Data_list
    (setq x (car nthlst))
    (setq y (cadr nthlst))
    (setq r (caddr nthlst))
    (command "circle" (list x y 0) r)
  )


简化为
(mapcar '(lambda(e) (setq e (read(strcat "("e")"))
            (command ".circle" (list (car e) (cadr e)) (last e)))
data_list)

cyanflame

谢谢了各位，东西出来了，太感谢了，比那个什么明经那得人强多了