[原创]：OFFSET在LISP中如何实现？

LADESIGNER

怎么确定偏移的方向呢？如果是圆或是圆弧可以根据圆心定位，如果是直线怎么办？

wykdy

可以从直线的角度入手

aidraft

(From on-line help, but sometimes it's not right)
The distance to offset the object. The offset can be a positive or negative number, but it cannot equal zero. 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.

LADESIGNER

2楼能否解释一下？

橄榄滋味

你可以点击直线，找到两端点坐标，然后求出直线方向

guizhicheng

在程序中使用offset时你可以先用鼠标指定一个方向，然后就程序自动复制直线了。这样简单而实用，否则太多的判断反倒容易出错。

给个例子：

(defun c:pjhx()
         (command "layer" "m" "jhx" "c" "yellow" "jhx" command)
         (command "layer" "s" "jhx" command)
         (setq xnum (getint "\n请输入线数： "))
         (if (= xnum nil)(setq xnum 0))
         (setq dnum (getreal "\n请输入线间距离： "))
         (if (= dnum nil)(setq dnum 0))
         (setq s (ssget))
         (setq s1 (ssname s 0))
         (command "change" s "" "p" "la" "jhx" "")
         (setq p (getpoint "\n请确定偏移方向： "))
         (setq cont 0)
         (while (< cont xnum)
                (setq data (entget s1))
                (setq pstart (assoc 10 data))
                (setq pstarty (nth 1 pstart))
                (setq pstartx (nth 2 pstart))
                (setq p1 (list pstarty pstartx))
                (if(= cont 0) (setq fx (angle p1 p)))
                (setq p (polar p1 fx dnum))
                (command "offset" dnum s1 p "")
                (setq s1 (entlast))
                (setq cont (+ cont 1))
          )   
)

运行这个例子时，必须先有一根直线存在。

程序运行后会提示你选中这根直线，右键确定，然后左键在你需要便移的方向点击一下即可。

amanjmy

可以得到起始和终点坐标,再用新点表代替