topic LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit in Visual LISP, AutoLISP and General Customization Forum

LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit

karpki — Mon, 05 Apr 2021 18:45:47 GMT

The LISP is brilliant ang gives such result in the test file:

I need to hide first 4 digits from the name of the tag:

Before I used to add this kind of code for this purpose:

(setq lname(substr (setq str2 (car d)) 5 (- (strlen str2) 0)))

(vla-setCellValue Area_table crow 0 lname)

But here in this LISP I don't understand where to put something like that

Help needed please!

Thank you in advance for your interest!

Re: LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit

karpki — Mon, 05 Apr 2021 18:48:25 GMT

Forgot to tell, the simple correction of tag names is not the right way!

Re: LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit

devitg — Mon, 05 Apr 2021 22:18:09 GMT

@karpki I try it , but do not work

(and (setq tag (if (cdr lst) (LM:listbox "Select Tags to Display" (mapcar 'car lst) 1) (mapcar 'car lst))) (setq ins (getpoint "\nSpecify point for table: ")) ;(setq tag (list (substr (car tag) 5 (- (strlen (car tag)) 0)))) )

Re: LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit

Lee_Mac — Mon, 05 Apr 2021 23:04:51 GMT

I'm pleased that you find my Sum Attributes program so useful.

To remove the first 4 characters from the displayed tag name, change line 112 from:

(setq lst (attsum:assoc++ (strcase (vla-get-tagstring att)) (fun att val) lst))

To:

(setq lst (attsum:assoc++ (strcase (if (< 4 (strlen (vla-get-tagstring att))) (substr (vla-get-tagstring att) 5) (vla-get-tagstring att))) (fun att val) lst))

Re: LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit

karpki — Tue, 06 Apr 2021 18:10:50 GMT

Hi Lee, glad to hear from you!

Thank you for your reply!

Indeed it was minused but the data order became wrong:

Ii should start from WF in this list

How to turn it back ?

Best Regards

Re: LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit

karpki — Tue, 06 Apr 2021 19:53:50 GMT

Hidden figures in the tag name should make an order in the tab.

Probably this is not possible here in this logic.

Normally I will have a list of 50-100 tag names and they should be in the correct order according the figures in the beggining of the name

But those figures are quite bad presenting in tab to see them

Re: LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit

Lee_Mac — Tue, 06 Apr 2021 23:01:54 GMT

In that case, revert to the original code, and instead change lines 120-122 from:

        (   (and (setq tag (if (cdr lst) (LM:listbox "Select Tags to Display" (mapcar 'car lst) 1) (mapcar 'car lst)))
                 (setq ins (getpoint "\nSpecify point for table: "))
            )

To:

        (   (and (setq lst (mapcar '(lambda ( x ) (if (< 4 (strlen (car x))) (list (substr (car x) 5) (cadr x)) x)) lst))
                 (setq tag (if (cdr lst) (LM:listbox "Select Tags to Display" (mapcar 'car lst) 1) (mapcar 'car lst)))
                 (setq ins (getpoint "\nSpecify point for table: "))
            )

Re: LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit

karpki — Wed, 07 Apr 2021 17:22:02 GMT

Thank you!

Superb!

Re: LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit

karpki — Wed, 07 Apr 2021 17:29:08 GMT

Oh, no!

Yes, it builds the tab by the correct order but

Unfortunatelly it ignores all the blocks and count only one of each different name

Re: LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit

Lee_Mac — Wed, 07 Apr 2021 17:53:29 GMT

Apologies - it should be the following:

        (   (and (setq lst (mapcar '(lambda ( x ) (if (< 4 (strlen (car x))) (cons (substr (car x) 5) (cdr x)) x)) lst))
                 (setq tag (if (cdr lst) (LM:listbox "Select Tags to Display" (mapcar 'car lst) 1) (mapcar 'car lst)))
                 (setq ins (getpoint "\nSpecify point for table: "))
            )

Re: LISP by LeeMac SumAttributes.lsp | Version 1.1 to small edit

karpki — Wed, 07 Apr 2021 19:14:01 GMT

Yes!!!!!!!!!!!!!!!

Thank you very much!