各位老师看看。

我还有梦想

  由于工作的原因，需要在每个画好的闭合区域内有温室字样，如果一个一个复制粘贴的话，速度跟不上来。求方法。

ymcui

2. (defun c:tt ()
   
3. (setvar "cmdecho" 0)
   
4.   (setq ss (ssget":s" '((0 . "LWPOLYLINE"))))
   
5.                 (repeat (setq i (sslength ss))
   
6.                                 (setq e (ssname ss (setq i (1- i)))
   
7.                                                 box (ebox e)
   
8.                                                 P1 (car Box)
   
9.                                                 P2 (cadr Box)
   
10.                                                 P3 (mid p1 p2)
    
11.                                 )
    
12.                                 (vl-cmdf "-text" "j" "M" p3 5 0 "温室")
    
13.                         )
    
14.   (setvar "cmdecho" 1)
    
15.   (PRINC)
    
16. )

(defun c:tt ()<br /> (setvar "cmdecho" 0)<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 (mid p1 p2)<br />                                 )<br />                                 (vl-cmdf "-text" "j" "M" p3 5 0 "温室")<br />                         )<br />   (setvar "cmdecho" 1)<br />   (PRINC)<br /> )

ymcui

2. (defun ebox (e / pa pb)
   
3.                 (Vlax-Invoke-Method (Vlax-Ename->Vla-Object e ) 'GetBoundingBox 'pa 'pb )
   
4.                         (setq pa (trans (vlax-safearray->list pa) 0 1)
   
5.                                 pb (trans (vlax-safearray->list pb) 0 1)
   
6.                         )
   
7.                         (list pa pb)
   
8. )
   

(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 />

这个是在网上找的.记不起是在那里找的了.

ymcui

再上个图               

我还有梦想

谢谢大神。我运行一下。

我还有梦想

ymcui 发表于 2015-6-2 17:27
再上个图

大神，这个是带属性的么（跟随图层的）？

我还有梦想

ymcui 发表于 2015-6-2 17:21

老师，参数类型错误: lselsetp nil。

ymcui

2. (defun mid (p1 p2) (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p2)))

(defun mid (p1 p2) (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p2)))

我还有梦想

ymcui 发表于 2015-6-3 08:09

老师，给个完整的，谢谢老师。

ymcui

2. (defun c:tt ()
   
3.   (setvar "cmdecho" 0)
   
4.   (defun ebox (e / pa pb)
   
5.         (Vlax-Invoke-Method (Vlax-Ename->Vla-Object e ) 'GetBoundingBox 'pa 'pb )
   
6.         (setq pa (trans (vlax-safearray->list pa) 0 1)
   
7.                   pb (trans (vlax-safearray->list pb) 0 1)
   
8.         )
   
9.         (list pa pb)
   
10.   )
    
11.   (setq ss (ssget":s" '((0 . "LWPOLYLINE"))))
    
12.   (repeat (setq i (sslength ss))
    
13.         (setq e (ssname ss (setq i (1- i)))
    
14.                   box (ebox e)
    
15.                   P3 (mapcar '* '(0.5 0.5 0.5)(mapcar '+ (car Box) (cadr Box)))
    
16.         )
    
17.         (vl-cmdf "-text" "j" "M" p3 5 0 "温室")
    
18.   )
    
19.   (setvar "cmdecho" 1)
    
20.   (PRINC)
    
21. )

(defun c:tt ()<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 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 />                   P3 (mapcar '* '(0.5 0.5 0.5)(mapcar '+ (car Box) (cadr Box)))<br />         )<br />         (vl-cmdf "-text" "j" "M" p3 5 0 "温室")<br />   )<br />   (setvar "cmdecho" 1)<br />   (PRINC)<br /> )