请教如何用LISP获取CAD中的所有填充图案名

xiaocainiao

cq4920 发表于 2023-6-7 22:57

可能是我表达的不够清楚、我想要获取的是填充对话框里面的所有填充图案名、不是文件里面的所有填充图案名、主要是想判断图纸中某一个填充是否可以使用

edata

预定义英制使用的是acad.pat,公制 使用的是acadiso.pat
findfile 搜索文件，读取
查询系统变量MEASUREMENT可以判断当前文件是英制还是公制

gaics

<<***  列出 CAD圖檔 中包含的填充樣式名稱  ***>>
http://bbs.mjtd.com/forum.php?mo ... 6261&fromuid=410342
(出处: 明经CAD社区)

kozmosovia

要找出系统所有可用的列表，只能遍历读取所有会被读取的PAT

xiaocainiao

kozmosovia 发表于 2023-6-9 11:41
要找出系统所有可用的列表，只能遍历读取所有会被读取的PAT

主要是不会读取CAD本身的acadiso.pat和acad.pat、自定义填充那个倒是简单、文件名就是图案名了

edata

1. (defun parsepatfile  (fn / fd hp ln)
   
2.   (if
   
3.     (and
   
4.       (setq fn (findfile fn))
   
5.       (setq fd (open fn "r"))
   
6.     )
   
7.      (progn
   
8.        (while  (setq ln (read-line fd))
   
9.          (if (wcmatch ln "`**`,*")
   
10.            (setq hp
    
11.                   (cons
    
12.                     (strcase (substr ln 2 (1- (vl-string-position 44 ln))))
    
13.                     hp
    
14.                   )
    
15.            )
    
16.          )
    
17.        )
    
18.        (close fd)
    
19.        (reverse hp)
    
20.      )
    
21.   )
    
22. )

(defun parsepatfile  (fn / fd hp ln)<br />   (if<br />     (and<br />       (setq fn (findfile fn))<br />       (setq fd (open fn "r"))<br />     )<br />      (progn<br />        (while  (setq ln (read-line fd))<br />          (if (wcmatch ln "`**`,*")<br />            (setq hp<br />                   (cons<br />                     (strcase (substr ln 2 (1- (vl-string-position 44 ln))))<br />                     hp<br />                   )<br />            )<br />          )<br />        )<br />        (close fd)<br />        (reverse hp)<br />      )<br />   )<br /> )

1. (parsepatfile (findfile (if (zerop (getvar 'MEASUREMENT)) "acad.pat" "acadiso.pat")))

复制代码

xiaocainiao

edata 发表于 2023-6-9 20:27

谢谢大神、这个有用

atone

标记一下，留痕备用