Merge the pline quickly

Is there a very fast way to merge together polylines ?

 

How about the join option in PEDIT?

 

Naturally I know it, but I was meaning something of more fast.

For example I need that first I select all pline segments then I need the
join.

Also I need join when you have a branch

 

Maybe this is what you want

(defun cljoin ()
(setq ss (ssget '((0 . "LWPOLYLINE,POLYLINE,LINE"))))
(if ss (command ".pedit" (ssname ss 0) "j" "p" "" ""))
)

 

YOU COULD TRY RHIS

^C^C_SELECT;SI;\^C^C_EXPLODE;@;^C^C_PEDIT;@;Y;J;ALL;;^C^C^C

 

Prova questa:

Code:

; #PlineJoinPrec = global
;
(defun C:ALE_PlJoin (/ SelSet FltLst OldLPr)
;(setvar "CMDECHO" 0) ; I have always = 0
(princ "\nSelect lines, arcs or polylines to join:  ")
(setq OldLPr (getvar "LUPREC"))  (setvar "LUPREC" 8)
(setq
FltLst
'((0 . "LWPOLYLINE,POLYLINE,LINE,ARC"))
#PlineJoinPrec
(ureal 5 "" "Precision distance" (cond ( #PlineJoinPrec ) ( 0.00001 )))
)
(setvar "LUPREC" OldLPr)
(cond
( (not (setq SelSet (cond ((ssget "_I" FltLst)) ((ssget FltLst)))))
(prompt "\nNo arc or polyline selected.  ")
)
( (ssget "_P" '((0 . "LINE,ARC")))
(command "_.PEDIT" "_M" SelSet "" "_Y" "_J" "_J" "_E" #PlineJoinPrec
"")
(princ (strcat
"\n" (itoa (sslength SelSet))
" lines, arcs or polylines are joined.  "
)       )
)
( T
(command "_.PEDIT" "_M" SelSet "" "_J" "_J" "_E" #PlineJoinPrec "")
(princ "\n_ ")
(princ (strcat "\n " (itoa (sslength SelSet)) " polylines are joined.
"))
)
)
(princ)
)
;*
;* UREAL  Funzione di interfaccia utente per numeri reali.
;* BIT (0 per nessuno) e KWD key word ("" per nessuna) sono gli stessi di
;* INITGET.
;* MSG e' la stringa di prompt, alla quale e' aggiunto numero reale di
default
;* come <DEF> (nil per nessuno), e un : sara' aggiunto.
;*
(defun ureal (bit kwd msg def / inp)
(if def
(setq
msg (strcat "\n" msg " <" (ALE_RTOS_DZ8 def) ">: ")
bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (getreal msg))
(if inp inp def)
);defun UREAL
;
(defun ALE_RtoS_DZ8 (ReaVal / CurDZn OutVal)
(if (= 8 (setq CurDZn (getvar "DIMZIN")))
(setq CurDZn nil)
(setvar "DIMZIN" 8)
)
(setq OutVal (rtos ReaVal 2))
(and CurDZn (setvar "DIMZIN" CurDZn))
OutVal
)

--

Marc'Antonio Alessi
http://xoomer.virgilio.it/alessi
(strcat "NOT a " (substr (ver) 8 4) " guru.")

--

 

This is one that some wrote for me.

(defun CJ() ;;define the function
(princ "\nSelect plines to join: ");;prompt the user
(setq a (ssget));;select the plines
(setq b (ssname a 0));;retrieve a base line
(command "_.pedit" b "j" a "" "");;enter the command line options
(princ);;exit quietly
);;we are done

 

How I should apply these rows of code ?

 

These are commands to type in sequence ?

 

Scusami ma come la devo utilizzare ?
e' una macro ?
dove la devo mettere ?

 

Save it as a file named pljoin.lsp in you Support File search path
Use appload to load the pljoin.lsp file or at then command line enter (load
"pljoin")
At the command line enter PLJOIN

 

This is for a menu pick. You could put in on a toolbar button.

 

Con un editor (notepad) salva il testo in un file
con estensione lsp (esempio ALE_PlJoin.lsp)
il file deve trovarsi nel percorso di ricerca di
AutoCAD.

Quindi digita esattamente: (load "ALE_PlJoin")

quindi digita: ALE_PlJoin



Ciao.

 

Scusami se approfitto spudoratamente di te ma il testo lo copio così come me
lo hai mandato ?
Scusami di nuovo ma ho una seconda domanda, se io volessi fare un cartiglio
in cui mettere in automatico nome file e data, sai dirmi come dovrei fare ?

 

Grazie.

Sai, non sono così sprovveduto, ho fatto qualche macro in visualbasic ma non
lavorandoci spesso le cose si dimenticano facilmente.
Sai dove si può recuperare della documentazione (anche in inglese) che
spieghi come lavorare con macro VB e lisp ?

 

Scusa non volevo offendere.

La documentazione di AutoCAD e questo NG è tutto quello
che io ho usato, a parte un libro acquistato 13 anni fa.

Marco

 

Per carita non mi sono affatto offeso.

Solo che è sempre più facile chiedere a qualcuno che gia sa piuttosto che
perdere ore e ore.
Io sono per la condivisione della conoscenza e forse sono anche un pò pigro.

Resto in attesa di un cartiglio da te o è il caso che cominci ad informarmi
meglio ?

Ciao e buon week-end

 

Resto in attesa di un cartiglio da te o è il caso che cominci ad
informarmi

Se vuoi ti mando un cartiglio ma per far sì che si
aggiorni automaticamente alla apertura del disegno
la cosa non è così semplice.

Che versione di AutoCAD usi?


--

Marc'Antonio Alessi
http://xoomer.virgilio.it/alessi
(strcat "NOT a " (substr (ver) 8 4) " guru.")

--

 

Normalmente la 2002 ma ho anche la 2004.