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

惜惜2

2. <blockquote>[code=lisp](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.     ((and(= (vla-get-tagstring attrib) "设计日期")
    
23.                      (equal (vla-get-textstring attrib) ""))
    
24.      (vla-put-textstring attrib (menucmd "m=$(edtime,$(getvar,DATE),yyyy-mo-dd)"))))
    
25.     )
    
26.                 ((= (vla-get-tagstring attrib) "产品编码")
    
27.                  (let ((product-code-value (vla-get-textstring attrib))))
    
28.                 ((= (vla-get-tagstring attrib) "客户")
    
29.                   (let ((extracted-code(substr product-code 2 3))))
    
30.                   (vla-put-textstring attrib extracted-code)
    
31.                 )
    
32.     )
    
33.   )
    
34.       )
    
35.     )
    
36.   )
    
37. )
    
38. (princ)

<blockquote>[code=lisp](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 />     ((and(= (vla-get-tagstring attrib) "设计日期")<br />                      (equal (vla-get-textstring attrib) ""))<br />      (vla-put-textstring attrib (menucmd "m=$(edtime,$(getvar,DATE),yyyy-mo-dd)"))))<br />     )<br />                 ((= (vla-get-tagstring attrib) "产品编码")<br />                  (let ((product-code-value (vla-get-textstring attrib))))<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 /> (princ)

[/code]

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: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这里有问题

惜惜2

kozmosovia 发表于 2024-10-7 11:01
(let ((extracted-code (substr product-code 2 3)))
这个不是alisp的函数

(setq filename (vl-filename-base (getvar "dwgname")))
(if (setq space-pos (vl-string-search " " filename))
  (progn
    (setq drawing-number (substr filename 1 space-pos))
    (setq part-name (substr filename (+ space-pos 2)))
    (setq ss (ssget "x" '((0 . "INSERT"))))
    (repeat (setq n (sslength ss))
      (setq blockref (SSNAME SS (setq n (1- n))))
      (setq blockref (vlax-ename->vla-object blockref))
      (if (= (vla-get-HasAttributes blockref) :vlax-true)
        (foreach attrib
                 (VLAX-SAFEARRAY->LIST
                   (VLAX-VARIANT-VALUE (vla-getattributes blockref))
                 )
          (cond        ((= (vla-get-tagstring attrib) "客户图号")
                 (vla-put-textstring attrib drawing-number)
                )
                ((= (vla-get-tagstring attrib) "零件名称")
                 (vla-put-textstring attrib part-name)
                )
                ((and(= (vla-get-tagstring attrib) "设计日期")
                     (equal (vla-get-textstring attrib) ""))
                 (vla-put-textstring attrib (menucmd "m=$(edtime,$(getvar,DATE),yyyy-mo-dd)")))))
                )
                ((= (vla-get-tagstring attrib) "产品编码")
                 (setq E1 (vla-get-textstring attrib))
                )
                ((= (vla-get-tagstring attrib) "客户")
                 (setq E2 (substr E1 2 3))
                 (vla-put-textstring attrib E2)
                )
          )
        )
      )
    )
  )
)
(princ)
我提取变量赋值也是不成功  大佬再帮忙看看

被承包的东子

(substr "abcdef" 2 3)
返回："bcd"

(substr "abcdef" 2 2)
返回："bc"

是这个意思么

惜惜2

被承包的东子 发表于 2024-9-20 08:06
(substr "abcdef" 2 3)
返回："bcd"

是的，是因为我的变量值没有加引号？

惜惜2

有大佬帮忙看下吗？这段不成功，谢谢

1. ((= (vla-get-tagstring attrib) "产品编码")
   
2.                  (let ((product-code-value (vla-get-textstring attrib))))
   
3.                 ((= (vla-get-tagstring attrib) "客户")
   
4.                   (let ((extracted-code(substr product-code 2 3))))
   
5.                   (vla-put-textstring attrib extracted-code)

复制代码

kozmosovia

(let ((extracted-code (substr product-code 2 3)))
这个不是alisp的函数

另外除非产品编码属性定义在客户之前，否则需要循环两次属性才能修改客户内容：第一次获得需要改的内容，第二次修改。

惜惜2

kozmosovia 发表于 2024-10-7 11:01
(let ((extracted-code (substr product-code 2 3)))
这个不是alisp的函数

产品编码属性定义在客户之前，另外使用字段是如何获取特定内容的，要求是第二到三位数，我看是获取了全部的值。用字段更新过去，再使用substr去筛选客户标签一次？

ljpnb

(vla-put-textstring attrib (menucmd "m=$(edtime,$(getvar,DATE),yyyy-mo-dd)")))))这句右括号多了3个

惜惜2

ljpnb 发表于 2024-10-7 14:59
(vla-put-textstring attrib (menucmd "m=$(edtime,$(getvar,DATE),yyyy-mo-dd)")))))这句右括号多了3个

删掉以后还是提取不成功，是什么原因，我这个也是在你写的基础上面改的，前面的都正常。我测试发现E1赋值不成功，返回的是E2为空的值

kozmosovia

(if (setq space-pos (vl-string-search " " filename))
文件名带有空格才会执行后面的代码