关于自定函数的功能修改请教? 己解決!!!!!
本帖最后由 lincctw_ccl 于 2014-3-21 21:50 编辑最近在研究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) )
己解決!!!!!
页:
[1]