King557852 发表于 2015-4-3 00:04:38

求高手修改下批量偏移 万分感谢

本帖最后由 King557852 于 2015-4-3 07:56 编辑

;;批量偏移 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)
                )
               ((= kd0 "N")
                (vla-offset (vlax-ename->vla-object en) (- offset))
                )
               (t
                (vla-offset (vlax-ename->vla-object en) offset)
                (vla-offset (vlax-ename->vla-object en) (- offset))
                )
               )
         )
      (t
         (cond ((= kd0 "W")
                (if (CLOCKWISEP en)
                  (vla-offset (vlax-ename->vla-object en) (- offset))
                  (vla-offset (vlax-ename->vla-object en) offset)
                  )
                )
               ((= kd0 "N")
                (if (CLOCKWISEP en)
                  (vla-offset (vlax-ename->vla-object en) offset)
                  (vla-offset (vlax-ename->vla-object en) (- offset))
                  )
                )
               (t
                (vla-offset (vlax-ename->vla-object en) offset)
                (vla-offset (vlax-ename->vla-object en) (- offset))
                )
               )
         )
      )
      (if (= kd "Y")
      (entdel en)
      )
      )
    )
(princ)
)



求解决：望高手帮忙稍作修改添加语言，在上面代码偏移距离完成后插入这样一句------（在原图层偏移过后的线型可以统一产生用蓝色或者绿色区分表示开来,如果遇到不能偏移个体的情况下,自动用红色线型标记出,）以便检查。

King557852 发表于 2015-4-3 07:53:48

顶大师出现

894560869 发表于 2019-5-26 20:11:42

做个记号，顶一大师

2548572928 发表于 2022-4-21 20:10:59

666 等大师修改 :lol:lol:lol

litianwu8900 发表于 2022-10-13 15:52:20

等大师出现

baby绑定命运线 发表于 2022-10-14 10:26:03

正需要这个，等分享

flfcegu168 发表于 2023-11-1 19:45:19


循环到一个小于偏移值时 之后的就不能偏移了偏移结束
页: [1]
查看完整版本: 求高手修改下批量偏移 万分感谢