关于自定函数的功能修改请教? 己解決!!!!!

lincctw_ccl

最近在研究group的功能,下列程序是在论坛中找到查询group的程序

此程序执行后,其group 的名称一直显示为 “第一次选择” 的group名称

小弟不懂自定函数,请问上程序该如何修改才能显示出正确的group名称?

谢谢!

;;求dxf组码

(DefunDxf(code ent)

   (cdr(assoc code ent))

)

;;;主程序

(defun c:addgppa(/ engp entgroup)

(setvar "cmdecho" 0)

(setq engp (entsel "\n选择组群: "))

(setq entgroup(dxf 3 (entget (dxf 330 (entget (dxf330 (entget (car engp))))))))

(setvar "cmdecho" 1)

(princ)

)

己解決!!!!!