LISPでブロック内に図形を作図したいです。

[ata.ta]

ブロック内にLISPで図形(テキスト、線分等)を作図したいのですが、可能でしょうか。
また可能な場合どのように書いたらよいのでしょうか。

[風車 · Accepted solution]

おそらく、ブロックの再定義になると思います

簡単なLISPを作成したので、参考にしてください。

(defun BlockAdd (bname Add_list / blk ent ent_data)

(setq blk (entget (tblobjname "block" bname))
ent (assoc -2 blk)
blk (append (reverse (cdr (member ent (reverse blk))))
(cdr (member ent blk)))
ent (cdr ent)
)

(entmake blk)

(while ent
(setq ent_data (entget ent))
(entmake (cdr ent_data))
(setq ent (entnext ent))
)

(foreach ent_data Add_list
(entmake ent_data)
)

(entmake '((0 . "endblk")))
)

[ata.ta]

すみません、Add_listには何を入れたらよいのでしょうか？

[風車 · Accepted solution]

Add_list には、entmake するための、リストのリストをいれます。

例）'( ((0 . "POINT")(10 0 0 0)) ((0 . "LINE")(10 0 0 0)(11 100 100 0)))

[ata.ta]

ありがとうございます。

おかげさまでやりたい事ができるようになりました。

このような方法があるんですね、勉強になりました。