TOP PAGE > 記事閲覧
回数を指示してオフセット(lisp)
投稿日 : 2015/09/28(Mon) 09:17
投稿者 アルサポ
参照先
複数回、同じ間隔でオフセットをしたい場合が、よくあるのではないでしょうか?
オフセットを複数回繰り返せば、簡単にできるのですが、私は回数が多いくなると面倒になります
そんな物ぐさな私のような人におすすめな、回数を指定してオフセットさせるlispを掲載します。

使い方は、
1.回数を入力
2.距離(間隔)を入力
3.オフセットをするオブジェクトを選択
4.オフセットする側を指定(左クリック)
5.オフセットされて終了!


;回数指示オフセット
(defun C:OffsetCount (/ countMax interval obj point count)
(setq countMax (getint "\nオフセットする回数を入力:"))
(setq interval (getdist "\nオフセット距離を入力:"))
(setq obj (entsel "\nオフセットするオブジェクトを選択:"))
(setq point (getpoint "\nオフセットする側の点を指定:"))
(command "_OFFSET" interval obj "M" point)
(setq count 1)
(while (> countMax count)
(command point)
(setq count (+ count 1))
);while
(command "E")
(princ)
)
ページの上に移動

- WEB PATIO -