JerryFiedler Posted August 26, 2009 Share Posted August 26, 2009 Greetings, I am using AutoCad LT 09. I am looking for a way (lisp routine) to draw a line from point to point that has a "set back" at each end of the line. The line would look and act similar to a leader on a dimension but the set back would be at both ends. See the attached image as an example. The end of the line would still be at the nodes to which it was drawn but the line would appear to be a bit short at each end. In the example the line object ends (handles) would be at the center of the I-shape objects. Thank you, in advance, to anyone who can shed some light on this. Jerry Quote Link to comment Share on other sites More sharing options...
NBC Posted August 26, 2009 Share Posted August 26, 2009 First of all, you state you are using LT; LT does not have the capability to utilise LSP functions without the aid of some form of add-on, such as LT Extender. One way to achieve the results you desire, would be to create a block which contains no objects; then create a new Dimension Style. Within the newly created Dimension Style it would be possible to set the "arrowhead" to be the block you created earlier. This would then give the impression of there being a gap at the ends of the 'line'. Then create dimensions, instead of lines between the column positions Quote Link to comment Share on other sites More sharing options...
JerryFiedler Posted August 27, 2009 Author Share Posted August 27, 2009 NBC, thank you for your idea. My LT does have an extender and we use all sorts of lisp routines. I will give your dimension style a shot. Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted August 27, 2009 Share Posted August 27, 2009 Just a quick one [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:lback [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] tmp p1 p2[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] *def [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *def [b][color=#009999]0.1[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]getdist[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nSpecify Set Back <"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] *def[b][color=RED])[/color][/b] [b][color=#ff00ff]"> : "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *def tmp[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p1 [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSpecify First Point: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p2 [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] p1 [b][color=#ff00ff]"\nSpecify Second Point: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p1 [b][color=RED]([/color][/b][b][color=BLUE]trans[/color][/b] p1 [b][color=#009900]1[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b] p2 [b][color=RED]([/color][/b][b][color=BLUE]trans[/color][/b] p2 [b][color=#009900]1[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p1 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] p1 [b][color=RED]([/color][/b][b][color=BLUE]angle[/color][/b] p1 p2[b][color=RED])[/color][/b] *def[b][color=RED])[/color][/b] p2 [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] p2 [b][color=RED]([/color][/b][b][color=BLUE]angle[/color][/b] p2 p1[b][color=RED])[/color][/b] *def[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entmake[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"LINE"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] p1[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]11[/color][/b] p2[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.