You are missing the data to be associated with a reactor object; otherwise nil, if no data
Code:
(vl-load-com)
(setq NewDimReactor (vlr-acdb-reactor nil '((:vlr-objectAppended . My_Dim_Reactor))))
Then you have to figure out some kind of filter in the function . . .
run my code when creating different objects . . .and be surprised when dimensions.
Code:
(defun My_Dim_Reactor (Reactor_Name New_Object / Item End e1 dis)
(alert (cdr (assoc 0 (entget (cadr New_Object )))))
;(alert (cdr (assoc 0 (entget (entlast)))))
)
: ) Happy Computing !
kennet