No.2ベストアンサー
- 回答日時:
これで いいと思うのですが、、、
(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))
)
)
この回答へのお礼
お礼日時:2004/05/11 11:07
ご丁寧な回答ありがとうございました>^_^<
オートキャド内の機能ではできないと
言うことなんですね(^_^;)
難しそうですがチャレンジしてみます。
ありがとうございました♪
No.1
- 回答日時:
やはり リスプが 必要です。
(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))
)
)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- CAD・DTP Auto CAD LT → Auto CAD 1 2022/04/20 12:29
- Visual Basic(VBA) Vba UserFormを前面に出す方法を教えてください 1 2023/08/17 11:08
- Excel(エクセル) vba sendKeysを送る相手のソフトを前面に開くには 1 2023/07/20 16:42
- ノートパソコン ノートパソコンでただ単にOfficeのExcelで簡単な表作成やWordで文書作成する程度の使用であ 8 2023/05/13 19:08
- CAD・DTP Autocad Scriptファイルからの入力とコマンドラインからの入力が違う 1 2023/08/01 09:13
- Excel(エクセル) vba レジストリの値を読み込教えてください教えてください 1 2023/07/14 14:09
- PDF AutoCAD図面をPDF fileに変換した際、画像情報やブロック名はわかるのでしょうか。 1 2022/06/03 09:42
- BTOパソコン 下記の条件に合ったパソコンでオススメあれば教えてください。 ①ラップトップで持ち運び型 ②薄くて軽い 1 2023/03/02 13:15
- ノートパソコン パソコン選びについてです。建築を学んでおり主にautocadを使用しており、ライノ等も少し使う感じで 2 2023/04/23 02:24
- CAD・DTP autocadについて質問です。 以前Macを使っていたのですが、Windowsに図面を移したいと思 3 2023/05/18 22:40
このQ&Aを見た人はこんなQ&Aも見ています
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
jwで文字間隔は変更できますか?
-
AutoCAD 文字をExcelに貼り付け...
-
Wordに関して質問です 40字×30...
-
JW 文字の後ろを白く着色したい
-
Jwcad 文字の情報を知るには?
-
レポート課題で、40文字✖️40行...
-
Auto Cadで文字の傾きを一気に...
-
縦書きにすると字がずれます
-
autocadで円の中心に文字を書く...
-
jw_cadで文字として「㎥」を...
-
InDesignでの 文字反転 機能
-
シリアル通信RS-232C(D-SUB9...
-
[ユーザー設定リスト]の最大項...
-
JWCADの質問 引出線 文字
-
業務でiCAD MXを使うことになり...
-
jwcad
-
JWCADの寸法表示を大きくしたい
-
VectorWorks11であるレイヤのみ...
-
ワードで原稿用紙のようなマス...
-
jw_CADの文字色について教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Jwcad 文字の情報を知るには?
-
Auto Cadで文字の傾きを一気に...
-
Wordに関して質問です 40字×30...
-
JW 文字の後ろを白く着色したい
-
縦書きにすると字がずれます
-
AUTOCADで文字をほかの図面から...
-
AutoCAD 文字をExcelに貼り付け...
-
autocadで円の中心に文字を書く...
-
JWCADの寸法表示を大きくしたい
-
jw_CADの文字色について教えて...
-
jwcad
-
jw_cadで文字として「㎥」を...
-
レポート課題で、40文字✖️40行...
-
jwで文字間隔は変更できますか?
-
JWCADの質問 引出線 文字
-
VectorWorks11であるレイヤのみ...
-
InDesignでの 文字反転 機能
-
業務でiCAD MXを使うことになり...
-
シリアル通信RS-232C(D-SUB9...
-
Autocad LTでの文字の基点のずれ
おすすめ情報