0 Members and 1 Guest are viewing this topic.
(defun C:TEST () (acad_truecolordlg 1 T))
(foreach item '(ACAD_TRUECOLORDLG INITDIA ACAD-POP-DBMOD ACAD-PUSH-DBMOD) (vl-arx-import item))(defun C:TEST101 () (alert "In seperate Namespace file") (acad_truecolordlg 1 T))
(vl-doc-export 'testarx)
If you read the documentation, I'm not importing files, I'm importing functions(symbols)
;; This file is intended to be compiled as a Seperate NameSpace .VLX;; Remember that a Separate NameSpace .VLX must be explicitly unloaded before it can be reloaded.;;;; CodeHimBelonga kdub 20101201;;(defun c:Test102 (/ pta ptb ) (if (and (setq pta (_Getpoint102a)) (setq ptb (_Getpoint102b)) ) (alert (strcat "Test102 in Seperate NameSpace." "\n Point a " (vl-princ-to-string pta) "\n Point b " (vl-princ-to-string ptb) ) ) ) (princ));; _Getpoint102a will be exposed to the Document NameSpace(vl-doc-export '_Getpoint102a);; Uncomment the following line to expose _Getpoint102b to;; any document namespace that loads the VLX.;; (vl-doc-export '_Getpoint102b)(defun _Getpoint102a () (getpoint "\n_Getpoint102a : Select a Point"))(defun _Getpoint102b () (getpoint "\n_Getpoint102b : Select a Point"))(princ "\n Test102 loaded. Enter 'Test102' at the Command Line.")(princ)