eq标注值改为等分格式已有源码,请问怎么改成图下方的效果
;;;;;;;;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)
页:
[1]