[求助]如何用LISP函数读取本文档中的各种线型数据？（包括自定义线型）

hzh2000

比如，在文件中存在某个自定义线型（定义数据：A,12.5,-12.5                ）        ，如何读取“A,12.5,-12.5”？

onej

（write-line)就可以了啊。

hzh2000

请详细一点说明

qyming

2. defun getLtypeName (ltypfile / file a out)
   
3.   (setq        file (open (findfile ltypfile) "r")
   
4.         out  nil
   
5.   )
   
6.   (while (setq a (read-line file))
   
7.     (if        (= (substr a 1 1) "*")
   
8.       (setq a        (substr a 2 (1- (strlen a)))
   
9.             a        (substr a 1 (vl-string-search "," a))
   
10.             out        (cons a out)
    
11.       )
    
12.     )
    
13.   )
    
14.   (close file)
    
15.   (setq out (reverse out))
    
16. )

defun getLtypeName (ltypfile / file a out)<br />   (setq        file (open (findfile ltypfile) "r")<br />         out  nil<br />   )<br />   (while (setq a (read-line file))<br />     (if        (= (substr a 1 1) "*")<br />       (setq a        (substr a 2 (1- (strlen a)))<br />             a        (substr a 1 (vl-string-search "," a))<br />             out        (cons a out)<br />       )<br />     )<br />   )<br />   (close file)<br />   (setq out (reverse out))<br /> )

lxy_2080

qyming 发表于 2019-3-6 18:11

相隔14年了。

yoyoho

谢谢分享程序!!!!!!