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

matichen

alin

Try to offset it to one side, if the new PL is longer than the original one, you are right; Otherwise, it should be the other side.

龙龙仔

;;如何用LISP实现将PL环向外偏移一些。
;;同理能实现左右偏移!!!!
(defun C:TEE (/ HOLDOSMODE HOLDCMD WW ENT PT PT1 PT2 CURVE X JANG 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选取偏移对象: "))
  (setq ENT (car WW))
  (setq PT (cadr WW))
  (setq CURVE (vlax-ename->vla-object ENT))
  (setq        X (vlax-curve-getparamatpoint
            CURVE
            (setq PT (vlax-curve-getclosestpointto
                       CURVE
                       PT
                     )
            )
          )
  )
  (setq JANG (angle '(0 0 0) (vlax-curve-getfirstderiv CURVE X)))
  (setq PT1 (polar PT (+ JANG (* 0.5 pi)) 0.00000001))
  (setq PT2 (polar PT (- JANG (* 0.5 pi)) 0.00000001))
  (initget 3)
  (setq DIST (getdist "\n指定偏移距离<正__向外偏移 /负__向内偏移>: "))
  (command "_.OFFSET" (abs DIST) ENT PT1 "")
  (cond
    ((and (> DIST 0) (> (LEN CURVE) (LEN (entlast))))
     (entdel (entlast))
     (command "_.OFFSET" DIST ENT PT2 "")
    )
    ((and (< DIST 0) (< (LEN CURVE) (LEN (entlast))))
     (entdel (entlast))
     (command "_.OFFSET" (abs DIST) ENT PT2 "")
    )
  )
  (setvar "OSMODE" HOLDOSMODE)
  (setvar "CMDECHO" HOLDCMD)
  (princ)
)

cy956

[此贴子已经被作者于2002-12-6 21:33:34编辑过]

jingsabing

我还是没想明白左右偏移在程序中自动画图怎么用?

南子

载一致的多义线中找到x坐标最大值的一点，则方向为该点p1（x0 y0 0.0)到p2 (x0+10,y0,0.0)[br]

matichen

龙龙仔

对云形线拟合聚合线,恐怕也不行了

南子

龙龙仔