ga619091 发表于 2020-3-11 10:15:00

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

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


**** Hidden Message *****

start4444 发表于 2020-3-11 11:54:00

看一下


ga619091 发表于 2020-3-11 14:00:00


谢谢S大解决了我的困扰

999999 发表于 2022-3-22 23:22:00


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

白色微風1991 发表于 2022-7-18 17:26:00

謝謝謝謝謝謝

llsheng_73 发表于 2022-7-18 17:50:00

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

llsheng_73 发表于 2022-7-18 17:52:00

得到box后，根据偏移量直接修改box角点坐标，然后再画矩形
页: [1]
查看完整版本: 请求不规则图形偏移外框BUG修复(已解決)