请问：如何用LISP实现将PL环向外偏移一些。关键是不知如何确定方向。

南子

1、将已知的多义线pl1向外偏一次，得到一个新的多义线pl2
2、在pl1上找到任意一个点p1，以及在pl2上其对应的另一个点p2
3、求出p3 (polar p1
                 (angle p2 p1)
                 (distance p1 p2)
           )
4、p3应该是pl1多义线内的一点，向p3点偏移吧。

龙龙仔

龙龙仔

秋枫

龙龙仔

对3dsolid 圆柱作偏移面,正数为向外偏移(放大圆柱直径)，对3dsolid孔圆柱作偏移面,负数为向外偏移(放大孔直径)。
平面对象偏移,autocad本身offset指令并没有负值偏移,内与外也不必太认真了。

龙龙仔

;;改用VLISP中OFFSET方法(将PL环向外偏移一些)
(defun C:TEE (/ HOLDOSMODE HOLDCMD WW CURVE DIST)
  (defun LEN (CURVE)
    (setq TLEN (vlax-curve-getdistatparam
                 CURVE
                 (vlax-curve-getendparam CURVE)
               )
    )
  )
  (setq HOLDOSMODE (getvar "OSMODE"))
  (setq HOLDCMD (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setvar "OSMODE" 0)
  (setq WW (entsel "\n选取偏移对象: "))
  (if (/= WW NIL)
    (progn
      (setq CURVE (vlax-ename->vla-object (car WW)))
      (initget 3)
      (setq
        DIST (getdist "\n指定偏移距离<正__向外偏移 /负__向内偏移>: ")
      )
      (vl-catch-all-apply
        'vla-offset
        (list CURVE (* -1.0 DIST))
      )
      (cond
        ((and (> DIST 0) (> (LEN CURVE) (LEN (entlast))))
         (entdel (entlast))
         (vl-catch-all-apply
           'vla-offset
           (list CURVE DIST)
         )
        )
        ((and (< DIST 0) (< (LEN CURVE) (LEN (entlast))))
         (entdel (entlast))
         (vl-catch-all-apply
           'vla-offset
           (list CURVE DIST)
         )
        )
      )
    )
  )
  (setvar "OSMODE" HOLDOSMODE)
  (setvar "CMDECHO" HOLDCMD)
  (princ)
)

matichen

无痕

If the offset is negative, this is interpreted as being an offset to make a "smaller" curve (that is, for an arc it would offset to a radius that is "Distance less" than the starting curve's radius). If "smaller" has no meaning, then it would offset in the direction of smaller X, Y, and Z WCS coordinates.

以上摘自cad帮助中 val-offset 方法说明， dist负值已经是做“小”一点的offset了,为什么还要做一个判断呢？

龙龙仔

goldenshin