依据高度差分别偏移距离！难度较高！

革天明

偏移的规则如下：
①多段线上各线、圆弧、曲线与基准点的竖起距离H与偏移量有以下要求：0≦H﹤3  0.3；3≦H≦6  0.4；6＜H   0.5。
②连接以下区间的或同时跨跃两个区间的直线（竖直或倾斜），若直线两端不连接圆弧，以较低的区间进行偏移（如跨跃2-6区间，以0-3区间的0.3进行偏移）；若直线两端有圆弧（一个或两个），按较大区间进行偏移（如跨跃2-6区间，以3-6区间的0.4进行偏移）
③偏移后的各小段多段线相关独立。

相关帖子见http://bbs.mjtd.com/thread-100204-1-1.html

革天明

看来难度是不小

革天明

大侠都在数年终奖？无暇写代码了

cable2004

哈哈，一样的题目！

cable2004

(defun c:test( / en enlst i mun p3 p6 ptlst03 ptlst06 pt-min ss x)
  (setq en (car (entsel )))
  (setq enlst (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en))))
  (setq PT-min (apply 'mapcar (cons 'min enlst)))
  (setq mun (- (length enlst) 1))
  (foreach  x enlst  (if (< 3 (- (cadr x)  (cadr PT-min)))  (setq ptlst03 (cons (vlax-curve-getParamatPoint en  x) ptlst03))))
  (foreach  x enlst  (if (< 6 (- (cadr x)  (cadr PT-min)))  (setq ptlst06 (cons (vlax-curve-getParamatPoint en  x) ptlst06))))
(IF
(YTM-Clockwise (NTH 0 enlst) (NTH 1 enlst) (NTH 2 enlst))
(progn
  (setq enlst (reverse enlst))
  (setq  p3 (MIN (+ (apply 'max  ptlst03 ) 1)  (+ (apply 'max  ptlst06 ) 1)))
  (setq  p6 (MAX (+ (apply 'max  ptlst03 ) 1)  (+ (apply 'max  ptlst06 ) 1)))
(if (/= 0 p3) (YTM-off -0.3 en (vlax-curve-getpointatparam en p6) (vlax-curve-getpointatparam en mun)))
(if (/= p6 p3) (YTM-off -0.4 en (vlax-curve-getpointatparam en p3) (vlax-curve-getpointatparam en p6)))
(if (/= p6 mun) (YTM-off -0.5 en (vlax-curve-getpointatparam en 0) (vlax-curve-getpointatparam en p3)))
  )
(progn
(setq  p3 (MIN (- (apply 'min  ptlst03 ) 1)  (- (apply 'min  ptlst06 ) 1)))
(setq  p6 (MAX (- (apply 'min  ptlst03 ) 1)  (- (apply 'min  ptlst06 ) 1)))
(if (/= 0 p3) (YTM-off 0.3 en (vlax-curve-getpointatparam en 0) (vlax-curve-getpointatparam en p3)))
(if (/= p6 p3) (YTM-off 0.4 en (vlax-curve-getpointatparam en p3) (vlax-curve-getpointatparam en p6)))
(if (/= p6 mun) (YTM-off 0.5 en (vlax-curve-getpointatparam en p6) (vlax-curve-getpointatparam en mun)))
)
)
)
(defun YTM-Clockwise ( p1 p2 p3 )
    (<
        (* (- (car  p2) (car  p1)) (- (cadr p3) (cadr p1)))
        (* (- (cadr p2) (cadr p1)) (- (car  p3) (car  p1)))
    )
)

革天明

cable2004 发表于 2013-1-25 21:51
(defun c:test( / en enlst i mun p3 p6 ptlst03 ptlst06 pt-min ss x)
  (setq en (car (entsel )))
...

效果能实现，具体细节我再参悟一下代码，另外有一个问题是你的是向下偏移的吧，而我的却是向上偏移，你的效果是我想要的。昨天那个帖子就是会出现这样的情况，向下偏或向上偏有时会错乱。

cable2004

这个应该不会，因为增加了一个顺时针判断，你只要相应修改参数，把正改负，负改正就可以。

革天明

我自己再排查一下吧