0 Members and 1 Guest are viewing this topic.
(defun Test (/ AcadObj ActiveCodePaneObj CodeModuleObj Name VBEObj) (setq Name (getstring "\nEnter your name: " t)) (setq AcadObj (vlax-get-acad-object)) (setq VBEObj (vla-get-VBE AcadObj)) (setq ActiveCodePaneObj (vlax-get-property VBEObj 'ActiveCodePane)) (setq CodeModuleObj (vlax-get-property ActiveCodePaneObj 'CodeModule)) (vlax-invoke-method CodeModuleObj 'AddFromString (strcat "Sub Test()\nMsgBox \"" "Hello " Name "\"\nEnd Sub") ) (vl-vbarun "Test") (foreach Obj (list AcadObj VBEObj ActiveCodePaneObj CodeModuleObj) (vlax-release-object Obj) ) (gc))
(vlax-invoke codeModuleObj 'Find "Sub Test" ;; What 0 ;; StartLine 0 ;; StartColumn (vlax-get codeModuleObj 'CountOfLines) ;; EndLine 100 ;; EndColum)