HI,
Good Day..
new to forum here,
looking for help in VBA CODE (I need help to convert Autocad LISP code to VBA(Excell) code.
MY CODE IS FOLLOWING
(defun c:BlocksSelectOnebyOne ( / ss ent i)
(if (setq ss (ssget "_X" '((0 . "INSERT") (410 . "Model"))))
(repeat (setq i (sslength ss))
(setq ent (ssname ss (setq i (1- i))))
(command "_.PSELECT" ent "")
(command "plantorthoannotate" pause "" "BOM_MEM_ID" pause"" "5" "")
(getkword "\nSelect <next block>: ")))
(princ)
)
Your help in this highly appreciated.
Regards
SACHIN(ZENER)
