;这个程序是批量宗地编号程序,是从下至上,从右到左的,我想改成自上至下,从左到右。版主能帮我改一下吗?谢谢 (defun c:zdbh() (setq ss (ssget (list '(0 . "LWPOLYLINE")))) (setq n 0 k 1) (repeat (sslength ss) (setq na (ssname ss n)) (setq po (Get_center_relative na)) (command "text" "j" "mc" po 2.5 0 k "") (setq k (1+ k)) (setq n (1+ n)) ) & ... ...