Joining probs again

Having probs with the join lsp again ....
I am getting an error and the lines wont join. It works sometimes and others it doesn't work... sometimes if you do it enough times it will eventually work. Is there a way to leave out where it references the ucs?

the error is:
This object does not define a coordinate system
; error: Function cancelled

the code is:
(defun c:J ()
(setq polyset (ssget))
(setq newents (ssadd))
(setq n 0)
(while
(setq poline (ssname polyset n))
(setq polent (cdr (assoc 0 (entget poline))))
(if
(or (= polent "LINE")(= polent "ARC"))
(progn
(command "UCS" "E" poline)
(command "pedit" poline "y" "")
(command "UCS" "P")
(ssadd (entlast) newents)
)
(ssadd poline newents)
)
(setq n (1+ n))
);end while
(setq cn 0)
(while
(setq newpline (ssname newents cn))
(if (entget newpline)
(progn
(command "UCS" "E" newpline)
(command "pedit" newpline "j" newents "" "")
(command "UCS" "P")
(setq cn (1+ cn))
)
(setq cn (1+ cn))
)
)
(princ)
)

 

Try commenting out every line that contains the "UCS" stuff.
Don't miss any..

Bob

 

What's wrong with Express Tools PLJOIN???

 

Because I have to do the function literally thousands of times. and if you add up all those seconds I could really increase productivity shortening it to one letter and making it automatic.

 

edit the PGP :
J, *PLJOIN


<<Not to mention pljoin is not a command that i can use.>>

ummm... why not?

 

Hi again -
I've tried every possible configuration, with lines and arcs drawn on UCSs at
oddball angles, etc.
I can't get it to fail. All I can imagine is that it has vertices that aren't
coincident.

The UCSs are necessary because you can't apply the PEDIT function to a
line/pline that isn't 'on' the current UCS. "The object is not parallel to the
UCS".

Tell ya what...
Send up a section of your 'error-prone' drawing for our perusal (I'm on A2k),
and SOMEone will figure it out. I won't be around to do it... out of town for
36 hours.
-doug
have another margarita!

it doesn't work... sometimes if you do it enough times it will eventually work.
Is there a way to leave out where it references the ucs?

 

Im using autodesk land development map 2004 and that isnt a command that i can type in.

 

Can't you change the command alias in the .pgp file? Or am I being to
basic?
--
Debi

remove no spam to email

you add up all those seconds I could really increase productivity shortening
it to one letter and making it automatic.

 

This is no simple acad command, which is what CAN
be renamed in the pgp. Even somethiing as simple as
Break @
cannot be written into the pgp. I dare you to do that!
-doug

 

the thing is i can do it 5 times in a row and and the first 4 times i get the error and on the 5th it works. thats what i didnt get ... and wanted to see if we couldnt get around the ucs lines.

 

You're welcome to take out the lines related to UCS. Just precede them with a
semicolon.

; (command "UCS" "P")

If all your lines/plines/arcs are drawn parallel to the UCS, you'll have no
problem.
My test drawing had entities on about 12 different UCSs.
-doug

error and on the 5th it works. thats what i didnt get ... and wanted to see if
we couldnt get around the ucs lines.

 

Unless the plines and arcs are supposed to be at different "Z" values, you
could use a "Flatten" program prior to the join. There have been several
discussions about flattening recently.

 

No, but it can be easily done like this:

(defun C:J ()
(CLJOIN)
)

 

at least on this project all my lines are at z=0... i took out the ucs stuff with a ; and it works so far... but we will see.

Thanks for your help!!

And a round of MARGARITAS on me!!

 

PLJOIN is removed from ACAD2004.
Wondering why....
I know that there is Join option in PEDIT but is not the same... too many
steps to get there...
John

 

Try commenting out every line that contains the "UCS" stuff. Don't miss any..<<<
DA, I (was) right..
But, only if all Z's are 0.

Bob

 

It's an Express Tool, have you installed Express Tools???

 

LDD didn't come with Express Tools??

 

LDD is not among the Express Tools we have in either 2000 or 2004.

Kent Cooper, AIA


...

 

Whoops.... I thought when you asked "LDD didn't come with Express Tools??",
you meant something like "LDD isn't included among the Express Tools?", so I
went looking to see whether there was an Express Tool called LDD. "Come
with" in this case can be read both ways (isn't English wonderful?). A
little discipline-unconscious of me, I suppose, since I probably should have
recognized the initials.

Kent Cooper, AIA

If you have Express Tools for 2000, PLJOIN should be there.