把此贴删除了

gufeng

2. (defun c:lsp (/ ANG DD EN HH OS PT10 PT11 SHH STR_HH TXT TXTPT)
3. ;_求中点
4.   (defun xd-mid_point (p1 p2)
5.     (mapcar '(lambda (x) (/ x 2)) (mapcar '+ p1 p2))
6.   )
7.   (setvar "cmdecho" 0)
8.   (setq os (getvar "osmode"))
9.   (setvar "osmode" 0)
10.   (setq en (car (entsel "\n选取线: ")))
11.   (setq pt10 (cdr (assoc 10 (entget en))))
12.   (setq pt11 (cdr (assoc 11 (entget en))))
13.   (setq dd (distance pt10 pt11))
14.   (setq shh (getvar "textsize"))
15.   (princ (strcat "\n线段长度=" (rtos dd 2)))
16.   (setq str_hh (strcat "\n文字高度 <" (rtos shh 2) ">: "))
17.   (setq hh (getdist pt10 str_hh))
18.   (if (null hh)
19.     (setq hh shh)
20.   )
21.   (setq txt (getstring "\n文字内容:"))
22.   (setq ang (angle pt10 pt11))
23.   (setq txtpt (xd-mid_point pt10 pt11)) ;_得到文字的插入点，即直线的中点
24.   (command "text" "c" txtpt hh (* (/ ang pi) 180) txt)
25.   (setvar "osmode" os)
26.   (prin1)
27. )

(defun c:lsp (/ ANG DD EN HH OS PT10 PT11 SHH STR_HH TXT TXTPT) ;_求中点   (defun xd-mid_point (p1 p2)     (mapcar '(lambda (x) (/ x 2)) (mapcar '+ p1 p2))   )   (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 txtpt (xd-mid_point pt10 pt11)) ;_得到文字的插入点，即直线的中点   (command "text" "c" txtpt hh (* (/ ang pi) 180) txt)   (setvar "osmode" os)   (prin1) )