带孤岛判断的批量偏移

q3_2006 · 发表于 2013-10-28 18:00:01

st788796 发表于 2013-10-28 17:49
一层的就不用写那么复杂了
分好组，组内最大外偏，里面都是内偏
要少N多判断，效率高很多了

一定有奇偶判断的。。因为最里面一层。。。不一定内偏哟。。。

q3_2006 · 发表于 2013-10-28 18:03:18

q3_2006 发表于 2013-10-28 18:00
一定有奇偶判断的。。因为最里面一层。。。不一定内偏哟。。。

填充偏移方法最好。。因为所有的岛一定是向外偏。。这个是一定的。。。

st788796 · 发表于 2013-10-28 18:07:44

本帖最后由 st788796 于 2013-10-28 18:09 编辑

q3_2006 发表于 2013-10-28 18:03
填充偏移方法最好。。因为所有的岛一定是向外偏。。这个是一定的。。。

填充还有偏移？要好好看看了，如果这样就简单了，填充生成边界即可，只单独处理最外的

rjtiantian · 发表于 2013-10-28 23:27:28

我就看看，我不说话

守仁格竹GM · 发表于 2013-10-29 08:14:56

学习学习

st788796 · 发表于 2013-10-29 08:38:16

本帖最后由 st788796 于 2013-10-29 08:55 编辑

q3_2006 发表于 2013-10-28 16:31
这是E大的。。处理得很好。。。

这个里面没有交叉情况，只需要用 Xdrx_curve_intersect 判断，不需要 CurveInCurve 函数的，下面是修改后的程序

(defun c:tt (/ OffsetCurve curveInCurve GroupToOne d ss el lst)
(defun OffsetCurve (e d / lastent)
(setq lastent (entlast))
(vl-catch-all-apply
'(lambda () (vla-offset (vlax-ename->vla-object e) d))
) ;_防止间隙过小
(if (not (equal (entlast) lastent))
(xdrx_setpropertyvalue (entlast) "Color" 4)
)
)
;;批量处理时分组
(defun GroupToOne (lst / ll tf)
(setq ll (list (list (car lst))))
(while (setq lst (cdr lst))
(setq ll
(mapcar '(lambda (x / l)
(if (xdrx_curve_intersect (car lst) (last x))
(setq l (cons (car lst) x)
tf t
)
)
(if l
l
x
)
)
ll
)
)
(if (not tf)
(setq ll (cons (list (car lst)) ll))
)
(setq tf nil)
)
ll
)
(if (and (or (setq
d (getdist (strcat "\nSpace dist<"
(rtos (getvar "offsetdist") 2 3)
">: "
)
)
)
(and (or (null d) (minusp (getvar "offsetdist")))
(setq d 1.5)
)
(setq d (getvar "offsetdist"))
)
(setvar "offsetdist" d)
(setq ss (ssget '((-4 . "<or")
(0 . "circle")
(0 . "*polyline")
(-4 . "&=")
(70 . 1)
(-4 . "or>")
)
)
)
)
(progn
(XD::Begin)
(xdrx_document_ucsoff)
;;(xdrx_curve_removedup ss) ;_消重
(setq el (xdrx_pickset->ents ss))
(mapcar '(lambda (e)
(if (= (xdrx_getpropertyvalue e "IsA") "AcDbPolyline")
(progn
;;(xdrx_polyline_compress e) ;_消除重点
(and (minusp (apply 'xdrx_points_area
(xdrx_entity_getstretchpoint e)
)
)
(xdrx_curve_reverse e) ;_统一逆时针
)
)
)
)
el
)
(setq el (vl-sort el
'(lambda (e1 e2)
(> (car (xdrx_getarea e1))
(car (xdrx_getarea e2))
)
)
) ;_按面积大小排序
lst (GroupToOne el)
)
;;(xdrx_undostart)
(mapcar
'(lambda (x / b c tf l ll)
(cond
((= (length x) 1)
(OffsetCurve (car x) d)
)
((= (length x) 2)
(OffsetCurve (car x) (- d))
(OffsetCurve (cadr x) d)
)
(t
(OffsetCurve (last x) d)
(while x
(setq c (car x)
b (cdr x)
)
(while b
(if (xdrx_curve_intersect c (car b))
(setq l (cons c l))
)
(setq b (cdr b))
)
(setq x (cdr x)
ll (cons l ll)
l nil
)
) ;_组内是面积由小到大
(mapcar '(lambda (a)
(if (zerop (rem (1- (length a)) 2))
(OffsetCurve (last a) (- d))
(OffsetCurve (last a) d)
)
)
(vl-remove nil ll)
)
) ;_ t分组后由内向外
) ;_end cond
) ;_ end lambda
lst
) ;_mapcar
;;(xdrx_undoend)
(xdrx_document_ucson)
(XD::End)
)
)
(princ)
)

