提取文件名称关键字

惜惜2

lijiao 发表于 2024-9-9 10:00
你把下面这段代码保存为lsp文件,然后把这个lsp文件放在启动组里就行了.

每次打开文件时,它都会自动运行 ...

感谢，如果是在布局空间就不生效了，能否通用啊

kozmosovia

惜惜2 发表于 2024-9-9 10:27
感谢，如果是在布局空间就不生效了，能否通用啊

把(410 . "Model")去掉

惜惜2

kozmosovia 发表于 2024-9-9 10:33
把(410 . "Model")去掉

谢谢

惜惜2

lijiao 发表于 2024-9-9 10:00
你把下面这段代码保存为lsp文件,然后把这个lsp文件放在启动组里就行了.

每次打开文件时,它都会自动运行 ...

2. <blockquote>(setq filename (vl-filename-base (getvar "dwgname")))

<blockquote>(setq filename (vl-filename-base (getvar "dwgname")))

大佬帮忙最后的看下哪里错了，在你的基础上面增加的，用于提取关键字，提取到了后提取第2-4的字符并写入客户

惜惜2

2. (setq filename (vl-filename-base (getvar "dwgname")))
   
3. (if (setq space-pos (vl-string-search " " filename))
   
4.   (progn
   
5.     (setq drawing-number (substr filename 1 space-pos))
   
6.     (setq part-name (substr filename (+ space-pos 2)))
   
7.     (setq ss (ssget "x" '((0 . "INSERT"))))
   
8.     (repeat (setq n (sslength ss))
   
9.       (setq blockref (SSNAME SS (setq n (1- n))))
   
10.       (setq blockref (vlax-ename->vla-object blockref))
    
11.       (if (= (vla-get-HasAttributes blockref) :vlax-true)
    
12.         (foreach attrib
    
13.                  (VLAX-SAFEARRAY->LIST
    
14.                    (VLAX-VARIANT-VALUE (vla-getattributes blockref))
    
15.                  )
    
16.           (cond        ((= (vla-get-tagstring attrib) "客户图号")
    
17.                  (vla-put-textstring attrib drawing-number)
    
18.                 )
    
19.                 ((= (vla-get-tagstring attrib) "零件名称")
    
20.                  (vla-put-textstring attrib part-name)
    
21.                 )
    
22.                 ((= (vla-get-tagstring attrib) "设计日期")
    
23.                  (vla-put-textstring attrib (rtos (getvar "CDATE") 2 0))
    
24.                 )
    
25.                 (IF
    
26.                  (= (vla-get-tagstring attrib) "编号")
    
27.                  (setq product-code (vla-get-textstring attrib))
    
28.                 )
    
29.                 (IF
    
30.                  (= (vla-get-tagstring attrib) "客户")
    
31.                  (let ((extracted-code (substr product-code 2 3)))
    
32.                       (vla-put-textstring attrib extracted-code)
    
33.                  )
    
34.                 )
    
35.           )
    
36.         )
    
37.       )
    
38.     )
    
39.   )
    
40. )
    
41. )
    
42. (princ)

(setq filename (vl-filename-base (getvar "dwgname")))<br /> (if (setq space-pos (vl-string-search " " filename))<br />   (progn<br />     (setq drawing-number (substr filename 1 space-pos))<br />     (setq part-name (substr filename (+ space-pos 2)))<br />     (setq ss (ssget "x" '((0 . "INSERT"))))<br />     (repeat (setq n (sslength ss))<br />       (setq blockref (SSNAME SS (setq n (1- n))))<br />       (setq blockref (vlax-ename->vla-object blockref))<br />       (if (= (vla-get-HasAttributes blockref) :vlax-true)<br />         (foreach attrib<br />                  (VLAX-SAFEARRAY->LIST<br />                    (VLAX-VARIANT-VALUE (vla-getattributes blockref))<br />                  )<br />           (cond        ((= (vla-get-tagstring attrib) "客户图号")<br />                  (vla-put-textstring attrib drawing-number)<br />                 )<br />                 ((= (vla-get-tagstring attrib) "零件名称")<br />                  (vla-put-textstring attrib part-name)<br />                 )<br />                 ((= (vla-get-tagstring attrib) "设计日期")<br />                  (vla-put-textstring attrib (rtos (getvar "CDATE") 2 0))<br />                 )<br />                 (IF<br />                  (= (vla-get-tagstring attrib) "编号")<br />                  (setq product-code (vla-get-textstring attrib))<br />                 )<br />                 (IF<br />                  (= (vla-get-tagstring attrib) "客户")<br />                  (let ((extracted-code (substr product-code 2 3)))<br />                       (vla-put-textstring attrib extracted-code)<br />                  )<br />                 )<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )<br /> )<br /> (princ)