Polyjoin

[Markske]

Hoi-hoi,

ik had deze vraag al eens eerder gesteld op dit forum
http://www.cadsite.be/forum/viewtopic.php?t=34&highlight=polyjoin
en zou iemand van jullie mij wederom daarbij even willen helpen??

ik zoek de lisproutine voor "Polyjoin" (= hetzelfde al pedit en dan join).
heeft iemand van jullie dat direct bij de hand??

Alvast bedankt!!!

Groetjes, Markske

[Kenny H]

Als de eerst gesecteerde lijn een:
gewone lijn is

(defun c:polyjoin ()
 (command "pedit" (ssget) "y" "j" (ssget) "" "")
 (princ)
)

polylijnen is

(defun c:polyjoin2 ()
 (command "pedit" (ssget) "j" (ssget) "" "")
 (princ)
)

Bedoel je dit?

[Markske]

Yes, dit zijn ze  

Hartelijk dank Kenny H!!!

Groetjes,
Markske

[Kenny H]

Graag gedaan en met veel plezier trouwens.

Is niet moeilijk om aan te maken. Duurde hooguit 5min.
Maarja wie ben ik hé    

Kenny

[HofCAD]

Yes, dit zijn ze  

Hartelijk dank Kenny H!!!

Groetjes,
Markske

Beste Markske en Kenny,

Indien je met AutoCAD2004 of hoger werkt, dan heb je er hier een.

Groetjes HofCAD CSI

(defun c:PEJ (/ ~pea);voor AutoCAD 2004 plus
(if (> (atoi (substr (getvar "ACADVER") 1 2)) 15)
(Progn (setq ~pea (getvar "PEDITACCEPT")) (setvar "PEDITACCEPT" 1)))
(command "PEDIT" (ssget ":S") "j" (ssget) "" "")
(if (/= ~pea nil)(setvar "PEDITACCEPT" ~pea))
)

Verklaring:
1) PEDITACCEPT is een Autocad variabele om onderstaande vraag te onderdrukken.
Object selected is not a polyline
Do you want to turn it into one? <Y>
2) (ssget ":S") voor single selectie
3) Er moet eigenlijk ook nog een *error* functie bij, voor als men
het programma met een escape afbreekt.