[求助]如何修改扩展数据？

龙龙仔

3. ;;很好!自已讨论很闷的...就是要人多
4. ;;指令:(ATT_REORDER LST)
5. ;;指令:(ATT_REORDER '("25500300" "25500200" "25401000" "25401000"))
6. (defun ATT_REORDER
7.        (MARK_LST / ATT ENT LST N N1 NEWENT NEWENT1 OBJ SS SSS STR)
8.   (vl-load-com)
9.   ;;(prompt "\n选处理物件")
10.   (setq SS (ssget "X" '((-3 ("TBH_INFO")))))
11.   (foreach ST MARK_LST
12.     (setq N1  0
13.    N   0
14.    SSS (ssadd)
15.     )
16.     (setq ST (strcat "*" ST "*"))
17.     (if SS
18.       (repeat (sslength SS)
19. (setq NEWENT1 (entget (ssname SS N) '("TBH_INFO")))
20. (setq STR (cdr (cadadr (assoc -3 NEWENT1))))
21. (if (wcmatch STR ST)
22.    (progn
23.      (ssadd (setq ENT (ssname SS N)) SSS)
24.      (setq OBJ (vlax-ename->vla-object ENT))
25.      (setq
26.        NEWENT
27.         (subst
28.    (list
29.      -3
30.      (list
31.        "TBH_INFO"
32.        (cons
33.          1000
34.          (strcat
35.     (rtos (setq N1 (1+ N1)))
36.     (substr STR
37.      (1+ (vl-string-position (ascii "|") STR))
38.     )
39.          )
40.        )
41.      )
42.    )
43.    (assoc -3 NEWENT1)
44.    NEWENT1
45.         )
46.      )
47.      (entmod NEWENT)
48.      (if (= :vlax-true (vla-get-hasattributes OBJ))
49.        (progn
50.   (setq ATT (vlax-safearray->list
51.        (vlax-variant-value
52.          (vla-getattributes
53.     OBJ
54.          )
55.        )
56.      )
57.   )
58.   (foreach AT ATT
59.     (if (= (vla-get-tagstring AT) "TBH")
60.       (vla-put-textstring AT N1)
61.     )
62.   )
63.        )
64.      )
65.    )
66. )
67. (setq N (1+ N))
68.       )
69.     )
70.     (setq LST (cons SSS LST))
71.   )
72.   (princ "\nAtt_Reorder ,By LUCAS\n")
73.   LST
74. )
75. (princ "\nType Att_Reorder ,By LUCAS")
76. (princ)

;;很好!自已讨论很闷的...就是要人多 ;;指令:(ATT_REORDER LST) ;;指令:(ATT_REORDER '("25500300" "25500200" "25401000" "25401000")) (defun ATT_REORDER        (MARK_LST / ATT ENT LST N N1 NEWENT NEWENT1 OBJ SS SSS STR)   (vl-load-com)   ;;(prompt "\n选处理物件")   (setq SS (ssget "X" '((-3 ("TBH_INFO")))))   (foreach ST MARK_LST     (setq N1  0    N   0    SSS (ssadd)     )     (setq ST (strcat "*" ST "*"))     (if SS       (repeat (sslength SS) (setq NEWENT1 (entget (ssname SS N) '("TBH_INFO"))) (setq STR (cdr (cadadr (assoc -3 NEWENT1)))) (if (wcmatch STR ST)    (progn      (ssadd (setq ENT (ssname SS N)) SSS)      (setq OBJ (vlax-ename->vla-object ENT))      (setq        NEWENT         (subst    (list      -3      (list        "TBH_INFO"        (cons          1000          (strcat     (rtos (setq N1 (1+ N1)))     (substr STR      (1+ (vl-string-position (ascii "|") STR))     )          )        )      )    )    (assoc -3 NEWENT1)    NEWENT1         )      )      (entmod NEWENT)      (if (= :vlax-true (vla-get-hasattributes OBJ))        (progn   (setq ATT (vlax-safearray->list        (vlax-variant-value          (vla-getattributes     OBJ          )        )      )   )   (foreach AT ATT     (if (= (vla-get-tagstring AT) "TBH")       (vla-put-textstring AT N1)     )   )        )      )    ) ) (setq N (1+ N))       )     )     (setq LST (cons SSS LST))   )   (princ "\nAtt_Reorder ,By LUCAS\n")   LST ) (princ "\nType Att_Reorder ,By LUCAS") (princ)

mayn

请教一下

(setq ss (ssget "x" '((-3 ("TBH_INFO")))))一句改为

(setq ss  (ssget "x" '((-3 ("TBH_INFO"（1000 . "*25500300"）)))))

为何不可？