标注问题求大大解惑

chen2802

左图是工具箱自动标注的，但我想改成右图，怎么设置？

csharp

标注翻转  

newer

1. (defun c:XDTB_PLSegLen (/ _process val)
   
2.   (defun _process (e / segs inx g v #angle #length #midpoint p1)
   
3.     (setq segs (xdrx_polyline_numverts e))
   
4.     (setq inx 0)
   
5.     (repeat segs
   
6.       (if (setq g (xdrx_polyline_getlinesegat e inx t))
   
7.         (progn
   
8.           (xdge::getpropertyvalue g "length" "midpoint" "angle")
   
9.         )
   
10.         (progn
    
11.           (setq g (xdrx_polyline_getarcsegat e inx t))
    
12.           (xdge::getpropertyvalue g "length" "midpoint")
    
13.           (setq v (xdrx_curve_getfirstderiv e #midpoint)
    
14.                 #angle (xdrx_vector_angle v)
    
15.           )
    
16.         )
    
17.       )
    
18.       (setq #angle1 (xd::geom:angleformat #angle)
    
19.             p1 (trans (polar #midpoint (- #angle (/ pi 2.0))
    
20. 
    
21.                                (* 3 (/ #txt_height 2.0))
    
22.                         ) e 0
    
23.                  )
    
24.       )
    
25.       (if (xdrx_point_isinside p1 e)
    
26.         (setq p1 (trans (polar #midpoint (+ #angle (/ pi 2.0)) (/ #txt_height 2.0)) e 0))
    
27.       )
    
28.       (xdrx_text_make p1 (rtos #length 2 #txt_bit) (getvar "textstyle")
    
29.                       #txt_height #angle
    
30.       )
    
31.       (xd::text:setalignment (entlast) p1 "BC")
    
32.       (xd::text:adjust (entlast))
    
33.       (setq inx (1+ inx))
    
34.     )
    
35.     (xdge::free g)
    
36.   )
    
37.   (if (not #txt_height)
    
38.     (setq #txt_height 3.5)
    
39.   )
    
40.   (if (not #txt_bit)
    
41.     (setq #txt_bit 1)
    
42.   )
    
43.   (if (setq val (getint (xdrx_prompt "\n保留位数<" #txt_bit ">:" t)))
    
44.     (setq #txt_bit val)
    
45.   )
    
46.   (if (setq val (getreal (xdrx_prompt "\n字高<" #txt_height ">:" t)))
    
47.     (setq #txt_height val)
    
48.   )
    
49.   (xdrx_begin)
    
50.   (xdrx_sysvar_push '("dimzin" 0))
    
51.   (if (and
    
52.         (xdrx_initssget "\n选择多段线<退出>:")
    
53.         (setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))
    
54.       )
    
55.     (progn
    
56.       (xd::text:init 1)
    
57.       (mapcar
    
58.         '(lambda (x)
    
59.            (_process x)
    
60.          )
    
61.         (xdrx_pickset->ents ss)
    
62.       )
    
63.     )
    
64.   )
    
65.   (xdrx_sysvar_pop)
    
66.   (xdrx_end)
    
67.   (princ)
    
68. )
    

(defun c:XDTB_PLSegLen (/ _process val)<br />   (defun _process (e / segs inx g v #angle #length #midpoint p1)<br />     (setq segs (xdrx_polyline_numverts e))<br />     (setq inx 0)<br />     (repeat segs<br />       (if (setq g (xdrx_polyline_getlinesegat e inx t))<br />         (progn<br />           (xdge::getpropertyvalue g "length" "midpoint" "angle")<br />         )<br />         (progn<br />           (setq g (xdrx_polyline_getarcsegat e inx t))<br />           (xdge::getpropertyvalue g "length" "midpoint")<br />           (setq v (xdrx_curve_getfirstderiv e #midpoint)<br />                 #angle (xdrx_vector_angle v)<br />           )<br />         )<br />       )<br />       (setq #angle1 (xd::geom:angleformat #angle)<br />             p1 (trans (polar #midpoint (- #angle (/ pi 2.0))<br /> <br />                                (* 3 (/ #txt_height 2.0))<br />                         ) e 0<br />                  )<br />       )<br />       (if (xdrx_point_isinside p1 e)<br />         (setq p1 (trans (polar #midpoint (+ #angle (/ pi 2.0)) (/ #txt_height 2.0)) e 0))<br />       )<br />       (xdrx_text_make p1 (rtos #length 2 #txt_bit) (getvar "textstyle")<br />                       #txt_height #angle<br />       )<br />       (xd::text:setalignment (entlast) p1 "BC")<br />       (xd::text:adjust (entlast))<br />       (setq inx (1+ inx))<br />     )<br />     (xdge::free g)<br />   )<br />   (if (not #txt_height)<br />     (setq #txt_height 3.5)<br />   )<br />   (if (not #txt_bit)<br />     (setq #txt_bit 1)<br />   )<br />   (if (setq val (getint (xdrx_prompt "\n保留位数<" #txt_bit ">:" t)))<br />     (setq #txt_bit val)<br />   )<br />   (if (setq val (getreal (xdrx_prompt "\n字高<" #txt_height ">:" t)))<br />     (setq #txt_height val)<br />   )<br />   (xdrx_begin)<br />   (xdrx_sysvar_push '("dimzin" 0))<br />   (if (and<br />         (xdrx_initssget "\n选择多段线<退出>:")<br />         (setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))<br />       )<br />     (progn<br />       (xd::text:init 1)<br />       (mapcar<br />         '(lambda (x)<br />            (_process x)<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

shengmiren

看下是否能用上