eq标注值改为等分格式已有源码,请问怎么改成图下方的效果

hooboxu

;;;;;;;;eq标注值改为等分格式
(defun c:eq (/ dxz dqjd ss i ent txt dtxt aa)
  (setvar "cmdecho" 0)
  (command "_.undo" "_begin")
  (princ " 标注值改为等分格式")
  (if (= cl_jd nil) (setq cl_jd 2)) ;设定当前小数精度
  (princ (strcat "\n设定当前小数点后精度为<" (rtos cl_jd 2 4) ">"))
  ;(setq bb (getint))
  ;(if (= bb nil) (setq bb cl_jd))
  ;(setq cl_jd bb)

;;;这部分增加记忆等分数dim_df
   (if (= dim_df nil) (setq dim_df 2))
   (princ (strcat "\n输入要等分的量 <" (rtos dim_df 2 0) ">: "))
   (setq aa (getint))
   (if (= aa nil) (setq aa dim_df))
   (setq dim_df aa)

(while
  (setq ss (ssget":s" '((0 . "DIMENSION")(-4 . "<OR")(70 . 32)(70 . 33)(70 . 34)(70 . 37)(-4 . "OR>"))));setq
  (if (/= ss nil)
    (progn
      (princ (strcat "共选择了" (itoa (sslength ss)) "个标注对象。"))
      (setvar "DIMZIN" 8)