Rod was nice enough to setup a routine that I could use within Civil3D General Note Label. Basically, you set your own style and then pick a spot then type in what you would like the routine to say.
(defun note (point text)
(command "addnotelabel" point "")
(setq obj (vlax-ename->vla-object (entlast)))
(vlax-put-property obj 'LabelTextContent text)
)
(defun C:test ()
(note (getpoint "\nPick a point")(getstring "\nEnter text"))
)
Im trying to figure out how to add a get function with either text or mtext. Take that value and place within the general label style.
I have an example that is similar in taking text to a MLeader that I have been messing with, but still trying to get the values to work. So I figured Id ask.
(defun c:mt2ml ( / oobj nobj nstrg)
(vl-load-com)
(command ".cmleaderstyle" "L80 Leader Text Straight")
(setq oobj (vlax-ename->vla-object (car (nentsel "\nSelect source text: "))))
(if (= (vlax-get-property oobj 'ObjectName) "AcDbMText")
(setq nstrg (vlax-get-property oobj 'TextString))
(exit)
)
(command "_MLEADER")
(while (= 1 (logand (getvar "CMDACTIVE") 1)) (command PAUSE))
(setq nobj (vlax-ename->vla-object (entlast)))
(if (= (vlax-get-property nobj 'ObjectName) "AcDbMLeader")
(vlax-put-property nobj 'TextString nstrg)
(exit)
)
(entdel (vlax-vla-object->ename oobj))
(princ)
); defun
Thank you for any direction!