Bakgrund
Ibland behöver man göra lite annorlunda körningar med ritade Magicadmodeller, ex bibehålla 3D-objekten men få ut magicad-texten till Autocad-text.
Skriptet bygger på fyra stycken lisper,
* SelectMT.lsp - Gör ett urval av modellen och sorterar ut Magicad-text.
* ExplodeMagicadText.lsp - ExploderarMagicadtexten till Autocad-textblock
* Selblocks.lsp - Väljer specifika block
* Ct2.lsp - Ändrar Autocads textfont till ISOCPEUR
Skriptet gör följande:
• Förhindrar att dialogrutor visas
• Sätter aktuellt lager till 0
• Välj magicadtext
• Explodera Magicadtext till textblock
• Explodera textblock
• Välj text
• Ändra font till ISOCPEUR
• Exporterar text till Excel
• Sparar filen
Det kan förekomma lite varningsdialoger, och en bra sak att göra, är att slå på loggen för att se vad som sker när skriptet körs.
Som en extra funktion görs en export av texter till Excel, där sortering och urval kan göras.
Allmänt
Eftersom skriptet laddar in lisper, behöver Autocad ett godkännande för att köra dom första gången. Om den lokala "CAD-katalogen" skapas , är det bra om sökvägen läggs till Autocads "options" under "Trusted Locations".
Tänk på att dubbla // måste anges för att sökvägen ska kunna läsas av Autocad om du kopierar lisperna till en annan katalog. ex C://CAD//lisp//"*.lsp" ("" och *, tas bort när en angiven lsp skrivs)
Att ladda in dom via "Appload" är också ett alternativ. För att undvika dialogrutor är variabeln "Filedia" satt till 0.
Autocads variabel "Qaflags" ska man använda med försiktighet då den påverkar hur Autocads kommandon beter sig i skript, den bör vara satt till 0.
Arbetsgång - enstaka modellfil
Ta kopior av modellfilerna som ska köras först!
Öppna modell i Autocad, Dra och släpp skriptet i den öppna modellfilen
Arbetsgång - flera modellfiler
Ta kopior av modellfilerna som ska köras först!
Öppna Cadium och lägg till filerna som ska köras och ladda skriptet. Kör.
Ola Harrius
Not.
; Skript för att explodera Magicadtext och exportera till Excel
; 2025-12-11 /OHa
logfileon
Filedia
1
;(command "qaflags" "1")
(command "-layer" "Set" "0" "")
; Gör urval av Magicadtext
(load "c:\\cad\\SelectMT.lsp")
SelectText
; Exploderar Magicadtext
(load "c:\\cad\\ExplodeMagiTexts.lsp")
ExplodeMagiTexts
; Exploderar textblocken
(load "c:\\cad\\selblocks.lsp")
selblocks
*
ExpLODE
; Ändrar all text till ISOCPEUR
(load "c:\\cad\\ct2.lsp")
t2ss
(load "c:\\cad\\text2excel.lsp")
rtc
all
Filedia
0
;(command "filedia" "1")
;(command "qaflags" "0")
logfileoff
_qsave
;(tomrad)
