AutoCADマクロ屋本舗 掲示板

LISPで表（テーブル）オブジェクトのセルに書き込まれている文字列を書き換えたいのですが。
entgetして取得した配列を見て、グループコードの1番と302番が文字列と判断しました。
それら、片方や両方を書き換えて、entmodしても書き変わらない。（entgetした配列の中身は書き換えられている。）
同じ配列でentmakeしたら、空っぽの表ができる。

何か参考になるコードありませんか？

作ったコードが以下です。
(defun C:tableAB (/ ss ent ent2 i DP)
(if (setq ss (ssget "_X"'((0 . "ACAD_TABLE"))))
(progn
(setq i 0)
(repeat (sslength ss)
(setq ent (entget (ssname ss i)) ent2 nil)
(foreach DP ent
(cond
((and (= (car DP) 1) (= (cdr DP) "AAA")) (setq ent2 (append ent2 (list (cons 1 "BBB")))))
((and (= (car DP) 302) (= (cdr DP) "AAA")) (setq ent2 (append ent2 (list (cons 302 "BBB")))))
(T (setq ent2 (append ent2 (list DP))))
)
)
(entmod ent2)
(setq i (1+ i))
)
)
)
(princ)
)

このあたりが参考になるでしょうか。
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/replacing-text-in-tables/td-p/3942886

表オブジェクトは、Visual LISPの方が扱いやすい気がします。

ありがとうございます。
出来ました。


(Defun C:tableAB ( / ss r i c n)
(if (setq ss (ssget "_X" '((0 . "ACAD_TABLE"))))
(repeat (setq m (sslength ss))
(setq a (vlax-ename->vla-object (ssname ss (setq m (1- m))))
r (vla-get-rows a)
c (vla-get-columns a)
i 0
n c
)
(while (< i r)
(repeat c
(setq cs (vlax-invoke a 'GetText i (setq n (1- n))))
(If (= cs "AAA") (vlax-invoke a 'SetText i n "BBB"))
)
(setq i (1+ i) n c)
)
)
)
(princ)
)