Visual LISP, AutoLISP and General Customization
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Modify Lisp to Include Text Offset?

12 REPLIES 12
Reply
Message 1 of 13
Anonymous
432 Views, 12 Replies

Modify Lisp to Include Text Offset?

I have a lisp routine (can post if it would help) that will allow you to
rotate selected text or blocks to an alignment defined by two picked points.
What I would like to do if possible is also have it take that alignment
information and place the selected text a specified distance off of the
alignment that was defined. I think this would have some bearing on what
the justification of the text was. I have no idea how to approach this or
if it's even possible. Does anyone have any ideas on this?

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
12 REPLIES 12
Message 2 of 13
Anonymous
in reply to: Anonymous

Once you have the alignment (angle) you want, then just add/subtract 90
degrees. Then use the polar function to get the new point. If the text is
aligned to something other then Left, you will need to change the dxf code
11 instead of 10.

--

Tim


"John Michalik" wrote in message
news:4931074@discussion.autodesk.com...
I have a lisp routine (can post if it would help) that will allow you to
rotate selected text or blocks to an alignment defined by two picked points.
What I would like to do if possible is also have it take that alignment
information and place the selected text a specified distance off of the
alignment that was defined. I think this would have some bearing on what
the justification of the text was. I have no idea how to approach this or
if it's even possible. Does anyone have any ideas on this?

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
Message 3 of 13
Anonymous
in reply to: Anonymous

Ok, that gives me some good info. to start with. Not sure exactly where to
put some of that, but I'll see what I can figure out. Who knows, might get
lucky! Thanks

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
"T.Willey" wrote in message
news:4931164@discussion.autodesk.com...
Once you have the alignment (angle) you want, then just add/subtract 90
degrees. Then use the polar function to get the new point. If the text is
aligned to something other then Left, you will need to change the dxf code
11 instead of 10.

--

Tim


"John Michalik" wrote in message
news:4931074@discussion.autodesk.com...
I have a lisp routine (can post if it would help) that will allow you to
rotate selected text or blocks to an alignment defined by two picked points.
What I would like to do if possible is also have it take that alignment
information and place the selected text a specified distance off of the
alignment that was defined. I think this would have some bearing on what
the justification of the text was. I have no idea how to approach this or
if it's even possible. Does anyone have any ideas on this?

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
Message 4 of 13
Anonymous
in reply to: Anonymous

If you get stuck, post back with that portion of code, and someone will
help.

--

Tim


"John Michalik" wrote in message
news:4931153@discussion.autodesk.com...
Ok, that gives me some good info. to start with. Not sure exactly where to
put some of that, but I'll see what I can figure out. Who knows, might get
lucky! Thanks

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
"T.Willey" wrote in message
news:4931164@discussion.autodesk.com...
Once you have the alignment (angle) you want, then just add/subtract 90
degrees. Then use the polar function to get the new point. If the text is
aligned to something other then Left, you will need to change the dxf code
11 instead of 10.

--

Tim


"John Michalik" wrote in message
news:4931074@discussion.autodesk.com...
I have a lisp routine (can post if it would help) that will allow you to
rotate selected text or blocks to an alignment defined by two picked points.
What I would like to do if possible is also have it take that alignment
information and place the selected text a specified distance off of the
alignment that was defined. I think this would have some bearing on what
the justification of the text was. I have no idea how to approach this or
if it's even possible. Does anyone have any ideas on this?

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
Message 5 of 13
Anonymous
in reply to: Anonymous

You could use the two alignment points to set a temporary User Coordinate
System, and then move the text to the appropriate X and Y coordinates within
that UCS (which I assume would always be the same), then set the UCS back.
Or you could save the angle between the alignment points, and move the text
using (polar), but that usually requires adding to or subtracting from the
alignment angle, and that can be tricky if you might have to add or you
might have to subtract depending on what range the angle falls in, and from
what range of directions you want the text to read upright. That's part of
what I think would make the UCS approach easier. The text justification
would have bearing, if you align it (and then move it) based on its
insertion point (which is likely to be the easiest way).
--
Kent Cooper


"John Michalik" wrote...
I have a lisp routine (can post if it would help) that will allow you to
rotate selected text or blocks to an alignment defined by two picked points.
What I would like to do if possible is also have it take that alignment
information and place the selected text a specified distance off of the
alignment that was defined. I think this would have some bearing on what
the justification of the text was. I have no idea how to approach this or
if it's even possible. Does anyone have any ideas on this?
Message 6 of 13
Anonymous
in reply to: Anonymous

I'm sure I will. I need a lisp routine right now that will carve out some
time for me to work on this though too! Thanks again.

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
"T.Willey" wrote in message
news:4931185@discussion.autodesk.com...
If you get stuck, post back with that portion of code, and someone will
help.

--

Tim


"John Michalik" wrote in message
news:4931153@discussion.autodesk.com...
Ok, that gives me some good info. to start with. Not sure exactly where to
put some of that, but I'll see what I can figure out. Who knows, might get
lucky! Thanks

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
"T.Willey" wrote in message
news:4931164@discussion.autodesk.com...
Once you have the alignment (angle) you want, then just add/subtract 90
degrees. Then use the polar function to get the new point. If the text is
aligned to something other then Left, you will need to change the dxf code
11 instead of 10.

--

Tim


"John Michalik" wrote in message
news:4931074@discussion.autodesk.com...
I have a lisp routine (can post if it would help) that will allow you to
rotate selected text or blocks to an alignment defined by two picked points.
What I would like to do if possible is also have it take that alignment
information and place the selected text a specified distance off of the
alignment that was defined. I think this would have some bearing on what
the justification of the text was. I have no idea how to approach this or
if it's even possible. Does anyone have any ideas on this?

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
Message 7 of 13
Anonymous
in reply to: Anonymous

