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

wxa123wl · 发表于 2014-5-20 12:54:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

zxq0220 · 发表于 2014-5-29 20:26:21

本帖最后由 zxq0220 于 2014-7-28 20:25 编辑

;块加外框
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "INSERT")))) (progn
(repeat (setq n (sslength ss))
(setq en (ssname (setq n (1- n))))
(vla-getboundingbox (vlax-ename->vla-object en) 'p1 'p2)
(setq p1 (vlax-safearray->list p1) p2 (vlax-safearray->list p2))
(command "_.RECTANG" p1 p2)
)
))
(setvar "CMDECHO" 1)
(princ)
)

wxa123wl · 发表于 2014-5-30 13:02:08

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

cheng714951554 · 发表于 2014-7-28 19:05:34

怎么不行啊！

277860153 · 发表于 2019-4-29 11:01:44

我的图框不是在原点位置，这时候加的生成的矩形框就不合适了

kmliro_2017 · 发表于 2019-5-3 06:59:03

谢谢分享！！！！！

账号		自动登录	找回密码
密码			立即注册

[编程申请] 求一个批量图框加外框的lisp

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评