【AutoLISP サンプル】テキストの内容を今日の日付に変更

コマンドの内容

コマンドを実行すると、テキスト/マルチテキストを選択するように促されます。

空振りクリックミス対策として、テキスト/マルチテキスト以外を選択したり、何もない所をクリックすると処理が進まずに、テキスト/マルチテキストを選択するように促し続けます。

テキスト/マルチテキストを選択すると、その内容が変更されます。
3パターン用意しました。お好みによって、コマンド名や日付形式を変更してみてください。

コマンド名は、

• Date1
• Date2
• Date3

の3つで、それぞれのコマンドを実行してテキスト/マルチテキストを選択すると、以下のようになります。

AutoLISP　プログラムサンプル

;/////////////////////////////////////////
;JagaimoLisp コマンド関数
;テキストチェンジ-今日の日付　var.20210810
;/////////////////////////////////////////

(defun c:Date1 ( / a Date);Date-YYYY-MM-DD 

(setq a (itoa (fix (getvar "CDATE"))))
  (setq Date (strcat (substr a 1 4) "-" (substr a 5 2) "-" (substr a 7 2))) 

   (Jaga04aTxCh Date)
(princ));defun

;====================================================

(defun c:Date2 ( / a Mo Date);Date-MonthDD_YYYY

  (setq a (itoa (fix (getvar "CDATE"))))
  (setq Mo (substr a 5 2))  
  	(cond 
		((= Mo "01") (setq Mo "JANUARY"))
		((= Mo "02") (setq Mo "FEBRUARY"))
		((= Mo "03") (setq Mo "MARCH"))
		((= Mo "04") (setq Mo "APRIL"))
		((= Mo "05") (setq Mo "MAY"))
		((= Mo "06") (setq Mo "JUNE"))
		((= Mo "07") (setq Mo "JULY"))
		((= Mo "08") (setq Mo "AUGUST"))
		((= Mo "09") (setq Mo "SEPTEMBER"))
		((= Mo "10") (setq Mo "OCTOBER"))
		((= Mo "11") (setq Mo "NOVEMBER"))
		((= Mo "12") (setq Mo "DECEMBER"))
	);cond 
  (setq Date (strcat Mo " " (substr a 7 2) "," (substr a 1 4)))
  
  (Jaga04aTxCh Date) 
(princ));defun

;====================================================
(defun c:Date3 ( / a Mo Date);MonYY

  (setq a (itoa (fix (getvar "CDATE"))))
  (setq Mo (substr a 5 2))  
  	(cond 
		((= Mo "01") (setq Mo "JAN"))
		((= Mo "02") (setq Mo "FEB"))
		((= Mo "03") (setq Mo "MAR"))
		((= Mo "04") (setq Mo "APR"))
		((= Mo "05") (setq Mo "MAY"))
		((= Mo "06") (setq Mo "JUN"))
		((= Mo "07") (setq Mo "JUL"))
		((= Mo "08") (setq Mo "AUG"))
		((= Mo "09") (setq Mo "SEP"))
		((= Mo "10") (setq Mo "OCT"))
		((= Mo "11") (setq Mo "NOV"))
		((= Mo "12") (setq Mo "DEC"))
	);cond 
  (setq Date (strcat Mo "/" (substr a 3 2)))
  
  (Jaga04aTxCh Date)
(princ));defun

;/////////////////////////////////////////



;=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+
;=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+
;JagaimoLisp関数 【Jaga04aTxCh】テキストチェンジ
;----------------------------------------------
;<引数>　NewTx 　入れたいテキストの内容
;テキストかマルチテキスト選択でNewTxに変更
;=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+
(defun Jaga04aTxCh (NewTx / Ent)			
	(setq Ent (entget (Jaga00ObjTx)))
	(setq Ent (subst (cons 1 NewTx )(assoc 1 Ent) Ent))
	(entmod Ent)
(princ "\n=========== JagaimoLISP.com ===========")
);defun
;=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+
;【Jaga00ObjTx】テキストかマルチテキストだけ選択
;----------------------------------------------------------
(defun Jaga00ObjTx( / Objs Obj Ent0 Flg)
     (setq Objs (ssget "_I" '((0 . "TEXT,MTEXT"))))
	(if Objs 
	    (setq Obj (ssname Objs 0))
		(progn
		    (setq Obj nil Flg "No")
			(while Flg
			     (while (null Obj)
				(setq Obj (car (entsel "\nSelect a TEXT/MTEXT: ")))
			      );while null Obj
			     (setq Ent0 (cdr(assoc 0 (entget OBJ))))
			     (if (or (= "TEXT" Ent0)(= "MTEXT" Ent0)(= "ATTDEF" Ent0)(= "INSERT" Ent0))
			         (setq Flg nil)
			         (setq Flg "No" Obj nil)
			     );if
			);while Flg
		);progn	
	);if
Obj		
);defun
;=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+

参考記事

３つのコマンドの共通部分、「テキスト/マルチテキストを選択」「文字の内容を変更」の部分は別に自作関数にして、３つのコマンドで使いまわしています。

【AutoLISP 自作関数】頻出パターンは自作関数にしてもっと便利に

図形を選択して図形名を変数Objに入れる。など、よく使うプログラムは、自作関数にすると、同じコードを何度も書かなく済みます。関数を作る(setq ....) (getpoint ...... ) などなど、それぞれの機能、働きがあって、Au...

jagaimolisp.com

2020.04.21

システム変数”CDATE”で得る日付情報は数値なので、関数itoaを使って整数を文字列に変換しています。

【AutoLISP 変換関数】 関数 itoa 整数を文字列に変換

整数を文字列にする関数　itoa の紹介です。予備知識AutoLISPでは、文字列と数字を区別します。””　がついた　"1"　 は文字列で、1　は数字です。数字が引数として欲しい関数に文字列を渡しても、文字列が欲しい関数に数字を渡してもエラ...

jagaimolisp.com

2020.05.17

条件式 cond を使って、月の数値から英語にしています。

【AutoLISP　条件式】関数 cond 複数の分岐

関数 if ではもし〇〇なら、それ以外なら、と2つしか選択肢ができません。関数 cond を使うと、〇〇の場合、××の場合、△△の場合…、と、複数の条件式を設定できます。関数　condcond は、多分岐条件関数と呼ばれる関数で、条件に合わ...

jagaimolisp.com

2020.05.31

図形選択について、フィルターをかけてテキストかマルチテキストのみ選択できるようにしています。

【AutoLISP Lesson 応用編】 図形選択　記事一覧　

フィルターをかけて、編集したい図形タイプや画層だけを選択できる方法など、図形選択の応用編です。グループ選択でフィルターをかけるssget で、選択セットを作る際に、フィルターをかけて欲しい図形だけを選択できます。1つの図形選択でフィルターを...

jagaimolisp.com

2020.05.02

関数 subst と entmod を使い、テキスト/マルチテキストの内容を書き換えています。

【AutoLISP DXF情報】DXF図形情報を書き換える 関数substとentmod

DXF図形情報からは、図形の情報を得るだけでなく、書き換えて図形編集することもできます。予備知識図形からDXF図形情報を得る方法はコチラの記事をDXF図形情報(setqEnt(entget(car(entsel))))このコードで、ents...

jagaimolisp.com

2020.05.25