CAD中自动编码程序在单选图框时可以，但图框内有图形时就无法选择，请各位大神解决
这个小程序在单是图框时可以选择自动编号，但是如果图框里有画出图形后就无法再选择了，请问各位大神这应该怎么改呢？源码如下
(defun c:yema ()
(setvar "cmdecho" 0)
(dcl_Form1)
(prin1)
)
;--->-启动程序-<---
(defun dcl_Form1()
(setq dcl_id (load_dialog "D:\\Program Files\\yemachengxu\\Form1.dcl"))
(new_dialog "Form1" dcl_id)
(set_tile "Text1" "当前页")
(set_tile "Text2" "第")
(set_tile "Text4" "页")
(set_tile "Text5" "图号")
(set_tile "Text6" "JD-")
(action_tile "Command1" "(get_Text1) (get_Text2) (get_Text3) (get_Text4) (get_Text5) (get_Text6) (get_Text7) (done_dialog 1)")
(setq dd (start_dialog))
(cond
((= dd 1) (c:ksjs))
)
)
;--->--<---
;--->-把Text1的数值赋予给biao_Text1-<---
(defun get_Text1()
(setq biao_Text1 (get_tile "Text1"))
)
;--->-把Text2的数值赋予给biao_Text2-<---
(defun get_Text2()
(setq biao_Text2 (get_tile "Text2"))
)
;--->-把Text3的数值赋予给biao_Text3-<---
(defun get_Text3()
(setq biao_Text3 (atof (get_tile "Text3")))
)
;--->-把Text4的数值赋予给biao_Text4-<---
(defun get_Text4()
(setq biao_Text4 (get_tile "Text4"))
)
;--->-把Text5的数值赋予给biao_Text5-<---
(defun get_Text5()
(setq biao_Text5 (get_tile "Text5"))
)
;--->-把Text6的数值赋予给biao_Text6-<---
(defun get_Text6()
(setq biao_Text6 (get_tile "Text6"))
)
;--->-把Text7的数值赋予给biao_Text7-<---
(defun get_Text7()
(setq biao_Text7 (atof (get_tile "Text7")))
)
;--->-执行程序-<---
(defun c:ksjs()
(prompt "\n选择基准图框")
(setq ss1 (ssget))
(setq ss1 (list '(0 . "INSERT") (cons 2 (cdr (assoc 2 (entget (ssname ss2 0)))))))
(prompt "\n选择需要修改的所有图框")
(setq ss (ssget ss1))
;;;按左右上下顺序排序选择集图元;;;;
(setq lst (ss2lst ss))
(setq lst(vl-sort lst '(lambda(x y)(if (equal (cadr(cdr(assoc 10 (entget x))))(cadr(cdr(assoc 10 (entget y))))1e-1)
(<(car(cdr(assoc 10 (entget x))))(car(cdr(assoc 10 (entget y)))))
)
)
)
)
;-----------------------------------
(setq i 0)
(setq d 0)
;------------------------
(cond
((/= biao_Text3 0)
(repeat (sslength ss)
(setq bs1 (strcat biao_Text2 (itoa (fix biao_Text3)) biao_Text4))
(setq e1 (nth d lst))
(setq a nil)
(while (= a nil)
(setq a
(progn
(setq e1 (entnext e1))
(setq e3 (entget e1))
(setq e4 (cdr (assoc 2 e3)))
(cond ((= e4 biao_Text1)
(progn
(setq new_th_list (cons 1 bs1))
(setq old_th_list (assoc 1 e3))
(setq e3 (subst new_th_list old_th_list e3));新旧替换
(entmod e3);根据新对象属性自动更新圆半径
)
)
)
)
)
)
(setq d (1+ d))
(setq biao_Text3 (1+ biao_Text3))
)))
;-----------------------------------
(cond
((/= biao_Text7 0)
(repeat (sslength ss)
(setq bs2 (strcat biao_Text6 (itoa (fix biao_Text7))))
;(setq e1 (ssname ss i))
(setq e1 (nth i lst))
(setq a nil)
(while (= a nil)
(setq a
(progn
(setq e1 (entnext e1))
(setq e3 (entget e1))
(setq e4 (cdr (assoc 2 e3)))
(cond ((= e4 biao_Text5)
(progn
(setq new_th_list (cons 1 bs2))
(setq old_th_list (assoc 1 e3))
(setq e3 (subst new_th_list old_th_list e3));新旧替换
(entmod e3);根据新对象属性自动更新圆半径
)
)
)
)
)
)
(setq i (1+ i))
(setq biao_Text7 (1+ biao_Text7))
)))
;----------------------------------------------
)
;;;;选择集转表
(defun ss2lst (ss / i e lst)
(setq c -1)
(repeat (sslength ss)
(setq e (ssname ss (setq c (1+ c)))
lst (cons e lst)
)
)
)
;----------------------
(princ "\n页码编辑")
(princ "\n快捷命令:YEMA")
(princ )
页:
[1]