属性の図形名のリストを取得

自作のLISP関数（サブルーチン）の紹介です。

内容

ブロックの図形名から、ブロックに含まれる属性の図形名をリストで返します。

使用方法

(y_zokusei [図形名])

例：

(y_zokusei (car (entsel)))

戻り値

例：

(<図形名: 1ca392dbdb0> <図形名: 1ca392dbdc0>)

ソースコード

(defun y_zokusei(
	E_NAME
	/
	I
	TAG_LIST
	)
	(while (/= "SEQEND" (y_dxfdata 0 (entget (setq E_NAME (entnext E_NAME)))))
		(setq TAG_LIST (append TAG_LIST (list E_NAME)))
	)
)

y_dxfdataはこちらを参照してください。