【K:PatExists-P】判断填充图案是否存在

kucha007

两种判断填充图案是否存在的方法：

方法一：

1. (defun K:PatExists-P (PatNam / Old_HPNam result)
   
2.   (setq Old_HPNam (getvar "HPNAME"))
   
3.   (if (not (vl-catch-all-error-p (vl-catch-all-apply 'setvar (list "HPNAME" PatNam))))
   
4.       (and(setvar "HPNAME" Old_HPNam))
   
5.   )
   
6. )
   

(defun K:PatExists-P (PatNam / Old_HPNam result)<br />   (setq Old_HPNam (getvar "HPNAME"))<br />   (if (not (vl-catch-all-error-p (vl-catch-all-apply 'setvar (list "HPNAME" PatNam))))<br />       (and(setvar "HPNAME" Old_HPNam))<br />   )<br /> )<br />

方法二：

1. (defun K:PatExists-P (PatNam / Flag TgtPat OpFile lin)
   
2.   (setq Flag nil)
   
3.   (if (findfile (strcat PatNam ".pat"))
   
4.       (setq Flag T)
   
5.       (progn
   
6.           (setq TgtPat
   
7.             (findfile
   
8.                 (if (eq 1 (getvar 'measurement)) (getenv "ISOHatch")(getenv "ANSIHatch"))
   
9.             )
   
10.           )
    
11.           (progn
    
12.             (setq OpFile (open TgtPat "r"))
    
13.             (while
    
14.               (and
    
15.                 (not Flag)
    
16.                 (setq lin (read-line OpFile))
    
17.               )
    
18.               (setq Flag
    
19.                     (wcmatch (strcase (substr lin 2)) (strcat (strcase PatNam) "*"))
    
20.               )
    
21.             )
    
22.             (close OpFile)
    
23.           )
    
24.       )
    
25.   )
    
26.   Flag
    
27. )
    

(defun K:PatExists-P (PatNam / Flag TgtPat OpFile lin)<br />   (setq Flag nil)<br />   (if (findfile (strcat PatNam ".pat"))<br />       (setq Flag T)<br />       (progn<br />           (setq TgtPat<br />             (findfile <br />                 (if (eq 1 (getvar 'measurement)) (getenv "ISOHatch")(getenv "ANSIHatch"))<br />             )<br />           )<br />           (progn<br />             (setq OpFile (open TgtPat "r"))<br />             (while <br />               (and <br />                 (not Flag)<br />                 (setq lin (read-line OpFile))<br />               )<br />               (setq Flag <br />                     (wcmatch (strcase (substr lin 2)) (strcat (strcase PatNam) "*"))<br />               )<br />             )<br />             (close OpFile)<br />           )<br />       )<br />   )<br />   Flag<br /> )<br />

用法：

1. (K:PatExists-P "Solid")
   
2. (K:PatExists-P "450X300X150混铺")
   

(K:PatExists-P "Solid")<br /> (K:PatExists-P "450X300X150混铺")<br />

xiaocainiao

学习了、第一种方法比较简单粗暴啊

kozmosovia

不应叫hatchexist，准确点应该是patexist-p

kucha007

kozmosovia 发表于 2025-3-20 19:58
不应叫hatchexist，准确点应该是patexist-p

有道理，很直观的改动