(/
本帖最后由 ZZXXQQ 于 2014-1-3 07:53 编辑(defun c:z(/ cm n1 p1 p2 s1 d1 d2 ang )
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0 )
(if (=(tblobjname "STYLE" "TSSD_Rein") nil) (progn
(entmake
(list
'(0 . "STYLE")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbTextStyleTableRecord")
'(2 . "TSSD_Rein")
'(70 . 0)
'(40 . 0)
'(41 . 0)
'(3 . "tssdeng.shx")
'(4 . "hztxt.shx")
)
)
))
(setq n1 (entsel "\n生成文字"))
(setq p0 (cadr n1))
(setq p1 (osnap p0 "nea"))
(setq ang1 (angle p1 p0))
(setq ang (- ang1 (/ pi 2)))
(if (and (> ang (+ (/ pi 2) 0.02)) (<= ang (+ (* pi 1.5) 0.02)))
(setq ang(- ang pi)))
(setq p2 (polar p1 ang1 200))
(entmake
(list
(cons 0 "TEXT")
'(100 . "AcDbEntity")
(cons 8 "TEXT-L")
(cons 100 "AcDbText")
(cons 10 p2)
(cons 40 300)
(cons 1 "2%%13218")
(cons 50 ang)
(cons 41 0.7)
(cons 7 "TSSD_Rein")
'(71 . 0)
'(72 . 4)
(cons 11 p2)
'(210 0.0 0.0 1.0)
'(100 . "AcDbText")
'(73 . 0)
)
)
(setvar "cmdecho" cm)
(princ)
) ZZXXQQ 发表于 2014-1-1 08:05 static/image/common/back.gif
谢谢版主，不过这个生成的字为什么是垂直于线的？ 11楼改了。 ZZXXQQ 发表于 2014-1-3 07:53 static/image/common/back.gif
11楼改了。
版主，想请教一下。
当光标偏上或偏下时，获取到的最近点有什么区别？ ZZXXQQ 发表于 2014-1-3 07:53 static/image/common/back.gif
11楼改了。
多谢帮忙，不过现在的角度还是有点问题，正确的应该是左侧这个，程序生成的是右侧这个 不错的程序，顶一下 希望能框选生成相同的文字
页:
1
[2]