wxa123wl 发表于 2014-5-20 12:51:10

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

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

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

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

liuxu042 发表于 2014-5-21 10:26:58

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

wxa123wl 发表于 2014-5-21 16:26:49

q3_2006 发表于 2014-5-21 14:28 static/image/common/back.gif


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

yiqisese 发表于 2014-6-11 18:28:27

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

yoyoho 发表于 2014-6-18 18:50:27

感谢 q3_2006 分享程序!

石井鱼 发表于 2014-7-14 10:58:34

好用，感谢分享

zcl273 发表于 2014-9-6 08:36:19

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

jayvscxx 发表于 2014-10-11 09:56:08

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

wenyong_20000 发表于 2014-10-29 18:45:37

q3_2006 发表于 2014-5-20 12:51 static/image/common/back.gif


谢谢了啊，我找这个程序黑久了，还在百度发帖。谢谢大侠啊
页: [1] 2 3
查看完整版本: 求一个批量图框加外框的lisp