[日积月累]：一个简单的文字竖排，仅对中文

eachy

2. 
   
3. ;;一个简单的文字竖排，仅对中文   eachy [[url]www.xdcad.net[/url]] 2005.11.7
   
4. (defun c:tt (/ e el obj str p p1)
   
5.   (while
   
6.     (and (if (not e)
   
7.            (setq e (car (entsel)))
   
8.            e
   
9.          )
   
10.          (setq el (entget e))
    
11.          (setq obj (vlax-ename->vla-object e)
    
12.                str (vla-get-textstring obj)
    
13.          )
    
14.          (if (> (strlen str) 2)
    
15.            (progn
    
16.              (entmod (subst (cons 1 (substr str 1 2)) (assoc 1 el) el))
    
17.              (setq p  (polar (cdr (assoc 10 el))
    
18.                              (- (/ pi 2.))
    
19.                              (* 1.3 (cdr (assoc 40 el)))
    
20.                       )
    
21.                    el (subst (cons 10 p) (assoc 10 el) el)
    
22.              )
    
23.              (entmake (subst (cons 1 (substr str 3)) (assoc 1 el) el))
    
24.              (if (setq p1 (getpoint "\npoint: "))
    
25.                (progn
    
26.                  (setq p1 (list (car p) (cadr p1) 0.))
    
27.                  (vla-put-insertionpoint
    
28.                    (vlax-ename->vla-object (entlast))
    
29.                    (vlax-3d-point p1)
    
30.                  )
    
31.                  t
    
32.                )
    
33.              )
    
34.              (setq e (entlast))
    
35.            )
    
36.          )
    
37.     )
    
38.   )
    
39.   (princ)
    
40. )

<br /> ;;一个简单的文字竖排，仅对中文   eachy [[url]www.xdcad.net[/url]] 2005.11.7<br /> (defun c:tt (/ e el obj str p p1)<br />   (while<br />     (and (if (not e)<br />            (setq e (car (entsel)))<br />            e<br />          )<br />          (setq el (entget e))<br />          (setq obj (vlax-ename->vla-object e)<br />                str (vla-get-textstring obj)<br />          )<br />          (if (> (strlen str) 2)<br />            (progn<br />              (entmod (subst (cons 1 (substr str 1 2)) (assoc 1 el) el))<br />              (setq p  (polar (cdr (assoc 10 el))<br />                              (- (/ pi 2.))<br />                              (* 1.3 (cdr (assoc 40 el)))<br />                       )<br />                    el (subst (cons 10 p) (assoc 10 el) el)<br />              )<br />              (entmake (subst (cons 1 (substr str 3)) (assoc 1 el) el))<br />              (if (setq p1 (getpoint "\npoint: "))<br />                (progn<br />                  (setq p1 (list (car p) (cadr p1) 0.))<br />                  (vla-put-insertionpoint<br />                    (vlax-ename->vla-object (entlast))<br />                    (vlax-3d-point p1)<br />                  )<br />                  t<br />                )<br />              )<br />              (setq e (entlast))<br />            )<br />          )<br />     )<br />   )<br />   (princ)<br /> )

xyp1964

字全都聚到一起了？！

yuer0103

试过了，有点小意思，但可惜对我没什么实用价值。还是感谢ea兄了！

huiling6868

用不起来.

gogozb

谢谢，写公路有用。