请教这个问题如何解决？

zjfcumt

请教一个问题，在一个文件中每一行有9个数值，对应三个点的X、Y、Z坐标，如何用lisp语言读出，并赋值给3个点，然后绘出图形？

alin

meflying

;注：各点之间用逗号分开
(defun readtxt(/ f str lists str2 stype)
  (setq f (open "d:\\in.txt" "r"))
  (setq str (read-line f))
  (setq str (vl-string-translate "," ";" str))
  (setq str (strcase str 0))
  (setq str2 (read str))
  (if (not str2)   
    (setq str2 "/")
    (if (not (or (= (type str2) 'INT) (= (type str2) 'REAL)))
      (setq str2 (strcase (vl-symbol-name str2) 0))
      (setq str2 (rtos str2))
    )
  )
  (setq str (vl-string-left-trim str2 str))
  (setq str (vl-string-left-trim ";" str))
  (setq str (strcase str 0))
  (setq x1 (read str2))
  (setq str2 (rtos x1))
  
  (setq str (vl-string-left-trim str2 str))
  (setq str (vl-string-left-trim ";" str))
  (setq str (strcase str 0))
  (setq y1 (read str))
  (setq str2 (rtos y1))

  (setq str (vl-string-left-trim str2 str))
  (setq str (vl-string-left-trim ";" str))
  (setq str (strcase str 0))
  (setq z1 (read str))
  (setq str2 (rtos z1))

  (setq str (vl-string-left-trim str2 str))
  (setq str (vl-string-left-trim ";" str))
  (setq str (strcase str 0))
  (setq x2 (read str))
  (setq str2 (rtos x2))

  (setq str (vl-string-left-trim str2 str))
  (setq str (vl-string-left-trim ";" str))
  (setq str (strcase str 0))
  (setq y2 (read str))
  (setq str2 (rtos y2))
  
  (setq str (vl-string-left-trim str2 str))
  (setq str (vl-string-left-trim ";;" str))
  (setq str (strcase str 0))
  (setq z2 (read str))
  (close f)
)

龙龙仔

(defun C:TT (/ F N LIST_1 PT_LIST TMP)
  (defun PT_DATA (PT_LIST N)
    (list (nth (* N 3) PT_LIST)
          (nth (+ (* N 3) 1) PT_LIST)
          (nth (+ (* N 3) 2) PT_LIST)
    )
  )
  (setq F (open (findfile "AAA.TXT") "r"))
  (while (setq TMP (read-line F))
    (setq PT_LIST (read (strcat "(" TMP ")")))
    (setq N 0
          LIST_1 NIL
    )
    (command "_.LINE")
    (repeat (/ (length PT_LIST) 3)
      (command (PT_DATA PT_LIST N))
      (setq N (1+ N))
    )
    (command "")
  )
  (close F)
  (princ)
)


;;;;;;;;;;;;;;; AAA.TXT ;;;;;;;;;;;;;;;;;;;;;;
;;-135.7941 162.0804  0.0000 -16.1956 246.4949 0.0000 71.6451 166.8076 0.0000
;;27.7280 248.5208 0.0000 154.0802 162.0804 0.0000 228.4070 78.3413 0.0000
;;54.0770 74.2894 0.0000 162.0804 100 0.0000 54.0802 62.0804 0.0000
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

zjfcumt

谢谢老兄们的帮助！

congcong

九个数值在输入时用逗号分隔，然后用read函数读取这一行数值，然后用程序根据逗号分隔就可以完整地读取数据了。
要不更简单一些，即将九个数值写成九行,这样读取起来就更方便了