Linetype program not setting linetype to current
@murmanator wrote:
....
.... (if (= (assoc 0 (tblsearch "Ltype" "I_TREES")) nil) (vl-cmdf "-linetype" "l" "I_TREES" "" "" ) (vl-cmdf "-linetype" "s" "I_TREES" "") ) ....
If you want it to do both of those things as a 'then' argument to the (if) function, you need to make them into one argument, which you do by "wrapping" them in a (progn) function:
....
(if (= (assoc 0 (tblsearch "Ltype" "I_TREES")) nil)
(progn
(vl-cmdf "-linetype" "l" "I_TREES" "" "" )
(vl-cmdf "-linetype" "s" "I_TREES" "")
); progn
)
....
As you have it, the setting of that linetype current is the 'else' argument, to be done if the test function returns nil.
EDIT: Or, do I assume you want that linetype set current whether or not it had to be loaded first? In that case, pull that out of the (if) function:
....
(if (= (assoc 0 (tblsearch "Ltype" "I_TREES")) nil)
(vl-cmdf "-linetype" "l" "I_TREES" "" "" ); then [no else argument]
); if
(vl-cmdf "-linetype" "s" "I_TREES" "")
....
FURTHER EDIT: Shouldn't you also set the Color back to ByLayer, as you do the Linetype? Or does (SV) do that?
Here's another trick you can try:
If you put your linetype definition(s) into ACAD.lin [or ACADISO.lin if that's what you use], then you can assign one to something using CHPROP, or assign it to a Layer in a command-line LAYER command, and it won't matter whether it's already loaded in the drawing -- AutoCAD will find it. You won't need to load it, nor therefore to check whether it's loaded or not.
If I assume your (GV) and (SV) functions are for Getting and Setting Variables, presumably System Variables, then if you use CHPROP for more than just the linetype, you won't change any of those, and therefore won't need to reset them. Then all you need is this:
(defun C:ITREE ()
(command-s "_.PLINE")
(command "_.chprop" "_last" "" "_layer" "RUNS" "_color" 2 "_ltype" "I_TREES" "")
(princ)
);defun
But additionally, I wonder why you don't just have a Layer for this kind of linework, with the color and linetype assigned to it, so you can just set that Layer current, and leave everything ByLayer, rather than using property overrides on things.
@murmanator wrote:
....
(command "-LAYER" "set" "RUNS" "" "" "")
....(command-s "_.PLINE")
(while ....
Just quickly....
Two too many Enters at the end of that Layer command. The single one will end the command -- the other two will just recall the command and then get right back out of it.
If you use (command-s) for the PLINE command, you don't need that (while .... function.
And I still think you should also be resetting the Color, but if that's covered by the (SV) function, can't the linetype setting be, also, so you don't need to do it separately? And maybe reset the Layer, too?
@murmanator wrote:
.... The one with the chprop didnt set the variables, it just drew the line. ....
Yes, that was the point -- don't change the System Variable settings, just impose the properties on the Polyline. But does "just drew the [Poly]line" mean that it didn't then give it those properties? If not, were there any messages?
If it changed the Layer and Color, but not the Linetype, it suggests that you didn't notice the "If" at the beginning of the Message. Linetype definitions must be in AutoCAD's linetype file for the CHPROP approach to find them even if they're not loaded yet in the drawing.
Of course that approach has the "drawback" [if you consider it one] that while you're drawing it, you're under the current Layer and Color and Linetype settings, so it may not look like what you'll end up with in the process, but only afterwards.
@murmanator wrote:
.... when I run the chprop program I get this in the command line:
_.PLINE
Specify start point: _.chprop
Invalid point.....
I don't know what to suggest -- it works for me. It lets me draw a Polyline, of any length, then changes those properties correctly. I changed the Layer and linetype names to things I have, but nothing else.
Something about your setup must not be honoring the (command-s) let-you-finish operation, and is jumping right to the next thing, but I have no idea what that could be.
