初学lisp，请教明细表问题，请指点

meflying

用此函数代替vl-string-translate函数。 (defun wl-translate(str sym1 sym2 / str2 i ch)
(setq str2 "")
(setq i 1)
(repeat (strlen str)
(setq ch (substr str i 1))
(if (= ch sym1)
(setq str2 (strcat str2 sym2))
(setq str2 (strcat str2 ch))
)
(setq i (1+ i))
)
str2
)

randyhuang

谢过meflying兄。


不过还有，对于修改明细表的问题，确实那些数据是放在另外一段组码里，是扩展数据(-3),但我不能像你一开始给我的程序中用assoc 1 ents来获取了，我还能用什么方法获取里面的1000的内容呢？

meflying

你还是说说你到底想干什么吧，不要总是一点一点地问，然后回答的总不是你想要的。。。


至于你现在这个问题，是表操作的问题，你用(entget ent '("xxx"))获得整个包括扩展数据的表，这里的“xxx”是扩展数据应用程序名。然后从这个表中取出你想要的，应该很简单了吧