(defun c:tt (/ OffsetCurve curveInCurve GroupToOne d ss el lst) 
  (defun OffsetCurve (e d / lastent) 
    (setq lastent (entlast)) 
    (vl-catch-all-apply 
      '(lambda () (vla-offset (vlax-ename->vla-object e) d)) 
    ) ;_防止间隙过小 
    (if (not (equal (entlast) lastent)) 
      (xdrx_setpropertyvalue (entlast) "Color" 4) 
    ) 
  ) 
  ;;批量处理时分组 
  (defun GroupToOne (lst / ll tf) 
    (setq ll (list (list (car lst)))) 
    (while (setq lst (cdr lst)) 
      (setq ll 
      (mapcar '(lambda (x / l) 
   (if (xdrx_curve_intersect (car lst) (last x)) 
     (setq l  (cons (car lst) x) 
    tf t 
     ) 
   ) 
   (if l 
     l 
     x 
   ) 
        ) 
       ll 
      ) 
      ) 
      (if (not tf) 
 (setq ll (cons (list (car lst)) ll)) 
      ) 
      (setq tf nil) 
    ) 
    ll 
  ) 
  (if (and (or (setq 
   d (getdist (strcat "\nSpace dist<" 
        (rtos (getvar "offsetdist") 2 3) 
        ">: " 
       ) 
     ) 
        ) 
        (and (or (null d) (minusp (getvar "offsetdist"))) 
      (setq d 1.5) 
        ) 
        (setq d (getvar "offsetdist")) 
    ) 
    (setvar "offsetdist" d) 
    (setq ss (ssget '((-4 . "<or") 
        (0 . "circle") 
        (0 . "*polyline") 
        (-4 . "&=") 
        (70 . 1) 
        (-4 . "or>") 
       ) 
      ) 
    ) 
      ) 
    (progn 
      (XD::Begin) 
      (xdrx_document_ucsoff) 
      ;;(xdrx_curve_removedup ss) ;_消重 
      (setq el (xdrx_pickset->ents ss)) 
      (mapcar '(lambda (e) 
   (if (= (xdrx_getpropertyvalue e "IsA") "AcDbPolyline") 
     (progn 
       ;;(xdrx_polyline_compress e) ;_消除重点 
       (and (minusp (apply 'xdrx_points_area 
      (xdrx_entity_getstretchpoint e) 
      ) 
     ) 
     (xdrx_curve_reverse e) ;_统一逆时针 
       ) 
     ) 
   ) 
        ) 
       el 
      ) 
      (setq el (vl-sort el 
    '(lambda (e1 e2) 
       (> (car (xdrx_getarea e1)) 
          (car (xdrx_getarea e2)) 
       ) 
     ) 
  ) ;_按面积大小排序 
     lst (GroupToOne el) 
      ) 
      ;;(xdrx_undostart) 
      (mapcar 
 '(lambda (x / b c tf l ll) 
    (cond 
      ((= (length x) 1) 
       (OffsetCurve (car x) d) 
      ) 
      ((= (length x) 2) 
       (OffsetCurve (car x) (- d)) 
       (OffsetCurve (cadr x) d) 
      ) 
      (t 
        (OffsetCurve (last x) d) 
        (while x 
   (setq c (car x) 
         b (cdr x) 
   ) 
   (while b 
     (if (xdrx_curve_intersect c (car b)) 
       (setq l (cons c l)) 
     ) 
     (setq b (cdr b)) 
   ) 
   (setq x  (cdr x) 
         ll (cons l ll) 
         l  nil 
   ) 
        ) ;_组内是面积由小到大 
        (mapcar '(lambda (a) 
     (if (zerop (rem (1- (length a)) 2)) 
       (OffsetCurve (last a) (- d)) 
       (OffsetCurve (last a) d) 
     ) 
   ) 
         (vl-remove nil ll) 
        ) 
      ) ;_ t分组后由内向外 
    ) ;_end cond 
  ) ;_ end lambda 
 lst 
      ) ;_mapcar 
      ;;(xdrx_undoend) 
      (xdrx_document_ucson) 
      (XD::End) 
    ) 
  ) 
  (princ) 
)

偏移部分仅直线型 PLINE 可以用 api

(defun OffsetCurve (e d / lastent)
(setq lastent (entlast))
(if (and (= (xdrx_getpropertyvalue e "IsA") "AcDbPolyline")
(not (xdrx_polyline_hasbulges e))
)
(progn
(setq pts (XD::Pnts:Close (xdrx_entity_getstretchpoint e)))
(apply 'xdrx_polyline_make
(cons 't (apply 'xdrx_points_offset (cons d pts)))
)
)
(vl-catch-all-apply
'(lambda () (vla-offset (vlax-ename->vla-object e) d))
) ;_防止间隙过小
)
(if (not (equal (entlast) lastent))
(xdrx_setpropertyvalue (entlast) "Color" 4)
)
)

zwwen12 · 发表于 2013-11-7 16:13:56

图案多了有点慢，不知能不能求面积（相当于填充图案的面积），2004版里面用

haoryh · 发表于 2015-12-19 09:02:12

q3_2006 发表于 2013-10-28 16:31
这是E大的。。处理得很好。。。

这个能不能把偏移出来的线修改成别的层呢？

434939575 · 发表于 2017-5-16 19:57:09

看看有啥子好东东！

taner · 发表于 2018-6-26 14:57:49

学习一下,我要一个正好相反的

taner · 发表于 2018-6-26 17:32:55

如图中有详细说明,哪位高人出手一下,谢谢!

dingwqing · 发表于 2018-6-27 06:13:20

回复，下载，学习！！！！！！

dingwqing · 发表于 2018-6-27 06:14:26

回复，下载，学习，111！！！！！！

栋梁 · 发表于 2018-7-28 11:53:58

厉害了我的哥
来自: 微社区

nick08077 · 发表于 2021-4-18 21:18:48

孤岛判断,最近有这问题

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

[求助] 带孤岛判断的批量偏移

点评

点评