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
Als de eerst gesecteerde lijn een:
gewone lijn is :!:
Citeer
(defun c:polyjoin ()
(command "pedit" (ssget) "y" "j" (ssget) "" "")
(princ)
)
polylijnen is :!:
Citeer
(defun c:polyjoin2 ()
(command "pedit" (ssget) "j" (ssget) "" "")
(princ)
)
Bedoel je dit?
Yes, dit zijn ze :D
Hartelijk dank Kenny H!!!
Groetjes,
Markske
Graag gedaan en met veel plezier trouwens.
Is niet moeilijk om aan te maken. Duurde hooguit 5min.
Maarja wie ben ik hé :oops: :oops:
Kenny
Citaat van: MarkskeYes, dit zijn ze :D
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
CS
I(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.