请教：互换块的属性值遇到问题

狂刀无痕

还是用vla方便

etom999

;46--- 属性 文字互换 ---
(Defun C:RTT(/ ent1 ent2 end1 end2 att1 att2 xx1 xx2)
 (PrinC "两个属性.文字互换(可以是同一个实体)... ")
 (SetQ ent1 (NentSel "选择文字1:") end1 (EntGet(SetQ xx1 (Car ent1))) att1 (Assoc 1 end1))
 (SetQ ent2 (NentSel "选择文字2:") end2 (EntGet(SetQ xx2 (Car ent2))) att2 (Assoc 1 end2))
 (SetQ end2 (SubSt att1 att2 end2))
 (EntMod end2)
 (EntUpd xx1)
 (EntUpd xx2)
)