[求助]：等分标注命令修改求助

congcong96

我有一个标注等分命令可以把标注等分为N等分，但是有一个缺陷：等分好的标注在经过拉伸、移动位置、保存文件等操作之后，N个等分的标注就可能只剩下一个（只能看到一个，在原来的位置框选似乎可以选择上）。
        另外有一个致命的缺陷：可能导致图形文件有错误，不能拷贝到另外一张图纸上，除非不选择标注进行拷贝。现请高手帮忙修改，谢谢了。
标注等分命令如下：
(defun v11( nE / entd ent0 ent1 ent2 st1 st2  mid1 mid2 value)
(command "undo" "G")
(setq unitnum(getvar "luprec"))
(setq entd(car(entsel)))
(setq ent0(entget entd))

(if (= (cdr(assoc 1 ent0)) "")
""
(progn
(setq value(rtos(* (atof(cdr(assoc 1 ent0))) (/ 1.0 ne)) 2 unitnum) )
(setq ent0(subst (cons 1 value) (assoc 1 ent0) ent0))
)
)
(setq st1(cdr(assoc 13 ent0)))
(setq st2(cdr(assoc 14 ent0)))
(setq i 0)
(entdel entd)
(repeat ne
    (setq mid1(cons 14  (mid ne st1 st2 i)
              )      
    )            
    (setq mid2(cons 13  (mid ne st1 st2 (+ i 1))
              )      
    )            
   
   (setq ent1(subst mid1 (assoc 14 ent0) ent0))
   (setq ent1(subst mid2 (assoc 13 ent1) ent1))
   (entmake ent1)
   (command "dim1" "_update" (entlast) "")
   (command "dim1" "_hometext" (entlast) "")
   (redraw (entlast) )  
  ;  (command "redraw")
   (setq i (+ i 1))
)
(command "undo" "e")
)

aeo

无非是拷贝一份再改一下定义点，关键是定义点的取得.

xiaoquansb

我也写过这种lisp

xiaoquansb

我也写过这种lisp