请求不规则图形偏移外框BUG修复(已解決)

ga619091

此源码是在任何不规则图形上做一个矩型外框
并且偏移15MM的外框只留15MM后的外框,原外框會删除
但现再有一个BUG是15MM外框做出来后,原外框会删除,但是只要移动图形或者旋转图形,原外框又会跑出来,有请高手能优化原码吗

start4444

    看一下

ga619091

start4444 发表于 2020-3-11 11:54
看一下

谢谢S大解决了我的困扰

999999

start4444 发表于 2020-3-11 11:54
看一下

大神您好，这个插件很好用，请问您那边可以帮忙增加一个偏移距离可以自己输入吗？输入后，可以带记忆的

白色微風1991

謝謝謝謝謝謝

llsheng_73

1. (defun xBox(s / x p a b lx);;选择集、图元(对象)表、图元(对象)包容盒
   
2.     (setq s(if(/=(type s)'pickset)(if(listp s)s(list s))(s2e s)))
   
3.     (while s
   
4.       (setq x(car s)s(cdr s)a nil b nil)
   
5.       (cond((=(setq lx(type x))'ename)(vla-getboundingbox(vlax-ename->vla-object x)'a'b))
   
6.            ((= lx'vla-object)(vla-getboundingbox x'a'b))
   
7.            ((and(= lx 'list)(not(VL-CATCH-ALL-ERROR-P(VL-CATCH-ALL-APPLY'vlax-3d-point x))))x))
   
8.       (if a(setq p(revappend(mapcar'vlax-safearray->list(list a b))p))
   
9.         (setq p(cons x p))))
   
10.     (boxofpts p))
    
11. (defun BOXofPtS(pt)
    
12.     (setq pt(mapcar'(lambda(x)(mapcar x pt))'(car cadr)))
    
13.     (mapcar'(lambda(y)(mapcar'(lambda(x)(apply y x))pt))'(min max)))
    
14. (defun s2e(s / n lst)(if(=(type s)'pickset)(repeat(setq n(sslength s))(setq n(1- n)lst(cons(ssname s n)lst)))))
    
15. 
    
16. (defun c:tt(/ d s box)
    
17.   (if(setq s(s2e(ssget '((0 . "circle,arc,ellipse,spline,line,*polyline")))))
    
18.     (setq box(xBox s)d(getreal"偏移距离")
    
19.           box(apply'command(cons"rectang"(mapcar'(lambda(X y)(mapcar'+ x y))box(list(list(- d)(- d))(list d d))))))))

(defun xBox(s / x p a b lx);;选择集、图元(对象)表、图元(对象)包容盒<br />     (setq s(if(/=(type s)'pickset)(if(listp s)s(list s))(s2e s)))<br />     (while s<br />       (setq x(car s)s(cdr s)a nil b nil)<br />       (cond((=(setq lx(type x))'ename)(vla-getboundingbox(vlax-ename->vla-object x)'a'b))<br />            ((= lx'vla-object)(vla-getboundingbox x'a'b))<br />            ((and(= lx 'list)(not(VL-CATCH-ALL-ERROR-P(VL-CATCH-ALL-APPLY'vlax-3d-point x))))x))<br />       (if a(setq p(revappend(mapcar'vlax-safearray->list(list a b))p))<br />         (setq p(cons x p))))<br />     (boxofpts p))<br /> (defun BOXofPtS(pt)<br />     (setq pt(mapcar'(lambda(x)(mapcar x pt))'(car cadr)))<br />     (mapcar'(lambda(y)(mapcar'(lambda(x)(apply y x))pt))'(min max)))<br /> (defun s2e(s / n lst)(if(=(type s)'pickset)(repeat(setq n(sslength s))(setq n(1- n)lst(cons(ssname s n)lst)))))<br /> <br /> (defun c:tt(/ d s box)<br />   (if(setq s(s2e(ssget '((0 . "circle,arc,ellipse,spline,line,*polyline")))))<br />     (setq box(xBox s)d(getreal"偏移距离")<br />           box(apply'command(cons"rectang"(mapcar'(lambda(X y)(mapcar'+ x y))box(list(list(- d)(- d))(list d d))))))))

llsheng_73

得到box后，根据偏移量直接修改box角点坐标，然后再画矩形