CAD tip # 11750:

LISP aplikaci toMulti si můžete stáhnout z Download, ZIP soubor (obsahující soubory .VLX a .TAB) rozbalte do Support složky AutoCADu, aplikaci načtěte pomocí APLČTI a spusťte příkazem TOMULTI.

Příkaz si vyžádá výběr křivek a volbu jedné z definic z .TAB souboru (ten musí být dostupný v cestě). Poté převede vybrané křivky na multi-čáry.

Od verze 1.3 lze použít i názvy hladin s mezerami (musí být v uvozovkách) a barvy jako RGB kódy (trojice v závorce).

; *DefinitionName1
; offset[,color[,width[,linetype[,layer]]]]
; offset[,color[,width[,linetype[,layer]]]]
; [#startBlockName[,#endBlockName]]
; *DefinitionName2
; offset[,color[,width[,linetype[,layer]]]]
; offset[,color[,width[,linetype[,layer]]]]
; offset[,color[,width[,linetype[,layer]]]]
; S|E|B[,color[,width[,linetype[,layer]]]]
; [#startBlockName[,#endBlockName]]
;
; multi-word layer names as "My Layer", RGB colors as (R,G,B) values
;
*Fuskic
0.25,30,0.25
-0.25,30,0.25
0,51,0.25
0,1,0.08,Čárkovaná
#circle,#arrow
*SimpleDup
0.25
-0.25
*CappedDup
0.25,(255,0,0),0,Continuous,Offset1
-0.25,_ByLayer,0,Continuous,"Offset 2"
B,2

Proměnná DELOBJ řídí vymazání původní (tvořicí) křivky.

Pokud nastavíte LISP proměnnou (setq _toMultiGroup T), budou výsledné čáry seskupeny do anonymní skupiny (vybírány jako jeden objekt).