求个大佬帮忙看下红色处的代码，研究找不到原因

惜惜2

kozmosovia 发表于 2024-10-7 16:01
(if (setq space-pos (vl-string-search " " filename))
文件名带有空格才会执行后面的代码

文件名这些格式都是对的  因为需要判断空格去循环以及填入属性值

kozmosovia

瞎JB扯，你的代码对你给的DWG，执行个鬼。
提问都给埋坑，还是自己琢磨消磨下自己时间比较好。

ljpnb

2. (defun c:test ()

(defun c:test ()

惜惜2

kozmosovia 发表于 2024-10-7 16:27
瞎JB扯，你的代码对你给的DWG，执行个鬼。
提问都给埋坑，还是自己琢磨消磨下自己时间比较好。

你用这个LISP试下  我加载是可以的  只有最后一步代码实现不了

ljpnb

attribname：如果“客户”在“产品编码”之前时就会出错

惜惜2

ljpnb 发表于 2024-10-7 16:39
attribname：如果“客户”在“产品编码”之前时就会出错

谢谢，我再研究一下 ，上面的代码提示语法错误

ljpnb

2. 
   
3. (defun c:test ()
   
4.   (setq e1 nil)
   
5.   (setq filename (vl-filename-base (getvar "dwgname")))
   
6.   (if (setq space-pos (vl-string-search " " filename))
   
7.     (progn
   
8.       (setq drawing-number (substr filename 1 space-pos))
   
9.       (setq part-name (substr filename (+ space-pos 2)))
   
10.       (setq ss (ssget "x" '((0 . "INSERT"))))
    
11.       (repeat (setq n (sslength ss))
    
12.         (setq blockref (SSNAME SS (setq n (1- n))))
    
13.         (setq blockref (vlax-ename->vla-object blockref))
    
14.         (if (= (vla-get-HasAttributes blockref) :vlax-true)
    
15.           (progn
    
16.             (foreach attrib
    
17.                      (VLAX-SAFEARRAY->LIST
    
18.                        (VLAX-VARIANT-VALUE (vla-getattributes blockref))
    
19.                      )
    
20.               (if (= (vla-get-tagstring attrib) "产品编码")
    
21.                 (setq e1 (vla-get-textstring attrib))
    
22. 
    
23.               )
    
24.             )
    
25.             (setq E2 (substr E1 2 3))
    
26.             (foreach attrib
    
27.                      (VLAX-SAFEARRAY->LIST
    
28.                        (VLAX-VARIANT-VALUE (vla-getattributes blockref))
    
29.                      )
    
30.               (setq attribname (vla-get-tagstring attrib))
    
31.               (cond ((wcmatch attribname "客户图号")
    
32.                      (vla-put-textstring attrib drawing-number)
    
33.                     )
    
34.                     ((wcmatch attribname "零件名称")
    
35.                      (vla-put-textstring attrib part-name)
    
36.                     )
    
37.                     ((and
    
38.                        (wcmatch attribname "设计日期")
    
39.                        (= (vla-get-textstring attrib) "")
    
40.                      )
    
41.                      (vla-put-textstring
    
42.                        attrib
    
43.                        (menucmd "m=$(edtime,$(getvar,DATE),yyyy-mo-dd)")
    
44.                      )
    
45.                     )
    
46.                     ((wcmatch attribname "客户")
    
47.                      (vla-put-textstring attrib E2)
    
48.                     )
    
49.               )
    
50.             )
    
51.           )
    
52.         )
    
53.       )
    
54.     )
    
55.   )
    
56.   (princ)
    
57. )

<br /> (defun c:test ()<br />   (setq e1 nil)<br />   (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 />           (progn<br />             (foreach attrib<br />                      (VLAX-SAFEARRAY->LIST<br />                        (VLAX-VARIANT-VALUE (vla-getattributes blockref))<br />                      )<br />               (if (= (vla-get-tagstring attrib) "产品编码")<br />                 (setq e1 (vla-get-textstring attrib))<br /> <br />               )<br />             )<br />             (setq E2 (substr E1 2 3))<br />             (foreach attrib<br />                      (VLAX-SAFEARRAY->LIST<br />                        (VLAX-VARIANT-VALUE (vla-getattributes blockref))<br />                      )<br />               (setq attribname (vla-get-tagstring attrib))<br />               (cond ((wcmatch attribname "客户图号")<br />                      (vla-put-textstring attrib drawing-number)<br />                     )<br />                     ((wcmatch attribname "零件名称")<br />                      (vla-put-textstring attrib part-name)<br />                     )<br />                     ((and<br />                        (wcmatch attribname "设计日期")<br />                        (= (vla-get-textstring attrib) "")<br />                      )<br />                      (vla-put-textstring<br />                        attrib<br />                        (menucmd "m=$(edtime,$(getvar,DATE),yyyy-mo-dd)")<br />                      )<br />                     )<br />                     ((wcmatch attribname "客户")<br />                      (vla-put-textstring attrib E2)<br />                     )<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

惜惜2

ljpnb 发表于 2024-10-7 17:16

可以了 这是增加了先判断不为空值吗

ljpnb

惜惜2 发表于 2024-10-7 17:23
可以了 这是增加了先判断不为空值吗

是的，先取值
平时很少用到属性块，也学习了一下

惜惜2

ljpnb 发表于 2024-10-7 17:34
是的，先取值
平时很少用到属性块，也学习了一下

2. (setq E1 nil)
   
3. (setq E3 nil)
   
4. (setq filename (vl-filename-base (getvar "dwgname")))
   
5. (if (setq space-pos (vl-string-search " " filename))
   
6.   (progn
   
7.     (setq drawing-number (substr filename 1 space-pos))
   
8.     (setq part-name (substr filename (+ space-pos 2)))
   
9.     (setq ss (ssget "x" '((0 . "INSERT"))))
   
10.     (repeat (setq n (sslength ss))
    
11.       (setq blockref (SSNAME SS (setq n (1- n))))
    
12.       (setq blockref (vlax-ename->vla-object blockref))
    
13.       (if (= (vla-get-HasAttributes blockref) :vlax-true)
    
14.   (progn
    
15.     (foreach attrib
    
16.        (VLAX-SAFEARRAY->LIST
    
17.          (VLAX-VARIANT-VALUE (vla-getattributes blockref))
    
18.        )
    
19.       (if  (or (= (vla-get-tagstring attrib) "产品编码")
    
20.                     (= (vla-get-tagstring attrib) "编号"))
    
21.         (setq e1 (vla-get-textstring attrib))
    
22.       )
    
23.     )
    
24.     (setq E2 (substr E1 2 3))
    
25.     (foreach attrib
    
26.        (VLAX-SAFEARRAY->LIST
    
27.          (VLAX-VARIANT-VALUE (vla-getattributes blockref))
    
28.        )
    
29.       (if(and(= (vla-get-tagstring attrib) "设计日期")(not (equal (vla-get-textstring attrib) "")))
    
30.         (setq E3 (vl-prin1-to-string (vla-get-textstring attrib)))
    
31.       )
    
32.      )
    
33.           (if E3
    
34.             (setq e3-length (length E3))
    
35.             )
    
36.           (if E3
    
37.             (if (>= e3-length 8)
    
38.               (setq E4 (strcat (substr E3 0 4) "-" (substr E3 4 2) "-" (substr E3 6 2)))
    
39.               (setq E4 nil))
    
40.           )
    
41.           (foreach attrib
    
42.        (VLAX-SAFEARRAY->LIST
    
43.          (VLAX-VARIANT-VALUE (vla-getattributes blockref))
    
44.        )
    
45.       (cond ((= (vla-get-tagstring attrib) "客户图号")
    
46.        (vla-put-textstring attrib drawing-number)
    
47.       )
    
48.       ((= (vla-get-tagstring attrib) "零件名称")
    
49.        (vla-put-textstring attrib part-name)
    
50.       )
    
51.       ((and(= (vla-get-tagstring attrib) "设计日期")
    
52.                        (equal (vla-get-textstring attrib) ""))
    
53.                    (if E4
    
54.                      (vla-put-textstring attrib E4)
    
55.                      (vla-put-textstring attrib (menucmd "m=$(edtime,$(getvar,DATE),yyyy-mo-dd)")))
    
56.       )
    
57.       ((= (vla-get-tagstring attrib) "客户")
    
58.         (vla-put-textstring attrib E2)
    
59.       )  
    
60.       )
    
61.     )
    
62.   )
    
63.       )
    
64.     )
    
65.   )
    
66. )
    
67. (princ)

(setq E1 nil)<br /> (setq E3 nil)<br /> (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 />   (progn<br />     (foreach attrib<br />        (VLAX-SAFEARRAY->LIST<br />          (VLAX-VARIANT-VALUE (vla-getattributes blockref))<br />        )<br />       (if  (or (= (vla-get-tagstring attrib) "产品编码")<br />                     (= (vla-get-tagstring attrib) "编号"))<br />         (setq e1 (vla-get-textstring attrib))<br />       )<br />     )<br />     (setq E2 (substr E1 2 3))<br />     (foreach attrib<br />        (VLAX-SAFEARRAY->LIST<br />          (VLAX-VARIANT-VALUE (vla-getattributes blockref))<br />        )<br />       (if(and(= (vla-get-tagstring attrib) "设计日期")(not (equal (vla-get-textstring attrib) "")))<br />         (setq E3 (vl-prin1-to-string (vla-get-textstring attrib)))<br />       )<br />      )<br />           (if E3<br />             (setq e3-length (length E3))<br />             )<br />           (if E3<br />             (if (>= e3-length 8)<br />               (setq E4 (strcat (substr E3 0 4) "-" (substr E3 4 2) "-" (substr E3 6 2)))<br />               (setq E4 nil))<br />           )<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 />       ((and(= (vla-get-tagstring attrib) "设计日期")<br />                        (equal (vla-get-textstring attrib) ""))<br />                    (if E4<br />                      (vla-put-textstring attrib E4)<br />                      (vla-put-textstring attrib (menucmd "m=$(edtime,$(getvar,DATE),yyyy-mo-dd)")))<br />       )<br />       ((= (vla-get-tagstring attrib) "客户")<br />         (vla-put-textstring attrib E2)<br />       )  <br />       )<br />     )<br />   )<br />       )<br />     )<br />   )<br /> )<br /> (princ)

   有时间帮忙看下这个吗，假设属性值不为空时，赋值给E3并转换格式再赋值给E4这里有问题