[编程申请]：关于表示弧长的标记的问题！

xgwl

只要在数字上方加一小段弧就行了，也可象天正5.0那样表示方法！

xgwl

怎么搞的！附件上传了却看不到？

XDSoft

每天的0点－0点45左右，服务器进行统计等操作，禁止传东西，所以大家注意：0点45后再传附件。

xzg_hello

呵呵，还有这种事啊，收到！

ll_j

来一段，适用与R2000+，需要的试试，程序使用ACET-GEOM-TEXTBOX函数，需要加载ET2000。

2. 
   
3. (defun c:tarc(/ ss i ent ent0 dname th box pt0 pt1 pt2)
   
4.   (command "._Undo" "_Be")
   
5.   (princ "\n选择需加弧线的文本或标注：")
   
6.   (setq ss(ssget '((0 . "TEXT,MTEXT,DIMENSION"))))
   
7.   (if ss
   
8.     (progn
   
9.       (setq i -1)
   
10.       (repeat (sslength ss)
    
11.         (setq i (1+ i)
    
12.               ent(ssname ss i)
    
13.         )
    
14.         (if (= (cdr (assoc 0 (entget ent))) "DIMENSION")          ;Dim寻找标注文字
    
15.           (progn
    
16.             (setq ent0        ent
    
17.                   dname        (cdr (assoc 2 (entget ent)))
    
18.                   ent        (cdr (assoc -2 (tblsearch "BLOCK" dname)))
    
19.             )
    
20.             (while (/= (cdr (assoc 0 (entget ent))) "MTEXT")
    
21.               (setq ent (entnext ent))
    
22.             )
    
23.             (setq ent (entmakex (cdr (entget ent))))          ;参考文字
    
24.           )
    
25.           (setq ent0 nil)
    
26.         )                             ;end if
    
27.         (setq th (cdr (assoc 40 (entget ent)))
    
28.               box(ACET-GEOM-TEXTBOX (entget ENT) 0.2)
    
29.               pt1(nth 2 box)
    
30.               pt2(nth 3 box)
    
31.               pt0(list (/ (+ (car pt1) (car pt2)) 2)
    
32.                        (/ (+ (cadr pt1) (cadr pt2)) 2)
    
33.                        (/ (+ (caddr pt1) (caddr pt2)) 2)
    
34.                  )
    
35.               pt0(polar pt0 (- (angle pt1 pt2) (/ pi 2)) (/ th [COLOR=red]4[/COLOR] ))  ;凸度与此值有关
    
36.         )
    
37.         (command "._arc" pt1 pt0 pt2)
    
38.         (if ent0
    
39.           (entdel ent)
    
40.         )
    
41.       )
    
42.     )
    
43.     (princ "\n没有选择文本或标注。")
    
44.   )
    
45.   (command "._undo" "_end")
    
46.   (princ)
    
47. )
    

<br /> (defun c:tarc(/ ss i ent ent0 dname th box pt0 pt1 pt2)<br />   (command "._Undo" "_Be")<br />   (princ "\n选择需加弧线的文本或标注：")<br />   (setq ss(ssget '((0 . "TEXT,MTEXT,DIMENSION"))))<br />   (if ss<br />     (progn<br />       (setq i -1)<br />       (repeat (sslength ss)<br />         (setq i (1+ i)<br />               ent(ssname ss i)<br />         )<br />         (if (= (cdr (assoc 0 (entget ent))) "DIMENSION")          ;Dim寻找标注文字<br />           (progn<br />             (setq ent0        ent<br />                   dname        (cdr (assoc 2 (entget ent)))<br />                   ent        (cdr (assoc -2 (tblsearch "BLOCK" dname)))<br />             )<br />             (while (/= (cdr (assoc 0 (entget ent))) "MTEXT")<br />               (setq ent (entnext ent))<br />             )<br />             (setq ent (entmakex (cdr (entget ent))))          ;参考文字<br />           )<br />           (setq ent0 nil)<br />         )                             ;end if<br />         (setq th (cdr (assoc 40 (entget ent)))<br />               box(ACET-GEOM-TEXTBOX (entget ENT) 0.2)<br />               pt1(nth 2 box)<br />               pt2(nth 3 box)<br />               pt0(list (/ (+ (car pt1) (car pt2)) 2)<br />                        (/ (+ (cadr pt1) (cadr pt2)) 2)<br />                        (/ (+ (caddr pt1) (caddr pt2)) 2)<br />                  )<br />               pt0(polar pt0 (- (angle pt1 pt2) (/ pi 2)) (/ th [COLOR=red]4[/COLOR] ))  ;凸度与此值有关<br />         )<br />         (command "._arc" pt1 pt0 pt2)<br />         (if ent0<br />           (entdel ent)<br />         )<br />       )<br />     )<br />     (princ "\n没有选择文本或标注。")<br />   )<br />   (command "._undo" "_end")<br />   (princ)<br /> )<br />

xgwl

太好了！真感谢ll_j ， 不过弧好象平缓了点，再明显一点就好了！

rungang2002

太好用了.绘图速度又提高了