渐进式 多重偏移，见图片效果

荒野孤行

渐进式多重偏移，图片效果如下：

附上源码：
;;; *****多重偏移 程序开始*****
(defun c:dcpy ()
  (setvar "pickadd" 1)
  (setvar "osmode" 15359)
  (setvar "cmdecho" 0)
  (princ "\n制作者QQ：583915572")
  (princ "\n★功能:多重偏移曲线.")
  (command "undo" "be")
  (princ "\n选取曲线对象：")
  (setq ss (ssget '((0 . "LINE,ARC,CIRCLE,ELLIPSE,LWPOLYLINE,SPLINE"))))
  (if (not ss)
    (progn (princ "\n提示：未选取曲线对象.\n") (exit))
  )
  (setq pydi (getdist "\n偏移距离<0.2>:"))
  (if (null pydi)
    (setq pydi 0.2)
  )
  (setq pydi_add (getdist "偏移距离增量<0>:"))
  (if (null pydi_add)
    (setq pydi_add 0)
  )
  (setq npy (getint "\n偏移次数<9>:"))
  (if (null npy)
    (setq npy 9)
  )
  (initget 1)
  (setq pt1 (getpoint "\n指定偏移方向:"))
  (setq i 0)
  (setvar "osmode" 0)
  (vl-load-com)
(repeat (sslength ss)
    (setq entnam (ssname ss i))
    (setq obj (vlax-ename->vla-object entnam))
    (setq len (vlax-curve-getdistatparam
                obj
                (vlax-curve-getendparam obj)
              )
    )
    (setq pt_center (vlax-curve-getpointatdist obj (/ len 2)))
    (setq entt (cons entnam (list pt_center)))
    (setq j 1)
    (setq pydis 0)
    (repeat npy
      (setq pydis (+ pydis pydi))
      (command "_.offset" pydis entt pt1 "")
      (repeat j (setq pydis (+ pydis pydi_add)))
      (setq j (1+ j))
    )
    (setq i (1+ i))
    (princ)
  )
  (setvar "osmode" 15359)
  (command "undo" "e")
  (princ)
)
;;;*****多重偏移 程序结束*****

xieling888

偏移后能否把偏移出来的东西变另外一层或者换另外一种颜色以做区分？

yefei812678

能不能指定一段距离直接输入段数就出来渐进的偏移

yefei812678

能不能写个   弧形投影的插件

vlisp2012

有点意思，顶一个。

edata

还不错。就是代码可以更完善一些，加入出错处理更好，另外对系统变量的修改要保存，完成程序后调用回来原来的系统变量，如setvar "pickadd" 1)
  (setvar "osmode" 15359)
  (setvar "cmdecho" 0) 前面关闭，后面要恢复。
对于(setq ss (ssget '((0 . "LINE,ARC,CIRCLE,ELLIPSE,LWPOLYLINE,SPLINE"))))
  (if (not ss)
    (progn (princ "\n提示：未选取曲线对象.\n") (exit))
  )
这段判断后直接(exit）退出，函数会有出错提示，一般是判断是否选择，选择为空，则不执行后面的程序，直接提示未选择就行。
(setq a 3 b 2)
(if (>a b)
(progn
(princ a)
(princ b)
)
(princ "a是小于B的")
)

对于选择偏移方向点的时候，不确定点不会终止程序，如果对我们前面输入的数据，如偏移距离，增量，或者次数有误，那么还得错误的执行一次才能返回，不太合理。如果没有指定偏移点，则不执行，或者提示一次，再选择一次。
个人意见，仅供参考。

荒野孤行

edata 发表于 2013-10-30 23:53
还不错。就是代码可以更完善一些，加入出错处理更好，另外对系统变量的修改要保存，完成程序后调用回来原来 ...

可以根据自己的要求进行改进，用while就可以判定是否选择偏移点了。

偏爱云~小吴

牛人漫天飞啊

sicky111

谢谢楼主的源码，学习一下。

meiaoxue1230

感谢楼主分享

bonny

                  放开想象力

ynhh

感谢大师的分享

qyming

渐进式 多重偏移