求一个批量图框加外框的lisp

wxa123wl

求一个批量图框加外框的lisp，，平时工作中，图纸的图框的都是块，当图框种类多种批量打印的时候就比较麻烦，所以现在求一个以批量块加矩形外框的lsp，，用图层答应就没有这个图框种类多的问题了，

q3_2006

2. (defun c:tt ( / box e i ss)
   
3. (defun ebox (e / pa pb)
   
4.          (Vlax-Invoke-Method (Vlax-Ename->Vla-Object e ) 'GetBoundingBox 'pa 'pb )
   
5.              (setq pa (trans (vlax-safearray->list pa) 0 1)
   
6.                    pb (trans (vlax-safearray->list pb) 0 1)
   
7.              )
   
8.              (list pa pb)
   
9. )
   
10.         (setq ss (ssget '((0 . "INSERT"))))
    
11.         (repeat (setq i (sslength ss))
    
12.                 (setq e (ssname ss (setq i (1- i)))
    
13.                         box (ebox e)
    
14.                 )
    
15.                 (vl-cmdf "rectang" (car box) (cadr box))
    
16.         )
    
17. )

(defun c:tt ( / box e i ss)<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 '((0 . "INSERT"))))<br />         (repeat (setq i (sslength ss))<br />                 (setq e (ssname ss (setq i (1- i)))<br />                         box (ebox e)<br />                 )<br />                 (vl-cmdf "rectang" (car box) (cadr box))<br />         )<br /> )

liuxu042

付费开发可以联系我，qq：379539186

wxa123wl

q3_2006 发表于 2014-5-21 14:28

厉害呀！好多函数我都还看东东现在，不过我会努力的，，

yiqisese

在也不用苦逼的一个个去加了

yoyoho

感谢 q3_2006 分享程序!

石井鱼

好用，感谢分享

zcl273

2楼威武..........

jayvscxx

2楼是好人，感谢分享啊。

wenyong_20000

q3_2006 发表于 2014-5-20 12:51

谢谢了啊，我找这个程序黑久了，还在百度发帖。谢谢大侠啊