[LISP]已经解决

kevinchan

已经解决...

风子

按照你的思路输出圆的半径： (repeat (sslength ss)
(setq ssn (ssname ss i))
(setq endata (entget ssn))
;(setq n 0)
;(repeat (length endata)
; (setq pp (nth n endata))
; (setq key (car pp))
; (if (= key 10)
;(progn (setq pp (cdr (assoc 10 endata))) ;添加
(setq x (cadr pp))
(setq y (caddr pp)) (setq r (cdr (assoc 40 endata))) ;得到半径
(setq ff (open ffn "a"))
(princ (rtos x 2 9) ff)
(princ " " ff)
(princ (rtos y 2 9) ff) (princ (rtos r 2 9) ff) ;输出半径

(princ "\n" ff)
(close ff)
)
)
;; 读取文本文件如果知道前面三行一定不用的话，只需在下面的语句 (while (setq data (read-line ff))
前加三句（read-line ff)即可

kevinchan

谢谢风子.已经调试成功.



就是在读取文件的时候有没有办法自动识别前三行?

ZZXXQQ

......


(SETQ F (OPEN "FNAME" "r"))


(READ-LINE F)


(READ-LINE F)


(READ-LINE F)


......


;加入您的处理。


......