AUTOCADで連番を。。。

質問

AUTOCAD2000を使用しています。
仕事上連番を使うことが多いのですが、
AUTOCADで簡単に下記の様に連番を表示することが
できるでしょうか？
１　２　３　４　５　・・・・・
※今は、一つ入力し配列複写をして書き直しています。

宜しくお願いします。

回答No.2

dobin82 · ベストアンサー

これで　いいと思うのですが、、、

(defun c:no-t()
(setq p1 (getpoint "文字の位置："))
(setq p1x (car p1))
(setq p1y (cadr p1))
(setq p2y (cadr p2))
(setq t1(getdist "m文字の高さ："))
(setq dis1 (getdist "行の間隔:"))
(setq no1 (getint "いくつから："))
(setq no2 (getint "いくつまで："))
(setq no3 (+ 1 (- no2 no1)))
(repeat no3
(command "TEXT" p1 t1 0 no1 "")
(setq p1 (list p1x (- (cadr p1) dis1)))
(setq no1 (+ no1 1))
)
)

お礼

ご丁寧な回答ありがとうございました>^_^<
オートキャド内の機能ではできないと
言うことなんですね(^_^;)
難しそうですがチャレンジしてみます。
ありがとうございました♪

回答No.1

dobin82

やはり　リスプが　必要です。

(setq p1 (list p1x (- (cadr p1) dis1)))
これは　上から下に　文字の連番を書きます。
左から　右に書く場合は

(setq p1 (list (+ (car p1) dis1) (cadr p1)))
に書き換えてください。

(defun c:no-t()
(setq p1 (getpoint "文字の位置："))
(setq p1x (car p1))
(setq p1y (cadr p1))
(setq p2y (cadr p2))
(setq t1(getdist "m文字の高さ："))
(setq dis1 (getdist "行の間隔:"))
(setq no1 (getint "いくつから："))
(setq no2 (getint "いくつまで："))
(setq no3 no2)
(repeat no3
(command "TEXT" p1 t1 0 no1 "")
(setq p1 (list p1x (- (cadr p1) dis1)))
(setq no1 (+ no1 1))
)
)