AutoLISP以直线为基线添加文字

最新推荐文章于 2021-09-20 15:36:47 发布

weixin_33904756

最新推荐文章于 2021-09-20 15:36:47 发布

阅读量639

点赞数

本文介绍了一段AutoLISP代码，该代码能够在CAD中沿直线等距添加文字。通过获取直线两端点坐标，计算直线长度及角度，并按指定间隔在直线上添加文字。

AutoLISP以直线为基线添加文字，代码如下。

(defun c:test()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq en (car (entsel "\n选取线：")))
(setq pt10 (cdr (assoc 10 (entget en))))
(setq pt11 (cdr (assoc 11 (entget en))))
(setq dd (distance pt10 pt11))
(setq shh (getvar "textsize"))
(princ (strcat "\n线段长度=：" (rtos dd 2)))
(setq str_hh (strcat "\n文字高度<" (rtos shh 2) ">:"))
(setq hh (getdist pt10 str_hh))
(if (null hh) (setq hh shh))
(setq txt (getstring "\n文字内容："))
(setq ang (angle pt10 pt11))
(setq i 1 txtpt pt10)
(setq nn (1- (strlen txt)))
(repeat (1+ nn)
    (setq stxt (substr txt i 1))
    (command "text" "c" txtpt hh (* (/ ang pi) 180) stxt)
    (setq txtpt (polar txtpt ang (/ dd nn)))
    (setq i (1+ i))
    )
(setvar "osmode" os)
)