[讨论]：能不能实现这样的偏移：一次性实现多次不等距偏移！

ylmsxf

我的想法是这样的：执行偏移命令，然后要求输入多个偏移距离（没有偏移次数限制），然后指定偏移方向，从而一次性实现不等距的多次偏移，这样的话应该可以大大提高绘图效率，不知道哪位高手有解决的办法。

zhynt

可以用编程的方法。
例子：
[php]
(defun zhy_string_tok (sstring sstr)
  (setq string_list '())
  (setq n1 (strlen sstring))
  (setq n2 (strlen sstr))
  (while (setq m2 (vl-string-search sstr sstring))
    (setq str_1 (substr sstring 1 m2))
    (setq sstring (substr sstring (+ 1 m2 n2)))
    (if        (/= str_1 "")
      (setq string_list (cons str_1 string_list))
    )
  )
  (if (/= sstring "")
    (setq string_list (cons sstring string_list))
  )
  (reverse string_list)
)
(defun c:oo ()
  (setq date (getstring "\n输入偏移距离,数据之间用','隔开:"))
  (setq se (entsel "\n选择偏移对象:"))
  (setq se1 (car se))
  (setq sept (cadr se))
  (setq pt (getpoint "\n指定偏移方向:"))
  (setq dlst (zhy_string_tok date ","))
  (setq n 0)
  (setq dlstn (length dlst))
  (while (/= dlstn n)
    (setq da (atoi (nth n dlst)))
    (command "OFFSET" da se1 pt "")
    (setq se1 (entlast))
    (setq ang (angle sept pt))
    (setq pt (polar pt ang da))
    (setq n (1+ n))
  )
)
[/php]

ylmsxf

非常感谢zhynt斑竹的代码，真是太好了，一定要好好研究一下！

renshiqi

好好研究下

wenxemail

早就希望有这样的程序，太感谢zhynt版主了

一天夜星

试用了哈，效果的确不错，这下又方便了许多，感谢zhynt的代码。