[原创]：一个新的圆弧标注程序，再请大家指教了。

小妹丁

今日眼病好了一点，想办法完善上次的圆弧标注程序，但上机的时间不能太长，自己水平又有限，所以还存在不少问题，请大家再指正。
在圆弧内标注，有些问题，弧长值的位置不理想，在弧外标注没这个问题。
其它问题我还不知道。
[php]
(defun c:yuhu ()
  (setvar "osmode" 0)
  (setq en (entsel "\n选取圆弧:"))
  (setq ena (car en))
  (setq endata (entget ena))
  (setq r (cdr (assoc 40 endata)))
  (setq ptcen (cdr (assoc 10 endata)))
  (setq angle1 (cdr (assoc 50 endata)))
  (setq angle2 (cdr (assoc 51 endata)))
  (setq pt1 (polar ptcen angle1 r))
  (setq pt2 (polar ptcen angle2 r))
  (setq angle12 (angle pt1 pt2))
  (setq angz (+ (* (/ angle12 pi) 180) 180))
  (setq pt (getpoint ptcen "\n弧外标注点: "))
  (setq angt (angle ptcen pt))
  (if (and (< angz 270) (> angz 90))
    (progn
    (setq angz (+ 180 angz))
      (setq ptx (polar pt (+ pi angt) 3.5))
    )
    (setq ptx (polar pt angt 3.5))
  )
  (command "dimaligned" pt1 pt2 pt)
  (setq lenhu (entget (entlast)))
  (setq oldhu (assoc 1 lenhu))
  (command "lengthen" ena "")
  (setq newhu (cons 1 " "))
  (setq lenhu (subst newhu oldhu lenhu))
  (entmod lenhu)
  (command "lengthen" ena "")
  (setq hu (rtos (getvar "perimeter") 2))
  (command "text" "m" ptx 3.5 angz hu)
  (setq ttxt (entget (entlast)))
  (command "ucs" "e" (entlast))
  (SETQ txtbox (textbox ttxt))
  (setq p1 (car txtbox))
  (setq p3 (cadr txtbox))
  (setq p4 (list (car p1) (cadr p3)))
  (setq xxx (distance p3 p1))
  (setq p5 (list (+ (car p1) (* 0.02 xxx)) (+ (cadr p3) (* 0.02 xxx))))
  (command "arc" p4 p5 p3)
  (command "ucs" "")
)
[/php]

XDSoft

最初由 小妹丁 发布
[B]今日眼病好了一点，想办法完善上次的圆弧标注程序，但上机的时间不能太长，自己水平又有限，所以还存在不少问题，请大家再指正。
在圆弧内标注，有些问题，弧长值的位置不理想，在弧外标注没这个问题。
其它问题我... [/B]

小妹妹，身体要紧啊，身体是革命的本钱，以后有的是时间上晓东CAD呢，多注意休息。

maplesu

小妹：你可以用dimangular命令来标注弧线（这个是标注角度的命令）
然后把角度改为弧长就可以了！！

下面是我写的一个lisp。看看符合你的要求不？？
[PHP]
(defun c:yh()
  (setq en (entsel "对象: "))
  (setq pt (getpoint "选点: "))
  (command "dimangular" en pt)
  (setq len_data (entget (entlast)))
  (setq old_hc (assoc 1 len_data))
  (command "lengthen" (car en) "")
  (setq l (getvar "perimeter"))  
  (setq new_hc (cons 1 (rtos l 2 2)))
  (setq len_data (subst new_hc old_hc len_data))
  (entmod len_data)
  )
[/PHP]

小妹丁

多谢XDSOFT关心，上次好多地方不如意，只好再想办法，对自己都是学习。
maplesu地方法不合机械的要求。其实我就是按你的思路来改写的，真的多谢了。
如果弧线能与数值做成块就好。

maplesu

呵呵，我不是搞机械的，机械制图标圆弧的方式是需要直线标注的呀！！

我试了你的lisp，有什么问题吗？？是文字的位置？

小妹丁

等我好些时再想点办法

XDSoft

最初由 小妹丁 发布
[B]等我好些时再想点办法 [/B]

1、不管什么角度，你都先格式化到 -90 ---90 度，作为以后判断文字标注位置的基准。

2、根据角度，确定是上面（左）还是下面（右），移动文字到合适的位置。

3、不用块，你可以把这些相关的实体做成“组”。

你可以看看晓东工具箱里面的“弧线标注”。

[field]
;|
   命令：XDTB_DimAngToArc
   功能：角转弧长
|;

;|
   命令：XDTB_DimArcToAng
   功能：弧长转角
|;

;|
  命令：XDTB_DimAngTo
  功能：在“角度标注”、“弧长标注”、“弦长标注”三者间转换
|;
[/field]



[swf w=512 h=482]http://www.xdcad.net/tech/dimangtoarc.swf[/swf]


程序的相关讨论看下下面链接：

http://www.xdcad.net/forum/showthread.php?s=&threadid=14427

小妹丁

多谢指点！

PFD8667

用晓东工具标弧线,是否要先设置图形比例,否则标注尺寸,很不好看.

li809

谢谢,常用到的工具,解决问题了

yudiquan

请问，怎么样才能把上面的文字添加到CAD里面去？也就是说怎么样定义LISP文件

1448

新的机械制图标准已规定了圆弧的标注方法。