求助：请高手帮忙编一个关于标注的程序！！

xajh_sh

请高手帮忙编一个关于标注的程序！！谢谢..

以下是具体要求：在标注一个弧线的弧度时能同时标出半径，如标注弧度时文字为120°，通过这个程序可以标注出文字为120°R3000

花锦绣

临时赶出来的，看看是否适用。

xajh_sh

谢谢！非常好用，

美中不足：

1、角度后缺个上标

2、在选择方式（如：不能通过两条线选择园的一段弧）和精度设置（如：43.0125度，不能自动变为43度）上不能和dimangular命令一样方便

3、不能在图纸空间使用

如大侠有空请帮忙再改一下，谢谢！！！

花锦绣

水平不足，无法满足你的要求，另写了一个，希望能对你有所帮助。

程序根据所选择的圆弧得到半径和选择的角度标注得到角度，如果标注和圆弧不匹配将会出现张冠李戴的情况。

程序采用对标注数据进行文字代替的方式，所以精度设置只能通过修改程序来解决啦。

在模型空间的实体转图纸空间不能选择，反之也一样，我也不知道如何解决这个问题，但对于在图纸空间画的弧，程序还是可以使用的。

sailorcwx

角度是%%d

sailorcwx

;;同时标注角度和半径 V1.0 by sailorcwx 2007.02
;;角度和半径的精度由标注样式决定
(defun c:bz1 ( / YH_ANGULAR YH_ANGULAR0 YH_ARC YH_ARCDATA YH_DIMANGULAR YH_DIMANGULARDATA YH_NUMBER1 YH_NUMBER2 YH_RADIUS)
  (while (setq YH_arc (entsel))
    (setq YH_arcdata (entget (car YH_arc)))
    (if (or (= (cdr (assoc 0 YH_arcdata)) "ARC") (= (cdr (assoc 0 YH_arcdata)) "CIRCLE"))
      (progn
 (if (= (cdr (assoc 0 YH_arcdata)) "ARC")
   (command "_dimangular" YH_arc pause)
   (command "_dimangular" YH_arc pause pause)
   )
 (setq YH_dimangular (entlast)
       YH_number1 (getvar "DIMADEC")
              YH_number2 (getvar "DIMDEC")
              YH_dimangulardata (entget YH_dimangular)
              YH_radius (rtos (cdr (assoc 40 YH_arcdata)) 2 YH_number2)
              YH_angular0 (/ (* 180 (cdr (assoc 42 YH_dimangulardata))) pi)
              YH_angular (strcat (rtos YH_angular0 2 YH_number1)  "%%D R" YH_radius)
              YH_dimangulardata (subst (cons 1 YH_angular) (assoc 1 YH_dimangulardata) YH_dimangulardata)
       )
 (entmod YH_dimangulardata)
 )
      (princ "\n选择错误，重新选择！")
      )
    )
  (princ)
  )

xajh_sh

谢谢“花锦绣、sailorcwx”的热心帮助！

sailorcwx的程序依然不能在图纸空间使用。

另外选择对象也可以是pl弧线，而并不是局限于圆弧！

再次谢谢！！