如何改进，生成线上线下文字？

ZZXXQQ

2. (defun c:z(/ cm n1 p1 p2 s1 d1 d2 ang )
   
3.   (setq cm (getvar "cmdecho"))
   
4.   (setvar "cmdecho" 0 )
   
5.   (if (=(tblobjname "STYLE" "TSSD_Rein") nil) (progn
   
6.    (entmake
   
7.     (list
   
8.      '(0 . "STYLE")
   
9.      '(100 . "AcDbSymbolTableRecord")
   
10.      '(100 . "AcDbTextStyleTableRecord")
    
11.      '(2 . "TSSD_Rein")
    
12.      '(70 . 0)
    
13.      '(40 . 0)
    
14.      '(41 . 0)
    
15.      '(3 . "tssdeng.shx")
    
16.      '(4 . "hztxt.shx")
    
17.     )
    
18.    )
    
19.   ))
    
20.   (setq n1 (entsel "\n生成文字"))
    
21.   (setq p0 (cadr n1))
    
22.   (setq p1 (osnap p0 "nea"))
    
23.   (setq ang1 (angle p1 p0))
    
24.   (setq ang (- ang1 (/ pi 2)))
    
25.   (if (and (> ang (+ (/ pi 2) 0.02)) (<= ang (+ (* pi 1.5) 0.02)))
    
26.   (setq ang(- ang pi)))
    
27.   (setq p2 (polar p1 ang1 200))
    
28.   (entmake
    
29.    (list
    
30.     (cons 0 "TEXT")
    
31.     '(100 . "AcDbEntity")
    
32.     (cons 8 "TEXT-L")
    
33.     (cons 100 "AcDbText")
    
34.     (cons 10 p2)
    
35.     (cons 40 300)
    
36.     (cons 1 "2%%13218")
    
37.     (cons 50 ang)
    
38.     (cons 41 0.7)
    
39.     (cons 7 "TSSD_Rein")
    
40.     '(71 . 0)
    
41.     '(72 . 4)
    
42.     (cons 11 p2)
    
43.     '(210 0.0 0.0 1.0)
    
44.     '(100 . "AcDbText")
    
45.     '(73 . 0)
    
46.    )
    
47.   )
    
48. (setvar "cmdecho" cm)
    
49. (princ)
    
50. )

(defun c:z(/ cm n1 p1 p2 s1 d1 d2 ang )<br />   (setq cm (getvar "cmdecho"))<br />   (setvar "cmdecho" 0 )<br />   (if (=(tblobjname "STYLE" "TSSD_Rein") nil) (progn<br />    (entmake<br />     (list<br />      '(0 . "STYLE") <br />      '(100 . "AcDbSymbolTableRecord") <br />      '(100 . "AcDbTextStyleTableRecord") <br />      '(2 . "TSSD_Rein")<br />      '(70 . 0)<br />      '(40 . 0)<br />      '(41 . 0) <br />      '(3 . "tssdeng.shx")<br />      '(4 . "hztxt.shx")<br />     )<br />    )<br />   ))<br />   (setq n1 (entsel "\n生成文字"))<br />   (setq p0 (cadr n1))<br />   (setq p1 (osnap p0 "nea"))<br />   (setq ang1 (angle p1 p0))<br />   (setq ang (- ang1 (/ pi 2)))<br />   (if (and (> ang (+ (/ pi 2) 0.02)) (<= ang (+ (* pi 1.5) 0.02)))<br />   (setq ang(- ang pi)))<br />   (setq p2 (polar p1 ang1 200))<br />   (entmake<br />    (list<br />     (cons 0 "TEXT")<br />     '(100 . "AcDbEntity")<br />     (cons 8 "TEXT-L")<br />     (cons 100 "AcDbText")<br />     (cons 10 p2)<br />     (cons 40 300)<br />     (cons 1 "2%%13218")<br />     (cons 50 ang)<br />     (cons 41 0.7)<br />     (cons 7 "TSSD_Rein")<br />     '(71 . 0)<br />     '(72 . 4)<br />     (cons 11 p2)<br />     '(210 0.0 0.0 1.0)<br />     '(100 . "AcDbText")<br />     '(73 . 0)<br />    )<br />   )<br /> (setvar "cmdecho" cm)<br /> (princ)<br /> )

adc

ZZXXQQ 发表于 2014-1-1 08:05

谢谢版主，不过这个生成的字为什么是垂直于线的？

ZZXXQQ

11楼改了。

ou_y_x

ZZXXQQ 发表于 2014-1-3 07:53
11楼改了。

版主，想请教一下。
当光标偏上或偏下时，获取到的最近点有什么区别？

adc

ZZXXQQ 发表于 2014-1-3 07:53
11楼改了。

多谢帮忙，不过现在的角度还是有点问题，正确的应该是左侧这个，程序生成的是右侧这个

bai2000

不错的程序，顶一下 希望能框选生成相同的文字