AutoCADマクロ屋本舗 掲示板

テキストで
---------------
あああああ
ａｂｃ
１２３４
---------------
をコピー（クリップボード格納）したものを図面上の
選択座標にTEXTで「あああああ」
選択座標から（Y座標－指定値）の位置に「ａｂｃ」
さらに直前の座標から（Y座標－指定値）の位置にに「１２３４」
のように書き込みたい。
元のテキストの行数は変動あり。
"指定値"は　文字高×1.2　のように考えています。

このようなLISPコードを作って頂けないでしょうか。

こんなんじゃない！　かもですが、

(defun C:test ( / pt pt1 ent th tt)
(if (not (setq th (getreal "\n文字高さ："))) (setq th 2.5))
(if (setq pt (getpoint))
(progn
(command "pasteclip" "non" pt)
(setq ent (entget (entlast)))
(if (= (cdr (assoc 0 ent)) "MTEXT")
(progn
(setq ent (subst (cons 40 th) (assoc 40 ent) ent))
(setq pt1 (list (car pt) (+ (cadr pt) th) (caddr pt)))
(setq ent (subst (cons 10 pt1) (assoc 10 ent) ent))
(setq tt (* 1.2 0.6))
(setq ent (subst (cons 44 tt) (assoc 44 ent) ent))
(entmod ent)
)
)
)
)
(princ)
)