[建议]：圆弧怎样标注？

jt2_Hunter

cad提供的标注里面没有对圆弧长度的标注，请各位高手能否编写一个标注圆弧的程序？

popxi

好像没这种标法

lsjjm

搜索论坛有许多贴子!
http://www.xdcad.net/forum/showt ... hlight=%BB%A1%B3%A4
http://www.xdcad.net/forum/showt ... hlight=%BB%A1%B3%A4
...
...

841594

我的标弧程序：
可以标注弧长、角度，支持连续标注、回退。

[php]

;;;PADIM.LSP    逐点标注弧形尺寸
;;;
;;;     v1.01 - 1998.10.24
;;;

(defun c:dimarc( / olayer oblp olderr oos
                  p0 p1 p2 p3 ot ang1 ang2 ang3 el1 el2 di1 di2 r rdis
                  np10 np11 np12 np13 np14 np15 np16 entb ls)


;;main

  (setq oos (getvar "osmode"))

  (setq sc (getreal "\n标注比例?1: "))
  (initget 1)
  (setq p0 (getpoint "\n标注线的位置: ")
        p3 (getpoint "\n点出标注线的长度(空格=不要标注线): " p0))
  (setq di1 (if p3 (distance p0 p3) sc) di2 sc)
  (initget 1)
  (setq ot (getpoint "\n圆心: "))
  (or (setq rdis (getdist ot "\n半径<标角度>: ")) (setq rdis 0.0))
  (setq r (distance ot p0))
  (if (setq ls (getpoint "\n开始点: ")) (setq p1 ls) (setq p1 p0))
  (if (> (distance p1 ot) r) (setq di1 (- di1) di2 (- di2)))
  (setq ang1 (angle ot p1)
        np10 (polar ot ang1 (+ r di2))
        np15 (polar ot ang1 (- r di1)))
  (setvar "osmode" 0)
  (command "line" np10 np15 "")
  (setvar "osmode" oos)
  (setq el1 (entlast))
  (setq pl (list (list p1 ang1 el1)))
  (setq p2 (getpoint "\n请逆时针给出标注点:\n下一点(空格=结束): " p1))
  (while p2
    (setvar "osmode" 0)
    (cond
      ((= p2 "Undo")
       (if (= (length pl) 1)
         (princ "\n不可回退!")
        (progn
         (entdel (entlast))
         (entdel el1)
         (setq pl (cdr pl))
         (mapcar 'set '(p1 ang1 el1) (car pl))
       ));if
      )
      (t
       (setq ang2 (angle ot p2))
       (if (> ang1 ang2) (setq ang2 (+ ang2 pi pi)))
       (setq ang3 (* 0.5 (+ ang2 ang1)))
       (setq np16 (polar ot ang3 r)
             np11 (polar np16 ang3 (* 3 sc))
             np13 (polar ot ang2 (+ r di2))
             np14 (polar ot ang2 (- r di1)))
       (command "line" np13 np14 "")
       (setq el2 (entlast))
       (command "dim1" "angular" (list el1 ot) (list el2 ot) np16)
       (if (= rdis 0.0)
         (command "")
         (command (rtos (* rdis (- ang2 ang1)) 2 2))
       )
       (command np11)
       (setq pl (cons (list p2 ang2 el2) pl) p1 p2 ang1 ang2 el1 el2)
      )
    ) ;cond
    (setvar "osmode" oos)
    (initget "Undo")
    (setq p2 (getpoint "\n下一点(回退=U/空格=结束): " p1))
  ) ;while
  
) ;end
[/php]

lgh930

仔细看一下制图规范，就会知道在AUTOCAD中无法进行符合规范的圆弧标注，除非使用
自定义的标注实体

aeo

最初由 lgh930 发布
[B]仔细看一下制图规范，就会知道在AUTOCAD中无法进行符合规范的圆弧标注，除非使用
自定义的标注实体 [/B]

有理
就算按长度标,那个长度应该是"物体"的长度.
看图:

ywx0576

4楼的标注不符合制图规范，尺寸界线应该垂直弦线。

841594

最初由 ywx0576 发布
[B]4楼的标注不符合制图规范，尺寸界线应该垂直弦线。 [/B]

说的对，帮忙改改吧。

yjxcad

我认为该问题很简单,用LISP语言,和dimang,程序计算结果代替角度值就行了,简单的很

Michael_66

4楼标注没有弧度符号？

Qlin

原来去年lcl2094_cn 就写好了：
http://www.xdcad.net/forum/showt ... y=&pagenumber=2
出来的结果符合房屋建筑制图统一标准。

感觉它的思路如下：
求圆弧弧长->生成angle标注->修改标注文字->平移标注到指定位置->
画出标注界限和弧长符号->将生成的物体编为一个组.

星星

九楼搂主的见解很有启发,我写了一个,
附上.欢迎试用,但要收一个"币".
如果谁是真的想要得到一个弧长标注的命令,相信您下载後不会后悔的.
欢迎提出宝贵意见,以便改进.
本人认为真正要解决弧长标注,还是要autocad公司来作,是一件并不困难的事,可能autodesk公司认为同样的形式应当具有同样的数据,这样就把隐含圆弧半径的弧长标注打入了冷宫.