[求助]：[求助]： 帮我看看着错在哪了,谢谢!!

bingtwo

(defun c:qq (/ x time pt year month day selt datlst lr) ;変更日期
  (setq        selt (ssget)
        pt   (getvar "cdate")                ;提取系統時間
        pt   (rtos pt 2 4)
  )
  (setq        year  (substr pt 1 4)
        month (substr pt 5 2)
        day   (substr pt 7 2)
        lr    1984
  )
  (setq year (atof year))
  (setq year (- year lr))
  (setq year (itoa year))
  (setq time (strcat year "-" month "-" day))
  (REPEAT loop
    (SETQ datlst (ENTGET (SSNAME selt sn)))
    (SETQ datlst (SUBST (CONS 1 time) (ASSOC 1 datlst) datlst))
    (ENTMOD datlst)
    (SETQ sn (1+ sn))
  )
  (princ)
)

Dallas_whu

[CODE]
[PHP]
(DEFUN C:QQ (/ SELT PT YEAR MONTH DAY LR TIME LOOP SN DATLST) ;変更日期
  (SETQ        SELT (SSGET        '((-4 . "<OR")
                          (0 . "TEXT")
                          (0 . "MTEXT")
                          (0 . "DIMENSION")
                          (-4 . "OR>")
                         )
                 )
        PT   (GETVAR "CDATE")                ;提取系統時間
        PT   (RTOS PT 2 4)
  )
  (SETQ        YEAR  (SUBSTR PT 1 4)
        MONTH (SUBSTR PT 5 2)
        DAY   (SUBSTR PT 7 2)
        LR    1984
  )
  (SETQ YEAR (ATOF YEAR))
  (SETQ YEAR (- YEAR LR))
  (SETQ YEAR (RTOS YEAR 2 0))
  (SETQ TIME (STRCAT YEAR "-" MONTH "-" DAY))
  (SETQ LOOP (SSLENGTH SELT))
  (SETQ SN 0)
  (WHILE (< SN LOOP)
    (SETQ DATLST (ENTGET (SSNAME SELT SN)))
    (SETQ DATLST (SUBST (CONS 1 TIME) (ASSOC 1 DATLST) DATLST))
    (ENTMOD DATLST)
    (SETQ SN (1+ SN))
  )
  (PRINC)
)

yunzhong80

(setq year (itoa year))
这里有问题，itoa 是将integer型 转换 string型
可你这里的year是float型（你上边用(setq year (atof year))转换的）

winabcd

这个函数对你有用吗？
(defun tt (/ tmp txt )
  (setq tmp (rtos (getvar "cdate") 2 8))
  (setq txt (strcat (rtos (atof (substr tmp 1 4)) 2 0) "年"
                    (rtos (atof (substr tmp 5 2)) 2 0) "月"
                    (rtos (atof (substr tmp 7 2)) 2 0) "日"
                    (rtos (atof (substr tmp 10 2)) 2 0) "时"
                    (rtos (atof (substr tmp 12 2)) 2 0) "分"
                    ))
  (alert txt)
  (princ)
)

你的程序中有些变量没有给初值，如loop，sn

yunzhong80

上边说得对，loop，sn 初值都没有，咋行呢

请问你这句在替换什么啊(SETQ datlst (SUBST (CONS 1 time) (ASSOC 1 datlst) datlst))
(CONS 1 time) 为（1 . “21-11-1”）
(ASSOC 1 datlst)找什么啊？对象数据里边有这样的值吗，是啥意思，我不明白

bingtwo

谢谢,

xyp1964

while虽然慢一点，但可以减少空选的错误。
loop就可以省了，程序修改如下：

2. [FONT=courier new]
   
3. (load "xyp_lib")
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
7. ★1·在acad.lsp中增加(load"xyp_lib")
   
8. ■2·在每个程序内增加(load"xyp_lib")
   
9. ■3·在command下，输入(load"xyp_lib")
   
10. ■4·在菜单.mnl中增加(load"xyp_lib")
    
11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
12. ★通用函数下载地址：
    
13. [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]
    
14. |;
    
15. 
    
16. 
    
17. ;;;変更日期
    
18. (defun c:qq (/ ss pt year month day time i s1)
    
19.   (cmdla0)
    
20.   (if (null no1)
    
21.     (setq no1 1984)
    
22.   )
    
23.   (setq        no1   (UREAL 7 "" "\n4位数的年代" no1)
    
24.         ss    (ssget '((0 . "TEXT")))
    
25.         pt    (rtos (getvar "cdate") 2 4)
    
26.         year  (substr pt 1 4)
    
27.         month (substr pt 5 2)
    
28.         day   (substr pt 7 2)
    
29.         year  (rtos (- (atof year) no1) 2 0)
    
30.         time  (strcat year "-" month "-" day)
    
31.         i     -1
    
32.   )
    
33.   (while (setq s1 (SSNAME ss (setq i (1+ i))))
    
34.     (sub_upd s1 1 time)
    
35.   )
    
36.   (cmdla1)
    
37. )[/FONT]

[FONT=courier new]<br /> (load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> ★通用函数下载地址：<br /> [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]<br /> |;<br /> <br /> <br /> ;;;変更日期<br /> (defun c:qq (/ ss pt year month day time i s1)<br />   (cmdla0)<br />   (if (null no1)<br />     (setq no1 1984)<br />   )<br />   (setq        no1   (UREAL 7 "" "\n4位数的年代" no1)<br />         ss    (ssget '((0 . "TEXT")))<br />         pt    (rtos (getvar "cdate") 2 4)<br />         year  (substr pt 1 4)<br />         month (substr pt 5 2)<br />         day   (substr pt 7 2)<br />         year  (rtos (- (atof year) no1) 2 0)<br />         time  (strcat year "-" month "-" day)<br />         i     -1<br />   )<br />   (while (setq s1 (SSNAME ss (setq i (1+ i))))<br />     (sub_upd s1 1 time)<br />   )<br />   (cmdla1)<br /> )[/FONT]