[编程申请]：请编一程序解决如下标注问题

duzeman

机械制图中大半径圆弧标注，无圆心或圆弧太大

lsjjm

这个程序不知满足你的要求否?  如尺寸的精度? 折线的形式..等都未给出?

2. 
   
3. (defun c:test ()
   
4.   (setq ent (entsel)
   
5.          p1 (osnap (cadr ent) "near")
   
6.          p4 (getpoint "End point:")
   
7.         rad (cdr (assoc 40 (entget (car ent))))
   
8.          p2 (polar p1 (angle p1 p4)(* 0.5 (distance p1 p4)))
   
9.           d (* (getvar "dimtxt")(getvar "dimscale")))
   
10.   (setq p2 (polar p2 (+ (angle p1 p4)(/ pi 2)) d))
    
11.   (setq p2 (polar p2 (angle p1 p2) (+ d d))
    
12.          p3 (polar p4 (angle p2 p1)(distance p1 p2)))
    
13.   (setvar "osmode" 0)
    
14.   (vl-cmdf "text" "j" "bc" (polar p1 (angle p1 p2)(/ (distance p1 p4) 4))
    
15.            d (/ (* (angle p1 p2) 180.0) pi)(strcat "R" (rtos rad 2 1)) "")
    
16.   (vl-cmdf "qleader" p1 p2 p3 p4 "" "" "n")
    
17. );defun

<br /> (defun c:test ()<br />   (setq ent (entsel)<br />          p1 (osnap (cadr ent) "near")<br />          p4 (getpoint "End point:")<br />         rad (cdr (assoc 40 (entget (car ent))))<br />          p2 (polar p1 (angle p1 p4)(* 0.5 (distance p1 p4)))<br />           d (* (getvar "dimtxt")(getvar "dimscale")))<br />   (setq p2 (polar p2 (+ (angle p1 p4)(/ pi 2)) d))<br />   (setq p2 (polar p2 (angle p1 p2) (+ d d))<br />          p3 (polar p4 (angle p2 p1)(distance p1 p2)))<br />   (setvar "osmode" 0)<br />   (vl-cmdf "text" "j" "bc" (polar p1 (angle p1 p2)(/ (distance p1 p4) 4))<br />            d (/ (* (angle p1 p2) 180.0) pi)(strcat "R" (rtos rad 2 1)) "")<br />   (vl-cmdf "qleader" p1 p2 p3 p4 "" "" "n")<br /> );defun

duzeman

TEST不能解决该标注，标注后出现多行文字
具体标注过程可见CAXA电子图板中的标注中的大圆弧标注
请编程在ACAD中解决，见附图

lsjjm

我就是使用AutoCAd2的lisp呀？你的"编程在ACAD中解决"是什么意思？
怎么会出现多行文字？我在AutoCAd2000i 和20004试都没问题。

duzeman

只有执行“QLEADER"指引线命令后，将参数设为如图所示才行，
否则在输入”ENDPOINT"后会出现多行文字输入框。执行“TEST”命令标注另一方向的弧会出现如图所示，字倒了！
你可参考一下“CAXA电子图板”中的大半径标注，可能对你编程有帮助。请对该程序进行改造。我说的在AUTOCAD中解决是指在AUTOCAD2002中编程，能像“CAXA电子图板”那样输入大半径标注。

duzeman

只有执行"QLEADER"后将注