ブロック内にLISPで図形(テキスト、線分等)を作図したいのですが、可能でしょうか。
また可能な場合どのように書いたらよいのでしょうか。
解決済! 解決策の投稿を見る。
回答者: 風車. 解決策の投稿を見る。
回答者: 風車. 解決策の投稿を見る。
おそらく、ブロックの再定義になると思います
簡単な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")))
)