CADsite forum

Hoi,

Vraagje is er hier een lisp die alle polylines (met verschillende diktes) in een tekening omzet naar Hatch solid met een commando bv:P2Hsolid.
zie bijlage voorbeeld.

Heren mijn dank is groot, hartstike bedankt thxhhxxxxxx.

zodra ik de script in acad sleep, krijg ik een foutmelding.

Hofcad Dankjewel voor je hulp!! ik ben weer helemaal blij thhxx.

wat moet je toevoegen om een laag telocken?


(defun C:MLa1 (/ ~CME ~CLA i NewLay LayName)
(setq ~CME (getvar "CMDECHO") ~CLA (getvar "CLAYER"))
(setvar "CMDECHO" 0)
(setq i 0 NewLay '( ("l01" "l02"   "l03" "l04"        "l05"    "l06")    ; Name [Str]
                    ("9"       "9"       "6"       "1"          "2"      "3")      ; Colours [Str] or [Int]
                    ("PHANTOM" "PHANTOM" "HIDDEN"  "Continuous" "CENTER" "HIDDEN") ; LineType [Str]
                    ("Default" "Default" "0.18"    "0.18"       "0.25"   "0.35")   ; LineWeight [Str]
                    ("N"       "P"       "P"       "P"          "P"      "P")      ; Plotted [Str]("P" or "N")
))
(repeat (length (car NewLay))
(setq LayName (nth i (car NewLay)))
(command "_.LAYER" "_T" LayName "_M" LayName ;Optie Thaw en Make
"_C"  (nth i (cadr NewLay)) LayName
"_LT" (nth i (caddr NewLay)) LayName
"_LW" (nth i (cadddr NewLay)) LayName
"_P"  (nth i (last NewLay)) LayName "")
(setq i (1+ i))
)
(setvar "CLAYER" ~CLA)
(setvar "CMDECHO" ~CME)
(princ)
) ;_ end of defun MLay1

(defun C:MLa()
(C:MLa1)
) ;_ end of defun MLay

Mensen bedankt voor alles

De link van HofCAD vindt ik goed (http://www.cadsite.be/smf/index.php?topic=1253.msg7290#msg7290)
ook battman is handig.

vele malen bedankt voor jullie reactiesss!!!!!!

Citaat van: hulpje op wo 01 05 2013, 13:35:06
Dat kan, op bijgevoegde printscreen, kun je een aantal opties zien, kies voor de Add Folder...

Wooow inderdaad super blij, .
Bedankt Hulpje (Richard). Ik denk dat ik zo voorlopig geholpen bent.

Citaat van: hulpje op vr 26 04 2013, 09:35:06
misschien met BATTMAN????

Battman zal ik ook eens uitproberen. bedankt voor zover.

Citaat van: HofCAD op vr 26 04 2013, 10:50:26
Beste Balletje23,

Kijk eens naar:
http://www.cadsite.be/smf/index.php?topic=1253.msg7290#msg7290

Met vriendelijke groet, HofCAD CSI.

HofCAD,

De link is waardevol. Ik ga er mee wat uitproberen.

Citaat van: Jon Tampon op vr 26 04 2013, 08:21:51
Kan dit niet met het commando CHPROP?
Of geldt dit niet op attributen?

nee helaas werkt niet. Maar goed meegedacht.

Richard.

Is het ook mogelijk,om meerdere dwg's tergelijkertijd dataextracten, zonder het acad bestand geopend tehebben.
Want ik heb het geprobeert dit werkt alleen als je 1 tekening open hebt.

Ja misschien een andere oplossing. Bedankt zover.

Wie weet hoe je van verschillende attributen handmatig selecteer en in 1keer de eigenschappen verandert,
zoals color, teksthoogte, tekststyle. Als ik meerder attributen selecteer zie je bij de propeties informatie, maar je kan bv geen teksthoogte, tekstcolor,tekststyle van de attributen veranderen.

Wie weet een prog.(lisp, vba enz) die alle attributen info met de blocknaam REG naar excel te exporteren.
hierbij zit het attribute in verschillende layouts bv layout 1 , layout 2, layout 3 enz hierbij het alle blocknaam REG.
Daarna wil ik het excel bestand bewerken en import in de dwg.
Verder indien mogelijk om meerdere dwg te exporteren.

Zodat je een excel-lijst krijgt van info van het attribute informatie van desbetreffende dwgs en layouts.
de command: attout werk niet voor mij want, dat gaat per attribute in een tekening.

Citaat van: EddyBeerke op vr 01 06 2012, 08:30:26
Kun je dit uitleggen? Want ik begrijp niet waarom je dat zou doen.

Wij doen dit in het kaderhoofd gewoon invullen en dan opslaan als nieuwe versie:
"TEK-001-037_v0001_omschrijving" wordt dan "TEK-001-037_v0002_omschrijving"

Als ik een tekening verstuur wil ik dat tek1 status A (01-01-12) krijg,
een andere dag later, versie B (03-01-12). Bij pdf's maken zet hij dat verzelf erachter.
hierdoor herkent dus het bestand dsd de layout's naam niet. Een automatisch plotstamp werkt niet voor mij,
want stel ik plot op 10-01-12 en bij tekening 1 wordt 10-10-12 ipv A(01-01-12)