diesel expression:Counting down from the end
@Vuxvix wrote:
.... Because BBBB item is not fixed number of letters. Is there any way to remove the CCCC part. By way of counting down from the end?....
AutoLisp can do that easily, with the (vl-string-position) function, which can find the position of the last hyphen in a string by looking for it from the end. The Diesel functions reference does not list any function that appears capable of doing the same. Is AutoLisp code an option for you?
@Vuxvix wrote:
My file name form: AAAA-BBBB-CCCC ....
The result I want is: BBBB. ....
-- and --
this is my example for Drawing's name: R-03-06_4FPlan (Drafting).
I just need: "4FPlan" to display as title in Drawing frame.
....
Those are very different. Are you looking for the part between two hyphens, or the part between an underscore character and a space? Are there any other configurations?
@Vuxvix wrote:
Follow the way of counting the number of letters as the original way.
I have given the form in an A-B-C Form.
Part [-C]: will depend on the type of drawing. With [space], [-] or [a specified character after], can lisp do it!? Thanks
I doubt it can do it reliably, given the examples. Both AAAA-BBBB-CCCC and R-03-06_4FPlan (Drafting) contain two hyphens; in one of them you want what's between the hyphens, but in the other you want something else. You're going to need some criteria that are more consistent.
@Vuxvix wrote:
Hi!
this is my example for Drawing's name: R-03-06_4FPlan (Drafting).
I just need: "4FPlan" to display as title in Drawing frame.
I still dont see why what you had on your diesel expression wouldnt work if the number of characters for the PREFIX and SUFFIX is constant.
Unless you have different cases like the one you just posted as R-03-06_4FPlan (Drafting).dwg then you may need to use a system variable for the for both No.1 and No.2 assign via lisp
$(substr,$(getvar,dwgname),$(getvar,useri1),$(-,$(getvar,useri2),$(getvar,useri1)))(defun RunAtStartpp ()
(cond
((zerop (getvar 'DwgTitled)))
((And
(setq fname (getvar 'dwgname))
(setq p (vl-string-position 32 fname nil t ))) ; space
(setvar 'USeri1 9)(setvar 'USeri2 (1+ p))
)
((setq p (vl-string-position 45 fname nil t )) ; Hyphen/dash
(setvar 'USeri1 6)(setvar 'USeri2 (1+ p))
)
)
)
[ One just need to add more conditions ]
OR just this if you're going to with the lisp route
$(getvar,users1)(defun RunAtStartpp ()
(cond
((zerop (getvar 'DwgTitled)))
((And
(setq fname (getvar 'dwgname))
(setq p (vl-string-position 32 fname nil t))
) ; space
(setvar 'Users1 (substr (getvar 'dwgname) 9 (- (1+ p) 9)))
)
((setq p (vl-string-position 45 fname nil t)) ; Hyphen/dash
(setvar 'Users1 (substr (getvar 'dwgname) 6 (- (1+ p) 6)))
)
)
)
@Vuxvix wrote:
Because I have had cases where Fields show #### results on other PC.
Thats the bit that concerns me. Why would it behave that way on other PC?
Is it because its Autocad LT?
So Message 1 should have started with:
My file name form: AAAA_BBBB CCCC
Is that correct?
@Kent1Cooper wrote:
So Message 1 should have started with:
My file name form: AAAA_BBBB CCCC
....
If that's the real situation, and there is only one underscore character and one space, then there's no need to find the space by counting back from the end. That would only have been necessary in the original format containing two of the same character [hyphens] that you want to break it around.
This will get what you want out of a string like the above:
(setq str "AAAA_BBBB CCCC")
(substr str (+ (vl-string-position 95 str) 2) (- (strlen str) (vl-string-position 32 str) 1))
returns "BBBB". If the string is just "A_B C", it returns just the "B". Etc.
@Vuxvix wrote:
....
@pbejse:
....
-As you said, every other computer in my office uses Autocad Lt. People here rarely use hotkeys, let alone lisp.
@Kent1Cooper:
-I also don't know how to use your lisp code. Does that create a Field in the Field list to choose from!?
Since AutoCAD LT does not support AutoLisp at all, my code will be of no use to your other users.
But where you can use it, my code does nothing other than get the substring out of the longer string. That can be used in whatever way is needed, by other code.
