Auto number attribute lisp fix

[irneb]

BTW, for those who can / want to add other custom formats, all you need do is create a lisp defun with the following:

(defun AINC:CUSTOM:YourFormatName (num dgt prec)
  ;;Whatever you need to do to convert the real value of num
  ;;to a string with dgt (minimum) numbers before the decimal
  ;;point and prec (exactly) numbers after.
  ;;The result MUST be a string, even an empty string is fine
)

The rest will handle it on its own, the dialog will show only the red marked portion of your defun's name in the drop-down (unfortunately only in capital letters though).

[xiaxiang_2004]

thanks
the new version is received,and all seem like good.And... I have some suggestion....later.
Thanks!

[Mater]

I download your lisp and found it very useful and it will save me tons of time. There is one thing I wish it could do a little easier.

I have multiple items that need the same labels. Is there a way to make it keep labeling the same letter or number until the user pushes Enter? For example I would label 3 items "A" then hit enter, label the next 2 items "B" and hit enter and the next 4 would be "C" and so on. With the way it is now I could do this but there is a lot of back and forth with the window dialog as apposed to just clicking and Enter.

Thanks.

[irneb]

Which of the 2 are you referring to? The AutoIncr or the older Increment? I can see changing the old one to this much more easily, as the later would need a bit of rewriting (don't really want to recode too much).

[Mater]

I was refering to the older Increment one. If this could be done it would help a lot.

Thanks

[xiaxiang_2004]

Dear irneb:
First of all I would like Pay tribute to you,"AutoIncr.0.23.LSP" is a best program.
And Sorry to bother you,but I have a suggestion that is not so good.I've been thinking these days,but what is the "group"?
Maybe "1,2,3,4......Infinity" is a group,or "1,3,5......Infinity".Sometimes I need a group like "1,5,2,6", This is a grouping of no rules. I would like to import one "rules" from outside , that's mean txt (Text format),We can Save the contents of grouping in that one,Including the number and content of the text.For example,I have one "1.txt",It
includes the following information "2,3,4,5,6,7,8,9,12,13,14,15,16,17,18,19,22,23,24,25,26,27,28,29,32,33,34,35,36,37,38,39".
So I can Re-grouping from 2 to 39 According to my rules, and Automatically end grouping at the right time when "39" Appears .In this process, I can Random end grouping,then Start the next grouping.
I do not know whether to do, it seems very difficult,But I really needed it.Many guys also need it.
Thank you,All the best regard to you.

[xiaxiang_2004]

BTW, for those who can / want to add other custom formats, all you need do is create a lisp defun with the following:

(defun AINC:CUSTOM:YourFormatName (num dgt prec)
  ;;Whatever you need to do to convert the real value of num
  ;;to a string with dgt (minimum) numbers before the decimal
  ;;point and prec (exactly) numbers after.
  ;;The result MUST be a string, even an empty string is fine
)

The rest will handle it on its own, the dialog will show only the red marked portion of your defun's name in the drop-down (unfortunately only in capital letters though).

I could not understand
For example,one custom format like this"
2,3,4,5,6,7,8,9,12,13,14,15,16,17,18,19,22,23,24,25,26,27,28,29,32,33,34,35,36,37,38,39".
How Programming？

[irneb]

Sorry for the delay, was a bit busy

You could do something like use the octal formatting with some changes in that one. E.g.:

(defun AINC:CUSTOM:Octal+2 (num dgt prec / str)
  ;; Get the normal Octal representation
  (setq str (AInc:Num2Base num (assoc "OCT" AInc#Types) prec))
  ;; Increment each digit by 2 and return
  (vl-string-translate "01234567" "23456789" str)
)

There's probably other ways of doing this as well

If you've got this loaded, the settings dialog should show an option in the Custom format's drop-down called OCTAL+2 ... which should then use this function instead. Unfortunately it's not entirely correct, since you get the following list:

("2" "3" "4" "5" "6" "7" "8" "9" "32" "33" "34" "35" "36" "37" "38" "39" "42" "43" "44" "45" "46" "47" "48" "49" "52" "53" "54" "55" "56" "57" "58")

So actually you only want the last digit to be translated to +2 ... thus:

(defun AINC:CUSTOM:Octal+2Last (num dgt prec / str)
  ;; Get the normal Octal representation
  (setq str (AInc:Num2Base num (assoc "OCT" AInc#Types) prec))
  ;; Increment last digit by 2 and return
  (strcat 
    (substr str 1 (1- (strlen str))) 
    (vl-string-translate "01234567" "23456789" (substr str (strlen str)))
  )
)

Which gives exactly what you wanted, i.e.

("2" "3" "4" "5" "6" "7" "8" "9" "12" "13" "14" "15" "16" "17" "18" "19" "22" "23" "24" "25" "26" "27" "28" "29" "32" "33" "34" "35" "36" "37" "38")

[irneb]

There was a slight error with my code, the custom format didn't update correctly in the dialog. Please see the revision 25 on the SVN: http://caddons.svn.sourceforge.net/v...r.LSP?view=log

Also I've worked on a version which would use a file as the list from which it increments.

(defun AINC:CUSTOM:MyCustom_From_File (num dgt prec / MyCustom_From_File:Load)
  (defun MyCustom_From_File:Load (/ fn f str lst)
    (if (and (setq fn (findfile "MyCustomIncr.TXT"))
             (setq f (open fn "r"))
        )
      (progn
        (while (setq str (read-line f))
          (setq lst (cons str lst))
        )
        (close f)
        (setq *MyCustom_From_File:List* (reverse lst))
      )
    )
  )

  (or *MyCustom_From_File:List* (MyCustom_From_File:Load))

  (if (not *MyCustom_From_File:List*)
    (itoa (fix num)) ;If there's no custom list just get an integer
    (nth (rem (fix num) (length *MyCustom_From_File:List*)) *MyCustom_From_File:List*)
  )
)

Then the file should be named MyCustomIncr.TXT and placed on your support path. It's simple a text file with each consecutive increment on a new line, e.g.

Zero'th
First
Second
Third
Fourth
Fifth
Sixth
Seventh
Eigth
Ninth
Tenth
Eleventh

Although it simply keeps on repeating the same sequence, so the 12th position would show as Zero'th.

[xiaxiang_2004]

Thanks ,let me try it.First of all thank you for your serious，While I have not fully read.
Thanks!