我的成果，大家来修理修理！

honboo

;;说明：此程序为菜鸟所编，只能一行一行的排列图号
;;以下为实现排列图号功能的程序 (defun c:tuhao()
(setq fir (getpoint "\n请选定图框的左下角"))
(setq text (getstring "\n请输入图号号码:"))
(setq number (getstring "\n请输入本行图框数目:"))
(setq tex (atoi text))
(setq n (atoi number)) (setq os (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)

(repeat n
(setq wri (polar fir (/ pi 75) 357))
(setq m (itoa tex))
(if (= 1 (strlen m))
(command "text" wri 0 (strcat "SS-SF-0" m))
(command "text" wri 0 (strcat "SS-SF-" m))
)
(setq fir (list (+(car fir) 420) (cadr fir)))
(setq tex (+ tex 1))
)
(setvar "osmode" os)
(princ)
)
;;以下为独立于上面排列图号的程序，因为经常有编错图号的时候
;;删除起来很麻烦，所以又编辑了下面的程序，是功过寻找关键字
;;再删除的思路编程的。
(defun c:ca()
(setq os (getvar "osmode"))
(setq point1 (getpoint "\n请确定第一个对角点 : "))
(setq point2 (getcorner point1 "\n请确定第二个对角点 : "))
(setvar "osmode" 0)
(command "undo" "BE")
(setq clu (ssget "w" point1 point2 '((0 . "TEXT") (1 . "*SS-SF*"))))
(command "._erase" clu "")
(princ "完成擦处!")
(command "undo" "E")
(setvar "osmode" os)
)
;;我知道肯定有跟方便的做法的，所以就抛块砖给各位高人
;;我想过：因为图框都是图块属性的，所以可以通过这一点来
;;寻找一个更方便的突破口，但是因为智商问题所以一直没有找到。 ;;具体的DWG文件我已经传上来了！

honboo

啊！！！？         没人看啊，那我就自己顶起一次，还是希望看到的能给我提点意见，真的感谢了！！

0451doctor

你先要说说你要如何作，达到什么效果！

honboo

大家可以看看我的图纸，如果图框的排列是杂乱无章的，该如何给图框实现自动编号，如果用 “SSEGT”，这个命令再在运行时的查找顺序是怎样的呢？