Kent,
Hadn't thought of manipulating the UCS. I usually shy away from that, but I
can see the advantage here, I think I'll tinker with that too...see what I
can blow up. Thanks for the help.

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
"Kent Cooper" wrote in message
news:4931186@discussion.autodesk.com...
You could use the two alignment points to set a temporary User Coordinate
System, and then move the text to the appropriate X and Y coordinates within
that UCS (which I assume would always be the same), then set the UCS back.
Or you could save the angle between the alignment points, and move the text
using (polar), but that usually requires adding to or subtracting from the
alignment angle, and that can be tricky if you might have to add or you
might have to subtract depending on what range the angle falls in, and from
what range of directions you want the text to read upright. That's part of
what I think would make the UCS approach easier. The text justification
would have bearing, if you align it (and then move it) based on its
insertion point (which is likely to be the easiest way).
--
Kent Cooper


"John Michalik" wrote...
I have a lisp routine (can post if it would help) that will allow you to
rotate selected text or blocks to an alignment defined by two picked points.
What I would like to do if possible is also have it take that alignment
information and place the selected text a specified distance off of the
alignment that was defined. I think this would have some bearing on what
the justification of the text was. I have no idea how to approach this or
if it's even possible. Does anyone have any ideas on this?
Message 8 of 13
Anonymous
in reply to: Anonymous

Here's a couple o routines that might help get you going.

The first is just a down and dirty TEXT rotate command (TROT.lsp). The
other allows you to change all attributes about the text via dialog box
(DDCHTXT.lsp and DDCHTXT.dcl.

They both work on MULTIPLE text elements.

The other files are just support files used by the other routines. As long
as they're in the same directory, you should be ok.


"John Michalik" wrote in message
news:4931074@discussion.autodesk.com...
I have a lisp routine (can post if it would help) that will allow you to
rotate selected text or blocks to an alignment defined by two picked points.
What I would like to do if possible is also have it take that alignment
information and place the selected text a specified distance off of the
alignment that was defined. I think this would have some bearing on what
the justification of the text was. I have no idea how to approach this or
if it's even possible. Does anyone have any ideas on this?

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
Message 9 of 13
Anonymous
in reply to: Anonymous

Don, Sounds intriguing, but nothing posted??? 🙂

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
"Don Ireland" wrote in message
news:4935260@discussion.autodesk.com...
Here's a couple o routines that might help get you going.

The first is just a down and dirty TEXT rotate command (TROT.lsp). The
other allows you to change all attributes about the text via dialog box
(DDCHTXT.lsp and DDCHTXT.dcl.

They both work on MULTIPLE text elements.

The other files are just support files used by the other routines. As long
as they're in the same directory, you should be ok.


"John Michalik" wrote in message
news:4931074@discussion.autodesk.c
om...
I have a lisp routine (can post if it would help) that will allow you to
rotate selected text or blocks to an alignment defined by two picked point
Message 10 of 13
t.willey
in reply to: Anonymous

I can see it through the web interface.

Tim

ps. http://discussion.autodesk.com/thread.jspa?threadID=422097
Message 11 of 13
Anonymous
in reply to: Anonymous

Thanks Tim, can't see it through Outlook Express for some reason. Of
course, given all the others oddities today, I'm not surprised. I'll try
these out as soon as I have a computer that works right again.

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
wrote in message news:4935378@discussion.autodesk.com...
I can see it through the web interface.

Tim

ps. http://discussion.autodesk.com/thread.jspa?threadID=422097
Message 12 of 13
Anonymous
in reply to: Anonymous

Don't know why--I had them in a zip file and they were showing in my news
reader as attached. I'll try again.
"John Michalik" wrote in message
news:4935335@discussion.autodesk.com...
Don, Sounds intriguing, but nothing posted??? 🙂

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
"Don Ireland" wrote in message
news:4935260@discussion.autodesk.com...
Here's a couple o routines that might help get you going.

The first is just a down and dirty TEXT rotate command (TROT.lsp). The
other allows you to change all attributes about the text via dialog box
(DDCHTXT.lsp and DDCHTXT.dcl.

They both work on MULTIPLE text elements.

The other files are just support files used by the other routines. As long
as they're in the same directory, you should be ok.


"John Michalik" wrote in message
news:4931074@discussion.autodesk.c
om...
I have a lisp routine (can post if it would help) that will allow you to
rotate selected text or blocks to an alignment defined by two picked point
Message 13 of 13
Anonymous
in reply to: Anonymous

I got them from the internet side of the boards Don, thanks. I will try
putting it to use just as soon as I get enough of these other "emergencies"
off my back to stand up straight again! Thanks for your help by the way.

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
"Don Ireland" wrote in message
news:4936025@discussion.autodesk.com...
Don't know why--I had them in a zip file and they were showing in my news
reader as attached. I'll try again.
"John Michalik" wrote in message
news:4935335@discussion.autodesk.com...
Don, Sounds intriguing, but nothing posted??? 🙂

--
John Michalik
Drafting and Design
LDD/CAD Development & Standards
johnm@weissereng.com
"Don Ireland" wrote in message
news:4935260@discussion.autodesk.com...
Here's a couple o routines that might help get you going.

The first is just a down and dirty TEXT rotate command (TROT.lsp). The
other allows you to change all attributes about the text via dialog box
(DDCHTXT.lsp and DDCHTXT.dcl.

They both work on MULTIPLE text elements.

The other files are just support files used by the other routines. As long
as they're in the same directory, you should be ok.


"John Michalik" wrote in message
news:4931074@discussion.autodesk.c
om...
I have a lisp routine (can post if it would help) that will allow you to
rotate selected text or blocks to an alignment defined by two picked point

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report

”Boost