QwikRepeat.lsp

[madcadder]

This is a set of code that I've been tinkering with for years.
I've yet to have the skill set, time, energy, etc. to make it GRAND(!) and now that I'm working as a Buyer more than a draftsman I have little time in the day to do any real tinkering.

So, I'm releasing it, as is, for the greater minds than mine to tweak and twist into the greatness that I know it will be.

All I ask is:
1) keep the header as is and add you name and mods to the revision history.
2) one person at a time step up and make the claim that they will work on it and post their mods/adds. Everyone else waits to see their greatness and go from there.

This is my baby. I can't believe I'm giving it up, but in order for it to grow I need to step back and just be a proud parent.

Thank you all and I await to see your results.

[RobertB]

Yup, I've got something very similar. You took the same approach I did, except for the by-entity stuff (I hate by-entity).

Thanks for sharing with everyone.

[madcadder]

Again, with my limited skill set... the long, drawn out process was the only way I knew to make sure it included the entities I need.

I'd like to see your version sometime.

Or even better yet I love for you to be the first to mod.

[d_m_hopper]

this is very cool code, nice work!

this makes a great learning lisp tool in my opinion

[Mr Cory]

I agree it is very cool! :beer:

[kennet.sjoberg]

:beer: to your baby Tod,

replace

(WHILE (AND (NOT
(SETQ |object| (ENTSEL "\nSelect an object to invoke its command: "))
)
(/= 52 (GETVAR "ErrNo")) ; loop until entity selection is not: null response
)
)

with

;; Use the FIRST gripped object in a gripsel when pressing [Space] or [Enter]
(if (not (if (cadr (ssgetfirst)) (SETQ |object| (list (ssname (cadr (ssgetfirst)) 0 ) nil )) ( ) ) )
(WHILE
(AND
(NOT (SETQ |object| (ENTSEL "\nSelect an object to invoke its command: ")) )
(/= 52 (GETVAR "ErrNo")) ; loop until entity selection is not: null response
)
)
( )
)

but just if you like it . . .;)

: ) Happy Computing !

kennet

[madcadder]

:beer: to your baby Tod,

.....
but just if you like it . . .;)

: ) Happy Computing !

kennet

Nice add.... This will allow me to select a grip and then enter the command. Very useful. Thank you.

If you have any more like that I would greatly appreciate.

[ron_09812001]

thank you for sharing, this is a very nice one

[madcadder]

Even though it works great for a lot of commands it is incomplete... That's my only issue...

[Mr Cory]

Does this lisp change any settings to do with editing of mtext? I had a quick look but couldnt see it :?

[d_m_hopper]

Does this lisp change any settings to do with editing of mtext? I had a quick look but couldnt see it :?

if you have mtext in the drawing and use this lisp to select it....

it will invoke the mtext command, using the settings found in the mtext selected

I have to add that this routine works great when I am drawing one-line diagrams...

thanks again for sharing this madcadder

[Mr Cory]

Well i tried it last week but decided not to include it in my everyday lisps but now whenever i dble click on mtext or plines etc i get prompted to select an mtext object to edit where before i was taken straight into editing the mtext. And for the life of me i cant figure out how to change it :(

[madcadder]

Well i tried it last week but decided not to include it in my everyday lisps but now whenever i dble click on mtext or plines etc i get prompted to select an mtext object to edit where before i was taken straight into editing the mtext. And for the life of me i cant figure out how to change it :(

Kennet's mod in the beginning resolves that. Or at least it works correctly for me testing.

[Mr Cory]

So if i try his one, it should undone the changes? :?

[Mr Cory]

Is there a variable that controls this?

[madcadder]

Is there a variable that controls this?

I assure you the routine is not designed to change either to my knowledge.
If you can double-click other objects and they work correct then I'd say the DBLCLKEDIT variable is set to ON.

If ON then I would type in CUI and check the DOUBLE CLICK ACTIONS and see what is registered for MTEXT and PLINE. MTEXT should read MTEDIT. PLINE is PEDIT.

[Mr Cory]

DBLCLKEDIT was set to on.

I checked the cui and i changed ^C^C_mtedit to just _mtedit. which will work in the mean time :) but the other users who are also using the same cui file dont have this problem :?

[madcadder]

Now I'm disappointed...


48 views in 3-1/2 weeks and only one person has add to, fixed, or made this code better than it was.

This was exactly why I hadn't released it before this. Either the downloads are just being used "as is" or the ones that have made it better haven't posted their polishing.

sucks...

[d_m_hopper]

well I am still learning lisp so to me this is enough, I did download the file for future use.

right now it is used for learning, I would love to make changes to it in the future.

[madcadder]

OK.... I've had some time to play today and am working on the DTEXT, MTEXT, FIELD part of the program.

I have the text height and style under control, but I can't find a lot of the variables I need...
I'm still looking to control rotation and justification.
Specifically what would be the variables associated to:
DXF codes 71 and 72 for MTEXT
and
DXF codes 50, 51, 71, 72, 73 for DTEXT

Thanks,

[BoKirra]

Tod,

Thanks for your sharing. I found a problem with the code:

My current text style is "arial" with a size of 12.5. But when I load your code & select a text with "arial black" style and size 25, it doesn't match the selection - it writes the new text with "arial" style and keeps the size to 12.5.

Can it be fixed?

BTW, I'm not good at lisp or I am still at a kindy of learning lisp.

But I really like to see your code. People helps each other at this forum. I did also give some tips to members. The other reason I made this comment was to uplift your thread to the top to ask the guys again if they can make any improvement.

Thanks again.


OK.... I've had some time to play today and am working on the DTEXT, MTEXT, FIELD part of the program.

I have the text height and style under control, but I can't find a lot of the variables I need...
I'm still looking to control rotation and justification.
Specifically what would be the variables associated to:
DXF codes 71 and 72 for MTEXT
and
DXF codes 50, 51, 71, 72, 73 for DTEXT

Thanks,

[madcadder]

Tod,

Thanks for your sharing. I found a problem with the code:

My current text style is "arial" with a size of 12.5. But when I load your code & select a text with "arial black" style and size 25, it doesn't match the selection - it writes the new text with "arial" style and keeps the size to 12.5.

Can it be fixed?

BTW, I'm not good at lisp or I am still at a kindy of learning lisp.

But I really like to see your code. People helps each other at this forum. I did also give some tips to members. The other reason I made this comment was to uplift your thread to the top to ask the guys again if they can make any improvement.

Thanks again.

Now that I'm back in Tulsa and working I have time to tinker. So far I found that you have to have a "Style Name" set for Arial for to change it. Also, I got it to change the size first, but now that I have the Style working the Size has stopped working.

So, I'll get an update out soon. Just as soon as I finish scratching my head...

[boesiii]

Can someone explain what it does?