布拉姆斯,这就是你需要的?
[code](defun C:PZ(/*error*ss i en el p p1 echo)(setq echo(getvar'cmdecho))(setvar'cmdecho 0)(命令“UNDO”“BE”)(defun*error*(msg)(if msg(princ msg))(命令“UNDO”“E”)(setvar'cmdecho)(princ))(princ“\nSELECTEAZA puncele SI TEXTELE”)(if(setq ss(ssget’((0。“TEXT,POINT”)(8。“putte,Cote”));