Topic: Storing notes in a dwg

[nivuahc]

Mine went from about 27,000K to about 28,500K with usage.

Snappy routine!  

[nivuahc]

Mark, the terminology on the command line is a bit confusing. I'm used to seeing something like

Specify start point of text or [Justify/Style]:

Yours says

Read / Write xNotes [Add View]:

When I first ran it I typed W to write a note... perhaps it would be better presented like this:

Read and write xNotes for this drawing [Add/View]:

Or something like that with the default being Add if the user should press enter.

Just a suggestion.

[Mark]

good point. I just through that in there for a test, I want to make _one_ dialog box for the whole thing.

[Mark]

new version. one dialog box. start with 'myxnotes'

http://www.theswamp.org/swamp.files/mark/MyxNotes.lsp

the code is still messy!

[MSTG007]

NOT TO SHABBY

[CAB]

Neat-o Mark,
Just tried it out.
One thing, when you type a long note the note scrolls in the entry window
but when you retrieve the notes the note in the view window doesn't wrap.
Did you have plans to high lite the existing note and have it appear in the
entry window so you can edit & or view the entire note?

[nivuahc]

Ditto what CAB just said ^^

[Mark]

Neat-o Mark,
Just tried it out.
One thing, when you type a long note the note scrolls in the entry window
but when you retrieve the notes the note in the view window doesn't wrap.
Did you have plans to high lite the existing note and have it appear in the
entry window so you can edit & or view the entire note?

haven't got that far yet! good idea though. right now if you just select an existing note and click OK it will print to the command line.

[CAB]

Something like this? I'm sure you can do better.
It messed up your return string at the command line though.

Code: [Select]

 (defun build-xnotes-lst (lst / notes_lst notes)
    (foreach item lst
      (setq notes (cdr (assoc 301 item)))
      (setq notes_lst
             (append
               (list
                 (strcat
                   (cdr (assoc 2 item))
                   "  "
                   (cdr (assoc 300 item))
                   "  "
                   (substr notes 1 40)
                 )
               )
               notes_lst
             )
      ); set
      (if (> (strlen notes) 40)
        (progn
          (setq idx 41)
          (while (< idx (strlen notes))
            (setq notes_lst
             (append
               (list
                 (strcat
                   "                  "
                   (substr notes idx 40)
                 )
               )
               notes_lst
             )
           ); set
           (setq idx (+ idx 40))
          ); while
        )        
      ); endif
   
    ); foreach
    (reverse notes_lst)
  )

PS i know you are buisy, so don't mess with this now, if you are Swamped.
Couldn't resist.