construction note lisp

[mgonzales]

does anyone have a construction note lisp routine?

[flowerrobot]

Could you be alot more specific, there is a large varity of construction notes

[mgonzales]

well you would create a list of construction notes in notepad with a space between each note example

 

install 10 pvc per std

 

install 18" pvc per std

 

and so on, you would save the list go into your drawing and run a lisp routine that would place a callout bubble on your drawing and from the list of note you created you would put note 1, 2, 3 and so on on your drawing and if there was a note not needed on that drawing but you needed on the next drawing in your set of plans it would only place the notes being used in the drawing and you could update these at any time.

 

i have an avi file that explains and shows how it works but i can not upload it because it is to large.

[Lee Mac]

This will perhaps start you off:

 

(defun c:note (/ fpath doc spc iPt file nStr)
 (vl-load-com)

 (setq fpath "C:\\" ) ;; filename of notes.txt

 (setq doc (vla-get-ActiveDocument
             (vlax-get-acad-object))
       spc (if (zerop (vla-get-activespace doc))
             (if (= (vla-get-mspace doc) :vlax-true)
               (vla-get-modelspace doc)
               (vla-get-paperspace doc))
             (vla-get-modelspace doc)))

 (cond ((not (findfile fpath))
        (princ "\n** Notes File could not be Found **"))

       ((not (setq iPt (getpoint "\nSpecify Point for Note: "))))         

       (t

        (vla-StartUndomark doc)
        (setq file (open (findfile fpath) "r") nStr "")
        (while (setq nl (read-line file))
          (setq nStr (strcat nStr nl "\\P")))
        (close file)

        (vla-AddMText spc (vlax-3D-point iPt) 0 nStr)
        (vla-EndUndoMark doc)))

 (princ))
        

[mgonzales]

thanks for the help

[flowerrobot]

Why not just use a dynamic block?

[mgonzales]

not only do i need to ba able to create a list of notes, but i need to be able to place my call outs on the drawing and from those callouts it will generate a list of construction notes i would have set up for that particular set of plans.

[Lee Mac]

Did my program work for you?

[mgonzales]

i loaded it but have not really got into it yet, i ran it, but it looks like i have to creat a text file then whever i place that file i need to make sure that i change it to look into the right directory.

i need it to ask me where the file is i want to load kind of like using a browser to look through your directories.

[PS_Port]

This is a nice little standard text inserting routine from CAB..

TextInsertDCL8-0.zip

[mgonzales]

cool i will check it out.

[Lee Mac]

i loaded it but have not really got into it yet, i ran it, but it looks like i have to creat a text file then whever i place that file i need to make sure that i change it to look into the right directory.

i need it to ask me where the file is i want to load kind of like using a browser to look through your directories.

 

I wondered whether a prompt on every use would get annoying

[stevesfr]

does anyone have a construction note lisp routine?

 

Didn't CAB have a textinsert lisp posted somewhere? Can't seem to locate it quickly now. However it should be a great start.

[Lee Mac]

Didn't CAB have a textinsert lisp posted somewhere? Can't seem to locate it quickly now. However it should be a great start.

 

Its already been posted