Topic: attribute edit

[MP]

Sorry, unless you provide more info I can't help you.

[AIberto]

Sorry, unless you provide more info I can't help you.

Dear MP

I invited a friend to help me test , He is a  Lisp Master.  At his side. Still Error .

[AIberto]

if prompt is empty , test Error.
if prompt is not empty .test ok!

[MP]

Have LISP master substitute "-" instead of (chr 160).

[AIberto]

Have LISP master substitute "-" instead of (chr 160).

Dear MP ,I can't understand.

[kdub_nz]

I'd assume Michael means :
Change this :

Code - Auto/Visual Lisp: [Select]

1.     (defun _GetPrompt ( attrib / result )
2.         (if (eq "" (setq result (_Trim (vla-get-promptstring attrib))))
3.             (chr 160)
4.             result
5.         )
6.     )
7.  

to this :

Code - Auto/Visual Lisp: [Select]

1.     (defun _GetPrompt ( attrib / result )
2.         (if (eq "" (setq result (_Trim (vla-get-promptstring attrib))))
3.             ;;("-") fix error:kdub
4.             "-"
5.             result
6.         )
7.     )
8.  

note : I haven't followed the complete thread so I may be incorrect.

edit:repair error

[MP]

Yes + thanks. I'm at work and cannot play.

[MP]

Actually "-", not ("-"). Missed as I'm viewing on my diminutive phone. Thx KB.

[Marc'Antonio Alessi]

Strange... to me it works without any modification, if I add a print before dos_proplist:

Code: [Select]

...
                   (print
                      (mapcar
                       (function (lambda ( a ) (cons (car a) (cadr a))))
                        attribs
                      )
                    )
                    (setq result
                        (dos_proplist "MyEd" "Modify Attributes"
                            (mapcar
                                (function (lambda ( a ) (cons (car a) (cadr a))))
                                attribs
                            )
                        )
                    ) 
...
    (defun _GetPrompt ( attrib / result )
        (if (eq "" (setq result (_Trim (vla-get-promptstring attrib))))
            (chr 160)
            result
        )
    )  I get:

((" " . "Mark") (" " . "Male") (" " . "NO.4") (" " . "15"))
    ^ space

[MP]

The mod was only meant for AIberto as I suspect the character set on his computer is making DOSLIB chuck a wobbly.

But thanks for testing sir!

[Marc'Antonio Alessi]

The mod was only meant for AIberto as I suspect the character set on his computer is making DOSLIB chuck a wobbly.

But thanks for testing sir!

Prego Brav'uomo. 

[AIberto]

Thanks MP & kb

problem solved ! You're a good guy

[JohnK]

I had heard of the Turkey test a while ago but I ignored it for the most part; when would my code ever be run by anyone in Turkey (which, after reading up on the subject I learned that, isn't the point) and/but no one, besides me, runs my code. ...The above is a good example of the Turkey test and I think I am finally going to take the problem more seriously and start reading up on it again.

Great detective work, MP!

ref: Turkey test

[MP]

Thanks AIberto; John.

FYI, I dumped the notion of using the attribute prompts. As David had mentioned, if there is not perfect synchronization between attribute sequencing and the associated block def the prompting would be out of wack. Worse, if attributes instances are created completely independent of a block def, e.g. AutoCAD Electrical, prompts are not to be realized.

The program in my original post was modified accordingly. It still sorts the attributes from top to bottom, left to right, but displays the tags instead of the prompts, thus should work on any insert with attributes, regardless how the attributes were birthed.

Cheers.