这是你上次帮我改好的代码谢谢
(defun c:cd (/)
(setvar "cmdecho" 1)
(setq a1 (getpoint "\n第一点")
a2 (getpoint "\n第二点")
a3 (getstring "\n输入管径")
a4 (getstring "\n输入坡度")
ang (* (/ (angle a1 a2) pi) 180)
dist (rtos (/ (distance a1 a2) 1000) 2 1)
dist1 (strcat "Dn=" a3 " L=" dist "m" " i=" a4)
a5 (getpoint "文字插入点")
)
(command "text" a5 "350" ang dist1)
(princ)
)
流浪水手,我真的很敬佩你的水平,我真是五体投地呀,你还帮我个忙,好吗,因为有时要画一下给排水图,但又不想用天正给排水,想用简单的方法来画就行啦,跟上面功能也差不多啦,有两方面的要求,一是我用line画出来的线想在中间加文字或字母（平行线的方向走）,并且会根据文字或字母所占长度自动的断开所占位置的直线,操作的方法是只要鼠标点在直线的那个位置，文字或字母就会在该位置产生上面的效果（包括斜线也是一样），并提示字高为多少．第二个比较简单的了，就是在直线上面加文字，按提示输入文字，文字在线的上面和平行线的方向（可以像上面那道lisp一样定义平行线的点）,希望这两方面的要求能在一个lisp中完成，流浪水手，我给你跪下来，我真的需要这种功能，如果要钱的话我也可以给你几百块的，拜托你啦