偏移图层

love1030312 · 发表于 2014-6-12 09:03

这是论坛里边大神们的程序 请高手帮我改下 谢谢
把选择(setq kd0 (getkword "\n[向外偏移W/向内偏移N/双向偏移S]<W>")) 这里改成 1 2 3
还有希望能加入偏移到当前图层 谢谢

谢谢

;;批量偏移 By Gu_xl 2013.04.01
(defun c:py (/ CLOCKWISEP OFFSET KD SS N EN kd0)
(defun CLOCKWISEP (en / lw minp MaxP lst)
(setq lw (vlax-ename->vla-object en))
(vla-GetBoundingBox lw 'MinP 'MaxP)
(setq
minp (vlax-safearray->list minp)
MaxP (vlax-safearray->list MaxP)
lst (mapcar
(function
(lambda (x)
(vlax-curve-getParamAtPoint
lw
(vlax-curve-getClosestPointTo lw x)
)
)
)
(list minp
(list (car minp) (cadr MaxP))
MaxP
(list (car MaxP) (cadr minp))
)
)
)
(if (or
(<= (car lst) (cadr lst) (caddr lst) (cadddr lst))
(<= (cadr lst) (caddr lst) (cadddr lst) (car lst))
(<= (caddr lst) (cadddr lst) (car lst) (cadr lst))
(<= (cadddr lst) (car lst) (cadr lst) (caddr lst))
)
t
)
)
(initget 7 "W N S ")
(setq kd0 (getkword "\n[向外偏移W/向内偏移N/双向偏移S]<W>"))
(if (= "" kd0)
(setq kd0 "W")
)
(initget 6)
(setq offset (getreal "\n[输入偏移距离]<0.5>"))
(if (null offset)
(setq offset 0.5)
)
(initget 7 "Y N ")
(setq kd (getkword "\n[删除源对象<Y>/不删除源对象<N>]<N>:"))
(if (= kd "")
(setq kd "N")
)
(while (setq ss (ssget '((0 . "*polyline,arc,circle"))))
(repeat (setq n (sslength ss))
(setq en (ssname ss (setq n (1- n))))
(cond
((or (= "ARC" (cdr (assoc 0 (entget en))))
(= "CIRCLE" (cdr (assoc 0 (entget en))))
)
(cond ((= kd0 "W")
(vla-offset (vlax-ename->vla-object en) offset)
(vla-put-Color (vlax-ename->vla-object (entlast)) 1)
)
((= kd0 "N")
(vla-offset (vlax-ename->vla-object en) (- offset))
(vla-put-Color (vlax-ename->vla-object (entlast)) 1)
)
(t
(vla-offset (vlax-ename->vla-object en) offset)
(vla-put-Color (vlax-ename->vla-object (entlast)) 1)
(vla-offset (vlax-ename->vla-object en) (- offset))
(vla-put-Color (vlax-ename->vla-object (entlast)) 1)
)
)
)
(t
(cond ((= kd0 "W")
(if (CLOCKWISEP en)
(vla-offset (vlax-ename->vla-object en) (- offset))
(vla-offset (vlax-ename->vla-object en) offset)
)
(vla-put-Color (vlax-ename->vla-object (entlast)) 4)
)
((= kd0 "N")
(if (CLOCKWISEP en)
(vla-offset (vlax-ename->vla-object en) offset)
(vla-offset (vlax-ename->vla-object en) (- offset))
)
(vla-put-Color (vlax-ename->vla-object (entlast)) 1)
)
(t
(vla-offset (vlax-ename->vla-object en) offset)
(vla-put-Color (vlax-ename->vla-object (entlast)) 1)
(vla-offset (vlax-ename->vla-object en) (- offset))
(vla-put-Color (vlax-ename->vla-object (entlast)) 4)
)
)
)
)
(if (= kd "Y")
(entdel en)
)
)
)
(princ)
)

;;批量偏移 By Gu_xl 2013.04.01 
(defun c:py (/ CLOCKWISEP OFFSET KD SS N EN kd0) 
  (defun CLOCKWISEP (en / lw minp MaxP lst) 
    (setq lw (vlax-ename->vla-object en)) 
    (vla-GetBoundingBox lw 'MinP 'MaxP) 
    (setq 
      minp (vlax-safearray->list minp) 
      MaxP (vlax-safearray->list MaxP) 
      lst  (mapcar 
             (function 
               (lambda (x) 
                 (vlax-curve-getParamAtPoint 
                   lw 
                   (vlax-curve-getClosestPointTo lw x) 
                   ) 
                 ) 
               ) 
             (list minp 
                   (list (car minp) (cadr MaxP)) 
                   MaxP 
                   (list (car MaxP) (cadr minp)) 
                   ) 
             ) 
      ) 
    (if (or 
          (<= (car lst) (cadr lst) (caddr lst) (cadddr lst)) 
          (<= (cadr lst) (caddr lst) (cadddr lst) (car lst)) 
          (<= (caddr lst) (cadddr lst) (car lst) (cadr lst)) 
          (<= (cadddr lst) (car lst) (cadr lst) (caddr lst)) 
          ) 
      t 
      ) 
    ) 
  (initget 7 "W N S  ") 
  (setq kd0 (getkword "\n[向外偏移W/向内偏移N/双向偏移S]<W>")) 
  (if (= "" kd0) 
    (setq kd0 "W") 
    ) 
  (initget 6) 
  (setq offset (getreal "\n[输入偏移距离]<0.5>")) 
  (if (null offset) 
    (setq offset 0.5) 
    ) 
  (initget 7 "Y N  ") 
  (setq kd (getkword "\n[删除源对象<Y>/不删除源对象<N>]<N>:")) 
  (if (= kd "") 
    (setq kd "N") 
    ) 
  (while (setq ss (ssget '((0 . "*polyline,arc,circle")))) 
    (repeat (setq n (sslength ss)) 
      (setq en (ssname ss (setq n (1- n)))) 
      (cond 
        ((or (= "ARC" (cdr (assoc 0 (entget en)))) 
             (= "CIRCLE" (cdr (assoc 0 (entget en)))) 
             ) 
         (cond ((= kd0 "W") 
                (vla-offset (vlax-ename->vla-object en) offset) 
                (vla-put-Color (vlax-ename->vla-object (entlast)) 1) 
                ) 
               ((= kd0 "N") 
                (vla-offset (vlax-ename->vla-object en) (- offset)) 
                (vla-put-Color (vlax-ename->vla-object (entlast)) 1) 
                ) 
               (t 
                (vla-offset (vlax-ename->vla-object en) offset) 
                (vla-put-Color (vlax-ename->vla-object (entlast)) 1) 
                (vla-offset (vlax-ename->vla-object en) (- offset)) 
                (vla-put-Color (vlax-ename->vla-object (entlast)) 1) 
                ) 
               ) 
         ) 
        (t 
         (cond ((= kd0 "W") 
                (if (CLOCKWISEP en) 
                  (vla-offset (vlax-ename->vla-object en) (- offset)) 
                  (vla-offset (vlax-ename->vla-object en) offset) 
                  ) 
                  (vla-put-Color (vlax-ename->vla-object (entlast)) 4) 
                ) 
               ((= kd0 "N") 
                (if (CLOCKWISEP en) 
                  (vla-offset (vlax-ename->vla-object en) offset) 
                  (vla-offset (vlax-ename->vla-object en) (- offset)) 
                  ) 
                  (vla-put-Color (vlax-ename->vla-object (entlast)) 1) 
                ) 
               (t 
                (vla-offset (vlax-ename->vla-object en) offset) 
                (vla-put-Color (vlax-ename->vla-object (entlast)) 1) 
                (vla-offset (vlax-ename->vla-object en) (- offset)) 
                (vla-put-Color (vlax-ename->vla-object (entlast)) 4) 
                ) 
               ) 
         ) 
        ) 
      (if (= kd "Y") 
        (entdel en) 
        ) 
      ) 
    ) 
  (princ) 
  )

简单の:） · 发表于 2014-6-12 09:21

,谢谢分享，看看

鱼与熊掌 · 发表于 2014-7-7 20:51

(setq kd0 (getkword "\n[向外偏移1/向内偏移2/双向偏移3]<W>")) wns
(if (= kd0 1)(setq kd0 W))
(if (= kd0 2)(setq kd0 N))
(if (=kd0 3)(setq kd0 S))

77077 · 发表于 2014-7-8 00:13

首先，你只需要将
(cond ((= kd0 "W")
            (progn )
            )
            ((= kd0 "N")
   (progn )
            )
((= kd0" S")
(progn )
            )
)
里面的WNS修改成你需要的123即可~

其次你会用 vla-put-Color，那我想vla-put-layer也应该难不倒ni~

yangchao2005090 · 发表于 2019-6-4 10:15

请问一下，你这个怎么修改的呀

999999 · 发表于 2020-9-17 16:09

顶起来，学习学习，谢谢楼主分享以及各位大神的评论

F4164789 · 发表于 2020-9-18 07:34

俺用的偏移到当前层，要是能偏移到指定层更好，偏移的距离根据材料厚度是固定的

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

[已解答] 偏移图层

本帖子中包含更多资源

本帖被以下淘专辑推荐: