各位老师看看。

香田里浪人

ymcui 发表于 2015-6-3 13:49

推广应用：1.把“温室”改为输入需要的文字，2.字高固定改为可选择。冒昧修改，敬请ymcui君见谅。
(defun c:tt ()
(command "layer" "M" "标注" "C" "6" "" "LT" "CONTINUOUS" "" "");设置一个标注图层
  (setvar "cmdecho" 0)
  (defun ebox (e / pa pb)
        (Vlax-Invoke-Method (Vlax-Ename->Vla-Object e ) 'GetBoundingBox 'pa 'pb )
        (setq pa (trans (vlax-safearray->list pa) 0 1)
                  pb (trans (vlax-safearray->list pb) 0 1)
        )
        (list pa pb)
  )
(setq TextHeight (getdist "\n请输入文字高度:(默认0.8)"))
    (if (= TextHeight nil) (setq TextHeight 0.8))
(setq qz (getstring "\n请输入需要的文字: "))
(while
  (setq ss (ssget":s" '((0 . "LWPOLYLINE"))))
  (repeat (setq i (sslength ss))
        (setq e (ssname ss (setq i (1- i)))
                  box (ebox e)
                  P3 (mapcar '* '(0.5 0.5 0.5)(mapcar '+ (car Box) (cadr Box)))
        )
        (vl-cmdf "-text" "j" "M" p3 TextHeight 0 qz)
  )
  (setvar "cmdecho" 1)
  (PRINC)
)
)

ymcui

香田里浪人 发表于 2015-6-6 12:04
推广应用：1.把“温室”改为输入需要的文字，2.字高固定改为可选择。冒昧修改，敬请ymcui君见谅。
(defu ...

这样是不是要好点

2. (defun c:tt ()
   
3. (command "layer" "M" "标注" "C" "6" "" "LT" "CONTINUOUS" "" "");设置一个标注图层
   
4.   (setvar "cmdecho" 0)
   
5.   (defun ebox (e / pa pb)
   
6.         (Vlax-Invoke-Method (Vlax-Ename->Vla-Object e ) 'GetBoundingBox 'pa 'pb )
   
7.         (setq pa (trans (vlax-safearray->list pa) 0 1)
   
8.                   pb (trans (vlax-safearray->list pb) 0 1)
   
9.         )
   
10.         (list pa pb)
    
11.   )
    
12. ;(setq TextHeight (getdist "\n请输入文字高度:(默认0.8)"))
    
13. ;    (if (= TextHeight nil) (setq TextHeight 0.8))
    
14. (setq qz (getdist "\n请输入需要的文字:<温室> "))
    
15. (if (= qz nil) (setq qz "温室"))
    
16. (while
    
17.   (setq ss (ssget":s" '((0 . "LWPOLYLINE"))))
    
18.   (repeat (setq i (sslength ss))
    
19.         (setq e (ssname ss (setq i (1- i)))
    
20.               box (ebox e)
    
21.               p1 (car box)
    
22.         p2 (cadr box)
    
23.         p3 (list (car p2) (cadr p1))
    
24.               P4 (mapcar '* '(0.5 0.5 0.5)(mapcar '+ p1 p2))
    
25.               TextHeight (* 0.5 (min (distance p1 p3) (distance p2 p3)))
    
26.         )
    
27.         (vl-cmdf "-text" "j" "M" p4 TextHeight 0 qz)
    
28.   )
    
29.   (setvar "cmdecho" 1)
    
30.   (PRINC)
    
31. )
    
32. )

(defun c:tt ()<br /> (command "layer" "M" "标注" "C" "6" "" "LT" "CONTINUOUS" "" "");设置一个标注图层<br />   (setvar "cmdecho" 0)<br />   (defun ebox (e / pa pb)<br />         (Vlax-Invoke-Method (Vlax-Ename->Vla-Object e ) 'GetBoundingBox 'pa 'pb )<br />         (setq pa (trans (vlax-safearray->list pa) 0 1)<br />                   pb (trans (vlax-safearray->list pb) 0 1)<br />         )<br />         (list pa pb)<br />   )<br /> ;(setq TextHeight (getdist "\n请输入文字高度:(默认0.8)"))<br /> ;    (if (= TextHeight nil) (setq TextHeight 0.8))<br /> (setq qz (getdist "\n请输入需要的文字:<温室> "))<br /> (if (= qz nil) (setq qz "温室"))<br /> (while <br />   (setq ss (ssget":s" '((0 . "LWPOLYLINE"))))<br />   (repeat (setq i (sslength ss))<br />         (setq e (ssname ss (setq i (1- i)))<br />               box (ebox e)<br />               p1 (car box)<br />         p2 (cadr box)<br />         p3 (list (car p2) (cadr p1))<br />               P4 (mapcar '* '(0.5 0.5 0.5)(mapcar '+ p1 p2))<br />               TextHeight (* 0.5 (min (distance p1 p3) (distance p2 p3)))<br />         )<br />         (vl-cmdf "-text" "j" "M" p4 TextHeight 0 qz)<br />   )<br />   (setvar "cmdecho" 1)<br />   (PRINC)<br /> )<br /> )

香田里浪人

ymcui 发表于 2015-6-6 13:56
这样是不是要好点

很好，谢谢。

香田里浪人

ymcui 发表于 2015-6-6 13:56
这样是不是要好点

第13行应为：(setq qz (getstring "\n请输入需要的文字<温室>: "))
(if (= qz nil) (setq qz "温室"))