一次偏移多种距离[分享]：

LUCAS

一次偏移多种距离
;;;程序设计:赖云龙;;;
;;;---------------;;;
(defun C:OFFSETS (/ A S N PT1 AA AAA AL)
  (setq A "")
  (while (= A "")
       (setq A (getstring "\nSpecify offset distance <x/x/x...>:"));输入如:2/6/23…..
  )
  (setq A (strcat A "/"))
  (prompt "\nSelect object to offset: ")
  (while (= AA nil)
  (setq AA (entsel))
  )
  (initget 1)
  (setq PT1 (getpoint "\nSpecify point on side to offset: "))
  (setq AL (+ (strlen A) 1))
  (setq N 1)
  (setq S "")
  (while (not (= N AL))
    (if        (= (substr A N 1) "/")
      (progn
        (setq AAA (car AA))
        (command "_.offset" S AAA PT1 "")
        (setq S "")
      )
      (setq S (strcat S (substr A N 1)))
    )
    (setq N (1+ N))
  )
  (princ)
)

申士

　　赖云龙先生的偏移程序和梦断江南的要是中和一下就好了。赖先生的程序优点是一次可以从键盘输入连续的偏移距离，这是很方便的。可惜美中不足的是偏移方式是从原点开始的，要是像梦断江南那样是从相对点开始，那就更方便了呀！
　　要是有了改进版本，要别忘了通知小弟呀！

li809

同意楼上意见

ss1025

不如搞成这样，按A从原点开如始，按B从相对点开始。
因为从相对点开始，有时也能用到。

li_seagull

思路不错,希望楼主能改进一下,像五号楼主那样说的不错.

lyl朵zgd

你的这个程序怎么回事，我输完命令，给一个距离，再点一下物体，是偏移了，然后就自动退出了。和offset有什么区别，不就是省了个回车吗。