在UCS创建文字，文字方向随UCS X轴的示例代码

Lispboy

1. (defun c:ptlev ( / ins ocs pnt )
   
2.     (while
   
3.         (setq pnt (getpoint "\nPick point <exit>: ")) ;; UCS point
   
4.         (setq ins (cons (+ (car pnt) 0.1) (cdr pnt))  ;; UCS Text insertion point
   
5.               pnt (trans pnt 1 0) ;; WCS point
   
6.               ocs (trans '(0.0 0.0 1.0) 1 0 t) ;; OCS normal vector
   
7.         )
   
8.         (entmake
   
9.             (list
   
10.                '(00 . "TEXT")  ;; Entity type
    
11.                 (cons 01 (rtos (caddr pnt))) ;; Z-coordinate of WCS point
    
12.                 (cons 07 (if (tblsearch "style" "arialn") "arialn" (getvar 'textstyle))) ;; Text Style
    
13.                 (cons 10 (trans ins 1 ocs)) ;; OCS insertion point
    
14.                 (cons 50 (angle '(0.0 0.0) (trans (getvar 'ucsxdir) 0 ocs t))) ;; Rotation to match UCS
    
15.                '(40 . 0.2)     ;; Text Height
    
16.                '(62 . 256)     ;; Colour set to ByLayer
    
17.                 (cons 210 ocs) ;; Normal vector of OCS plane
    
18.             )
    
19.         )
    
20.         (entmake
    
21.             (list
    
22.                '(00 . "POINT") ;; Entity type
    
23.                '(62 . 256)     ;; Colour set to ByLayer
    
24.                 (cons 010 pnt) ;; WCS point
    
25.                 (cons 210 ocs) ;; For when PDMODE /= 0
    
26.             )
    
27.         )
    
28.     )
    
29.     (princ)
    
30. )
    

(defun c:ptlev ( / ins ocs pnt )<br />     (while<br />         (setq pnt (getpoint "\nPick point <exit>: ")) ;; UCS point<br />         (setq ins (cons (+ (car pnt) 0.1) (cdr pnt))  ;; UCS Text insertion point<br />               pnt (trans pnt 1 0) ;; WCS point<br />               ocs (trans '(0.0 0.0 1.0) 1 0 t) ;; OCS normal vector<br />         )<br />         (entmake<br />             (list<br />                '(00 . "TEXT")  ;; Entity type<br />                 (cons 01 (rtos (caddr pnt))) ;; Z-coordinate of WCS point<br />                 (cons 07 (if (tblsearch "style" "arialn") "arialn" (getvar 'textstyle))) ;; Text Style<br />                 (cons 10 (trans ins 1 ocs)) ;; OCS insertion point<br />                 (cons 50 (angle '(0.0 0.0) (trans (getvar 'ucsxdir) 0 ocs t))) ;; Rotation to match UCS<br />                '(40 . 0.2)     ;; Text Height<br />                '(62 . 256)     ;; Colour set to ByLayer<br />                 (cons 210 ocs) ;; Normal vector of OCS plane<br />             )<br />         )<br />         (entmake<br />             (list<br />                '(00 . "POINT") ;; Entity type<br />                '(62 . 256)     ;; Colour set to ByLayer<br />                 (cons 010 pnt) ;; WCS point<br />                 (cons 210 ocs) ;; For when PDMODE /= 0<br />             )<br />         )<br />     )<br />     (princ)<br /> )<br />

/db_自贡黄明儒_

这个不错，赞一个

xvjiex

感谢分享在UCS创建文字，文字方向随UCS X轴的示例代码