topic Re: Search String Lisp in AutoCAD Forum

Search String Lisp

Anonymous — Wed, 28 Jul 2021 19:23:07 GMT

Hi guys!

Please help me with a small issue.

Is there any free .lsp that can search a specific string in a drawing and then use it in a formula? 🤔

Let me explain further. I have lots of dxf files, all of them having the following text string “TOTAL LENGTH:XXX” (XXX is variable). I need to enter every file and dimension some specific 2D objects with various lengths. I made the following lisp in which I set a dimension style as per my needs, but the dimension text height should be updated for every file at a time.

(defun c:dsq()(command "dimclrt" "7" "" )(command "dimasz" "1" "" )(command "dimtxt" "1" "" )(command "dimclrd" "1" "" )(command "dimclre" "1" "" )(command "dimscale" "1" "" )(command "dimdec" "0" "" )(command "dimtvp" "0.7" "" )(command "dimtih" "OFF" "" )(command "dimtoh" "OFF" "" )(command "dimexo" "0" "" )(command "dimexe" "0.8" "" )(command "dimcen" "2" "" )(command "dimtofl" "ON" "" )(command "dimtfill" "0" "" )(princ))

So i want that XXX to be included at dimasz/dimtxt and then set dimension text height => length value / 40 (this is an acceptable factor for any length).

Any hints will be highly apreciated!

Re: Search String Lisp

Kent1Cooper — Wed, 28 Jul 2021 19:55:35 GMT

@Anonymous wrote:

.... (command "dimclrt" "7" "" )(command "dimasz" "1" "" )(command "dimtxt" "1" "" )(command "dimclrd" "1" "" )(command "dimclre" "1" "" )(command "dimscale" "1" "" )(command "dimdec" "0" "" )(command "dimtvp" "0.7" "" )(command "dimtih" "OFF" "" )(command "dimtoh" "OFF" "" )(command "dimexo" "0" "" )(command "dimexe" "0.8" "" )(command "dimcen" "2" "" )(command "dimtofl" "ON" "" )(command "dimtfill" "0" "" ) ....

I could probably come up with something for the DIMASZ/DIMTXT part, but not right now. In the meantime, I suggest you set those dimensioning variables with (setvar) rather than (command), because it will shorten the code and will be faster [though with this number of settings, you may not notice the time difference]. The numerical values can be just numbers without quotation marks; a couple of them want a number 0 when done this way, rather than a text string "OFF" when done as a command. You won't need the "" Enters at the ends. And the System Variable names can be preceded by just an apostrophe, rather than enclosed in double-quotes before and after. Try:

.... (setvar 'dimclrt 7) (setvar 'dimasz whatever) (setvar 'dimtxt whatever) (setvar 'dimclrd 1) (setvar 'dimclre 1) (setvar 'dimscale 1) (setvar 'dimdec 0) (setvar 'dimtvp 0.7) (setvar 'dimtih 0) (setvar 'dimtoh 0) (setvar 'dimexo 0) (setvar 'dimexe 0.8) (setvar 'dimcen 2) (setvar 'dimtofl ON) (setvar 'dimtfill 0) ....

Re: Search String Lisp

Anonymous — Wed, 28 Jul 2021 20:37:05 GMT

Thanks for the reply @Kent1Cooper!

I’ll change the code as mentioned.

If you can take a look at the DIMASZ/DIMTXT part, i’ll be grateful 🤝

Re: Search String Lisp

Kent1Cooper — Wed, 28 Jul 2021 20:48:33 GMT

@Kent1Cooper wrote:
.... (setvar 'dimtofl ON) ....

Missed one adjustment -- that should be (setvar 'dimtofl 1) .