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

ljpnb

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

(setq e3-length (length E3))这时的length不对，应该是(setq e3-length (strlen E3))

(setq E4 (strcat (substr E3 0 4) "-" (substr E3 4 2) "-" (substr E3 6 2)))中的(substr E3 0 4)应该是(substr E3 1 4)，从1开始

惜惜2

ljpnb 发表于 2024-10-13 14:22
(setq e3-length (length E3))这时的length不对，应该是(setq e3-length (strlen E3))

(setq E4 (strc ...

感谢

xyp1964

1. (defun c:tt ()
   
2.   (setq dn (vl-filename-base (getvar "dwgname")))
   
3.   (if (setq nn (vl-string-search " " dn))
   
4.     (progn
   
5.       (setq aa (substr dn 1 nn))
   
6.       (setq bb (substr dn (+ nn 2)))
   
7.       (setq ss (ssget "x" '((0 . "INSERT") (66 . 1))))
   
8.       (repeat (setq n (sslength ss))
   
9.         (setq s1 (ssname ss (setq n (1- n))))
   
10.         (foreach a (reverse (xyp-Att2list s1))
    
11.           (setq ts (cadr a)
    
12.                 b  (car a)
    
13.           )
    
14.           (cond ((= ts "客户图号") (xyp-SubUpd b 1 aa))
    
15.                 ((= ts "零件名称") (xyp-SubUpd b 1 bb))
    
16.                 ((= ts "设计日期") (xyp-SubUpd b 1 (menucmd "m=$(edtime,$(getvar,DATE),yyyy-mo-dd)")))
    
17.                 ((= ts "产品编码") (setq e1 (last a)))
    
18.                 ((= ts "客户") (xyp-SubUpd b 1 (substr E1 2 3)))
    
19.           )
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )

(defun c:tt ()<br />   (setq dn (vl-filename-base (getvar "dwgname")))<br />   (if (setq nn (vl-string-search " " dn))<br />     (progn<br />       (setq aa (substr dn 1 nn))<br />       (setq bb (substr dn (+ nn 2)))<br />       (setq ss (ssget "x" '((0 . "INSERT") (66 . 1))))<br />       (repeat (setq n (sslength ss))<br />         (setq s1 (ssname ss (setq n (1- n))))<br />         (foreach a (reverse (xyp-Att2list s1))<br />           (setq ts (cadr a)<br />                 b  (car a)<br />           )<br />           (cond ((= ts "客户图号") (xyp-SubUpd b 1 aa))<br />                 ((= ts "零件名称") (xyp-SubUpd b 1 bb))<br />                 ((= ts "设计日期") (xyp-SubUpd b 1 (menucmd "m=$(edtime,$(getvar,DATE),yyyy-mo-dd)")))<br />                 ((= ts "产品编码") (setq e1 (last a)))<br />                 ((= ts "客户") (xyp-SubUpd b 1 (substr E1 2 3)))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

惜惜2

xyp1964 发表于 2024-10-14 21:52

感谢版主大大更新的方法