[原创]：一个最简单的标序号程序

anewfish

;;一个最简单的标注序号的程序，不过还有用。原创。
(defun c:xuhao ()
    (graphscr)
  (setq oce (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (setq dim_c (getvar "dimscale")) ;获得系统变量dimscale的值，
  
   (setq r1 (* 5 dim_c));将圆半径按dimscale相应放大。
   ( setq
        p1 (getpoint "\n 输入一点：")
         p2 (getpoint p1 "\n 输入另一点：")
         ang1 (angle p2 p1)
         
         p3 (polar p2 ang1 (* r1 1))
         text_h (* 4.5 dim_c)     ;将字高相应放大。
          t1 (getstring "\n序号：")
      )  ; 输入两点，设置半径和字高。
   (command ".line" p1 p3 "");draw line
   (command ".circle" p2 r1)
   (command ".text" "m" p2 text_h 0 t1  )
   ( setvar "cmdecho" oce)
   (princ)
)

marisheng

确实简单了点.........
能否考虑加上矩形标注、下划线标注等内容？
此外该程序操作时会出现引线至圆心的现象、圆直径和字高不可调。
加油！支持你！