|
Here's something that you could maybe build on
: ;AUTOLISP CODING STARTS HERE (prompt "\nType AddNote to run.") (defun C:AddNote ( / ss1 pt1 pt2 ar ao thenote) (setq ar "I") (setq ao "O") (setq ar (getstring "\nRemove/Insert <I> : ")) (if (= (strcase ar) "R") (progn (setq ss1 (ssget)) (command "-HYPERLINK" "R" ss1 "" "*") );progn (progn (setq ao (getstring "\nArea/Object <O> : ")) (if (= (strcase ao) "O") (progn (setq ss1 (ssget)) (setq thenote (getstring T "\nEnter Note : ")) (command "-HYPERLINK" ar ao ss1 "" "" "" thenote) );progn (progn (setq pt1 (getpoint "\Enter first point : ")) (setq pt2 (getcorner pt1 "\nEnter second point ")) (setq thenote (getstring T "\nEnter Note : ")) (command "-HYPERLINK" ar ao pt1 pt2 "" "" thenote) );progn );if );progn );if (princ) );defun (princ) ;AUTOLISP CODING ENDS HERE Save this as "AddNote.lsp" |
|