761
Hozzunk ki minél többet az AutoCAD-ből
  • zenoka
    #441
    hehehehehehe
  • ZilogR
    #440
    Akkor annyit csinálj meg, h belinkelsz ide egy képet vagy inkább átméretezve beszúrsz egyet és elmondod mit kell pontosan csinálni... Ha nem nagyon extra igényű, egy programozható zsebszámolóért megcsinálom neked... :P (Gyűjtöm őket, ugyanis...)
  • Gis80s
    #439
    Főleg időhiány miatt nem vállalom be, mert mire megtanulgatom, meg mire mindent megtudok rajzolni, addigra már olimpiát is rendez az ország :)
  • Atika :o)
    #438
    Ilyen alapon miert nem csinalod meg magad??? Autocad nem egy bonyolult program es neten talalsz hozza tutorialokat is.
  • Gis80s
    #437
    Utólag elolvasva tényleg olyan...
    Mentségemre szóljon, hogy nem egy vállalkozó vagyok, pláne nem a lehúzós fajtából, egyszerűen csak segítség kéne :)
  • zenoka
    #436
    nem eselytelen mert ugyis lesz aki a keveske penzert elvalallja csak leirtam hogy hangzott.
  • Gis80s
    #435
    Egyszerűbb lett volna, ha leírod, hogy szerinted esélytelen ;-)
  • zenoka
    #434
    keresek olyan foberlot aki gyakorlaskeppen odaadna a lakasat x idore hogy kiprobalja hogy jon ki az alberlokkel..fizetni csak minimalisan tudok. ugyanitt keresek olyan peket aki gyakorlaskeppen kenyeret sutne.
  • Gis80s
    #433
    Sziasztok!

    Szükségem lenne egy emberkére, aki vállalna autocad-es rajzolást jpg kép alapján(nagyon jó felbontási minőség). Viszonylag egyszerű formákról van szó 2d-ben, semmi bonyolítás. Nem akarok senkit kihasználni, de inkább olyat keresnék, aki gyakorlásképpen vállalná, mert pénzt csak nagyon minimálisan tudnék rá áldozni.

    Akit esetleg érdekel, vagy csak rápróbálna, legyen kedves megkeresni.

    Előre is köszönöm!
  • Atika :o)
    #432
    azt hol kell beallitani autocadben hogy ha megnyitok egy rajzot akkor ne nyisson nekem meg egy cadet nemtalalom :)
  • Atika :o)
    #431
    koszi kiprobalom :)
  • Atika :o)
    #430
    Hat ez olyan ossze vissza van szinezve van amikor layer szinu van amikor at van szinezve. En is ugy csinaltam hogy block editorban megnyitas atszinezes csak igy eleg hosszu :(
  • Petko
    #429
    magyarított nuke.lsp:


    ;Redefines ALL objects in any block in the drawing on layer 0.
    ;(c)Jay Garnett (email [email protected]) Written 1/14/97
    ;web page http://www.enteract.com/~jgarnett/lispfactory.htm
    ;Updated 1/25/97 - added select mode
    ;
    ;NUKE.LSP redefines all objects in a block on layer 0, with color and linetype
    ;set to BYLAYER. NUKED blocks will then take on the properties of the layer
    ;that they are inserted on. The routine works by modifing objects in the block table,
    ;so the blocks never have to be exploded.
    ;
    ;The global method redefines ALL objects in every block in the current drawing,
    ;except dimensions, hatching or xrefs, even if they are on a layer that is
    ;frozen or turned off.
    ;
    ;The select method redefines blocks selected with any standard selection method,
    ;as well as any blocks nested in the selected block(s).

    (defun To-0( BLCK / BNAME BLIST E EDATA SPIN TMP )

    ;;; Prints a pinwheel on the command line
    (defun Spin ( )
    (setq SYM
    (cond
    ((= SYM nil) "-")
    ((= SYM "-") "\\")
    ((= SYM "\\") "|")
    ((= SYM "|") "/")
    ((= SYM "/") "-")
    )
    )
    (princ (strcat "\rScanning... " SYM " "))
    );end spin

    (if (=(type BLCK)(read "LIST"))(setq TMP(car BLCK) BLIST(cdr BLCK) BLCK TMP TMP nil))
    (setq BLCK(tblsearch "BLOCK" BLCK))
    (if
    (and
    (/=(logand(cdr(assoc 70 BLCK))1)1) ;skips annomyous blocks
    (/= (logand(cdr(assoc 70 BLCK))4)4) ;skips xrefs
    );and
    (progn
    (setq E (cdr (assoc -2 BLCK)))
    (while E
    (if (=(cdr(assoc 0 (entget E))) "INSERT") ;If the object is a block
    (progn
    (setq BNAME(cdr(assoc 2(entget E)))) ;save the name to a list
    (if (not (member BNAME BLIST))
    (if (not BLIST)(setq BLIST (list BNAME)) ;create the list if it doesn't exist
    (setq BLIST(append BLIST(list BNAME)))
    );if
    );if
    );progn
    );if
    (setq EDATA (entget E))
    (if(assoc 62 EDATA) ;Resets object color to BYLAYER if it isn't.
    (setq EDATA(subst(cons 62 256)(assoc 62 EDATA)EDATA))
    );if
    (if(assoc 6 EDATA) ;Resets object linetype to BYLAYER if it isn't.
    (setq EDATA(subst(cons 6 "BYLAYER")(assoc 6 EDATA)EDATA))
    );if
    (setq EDATA(subst (cons 8 "0")(assoc 8 EDATA)EDATA));changes layer to 0
    (entmod EDATA);updates entity
    (setq E (entnext E));get next enitiy, nil if end of block
    (Spin)
    );end while E
    );progn
    );if
    BLIST; returns names of any nested blocks
    );defun


    (defun C:NUKE( / BLK_NM CHOICE E EDATA IDX PK_BLK SS)
    (command "._undo" "j")
    (setq CHOICE "S")
    (initget "G S")
    (setq CHOICE(getkword (strcat "\n<G>lobal or <S>elect block: <" CHOICE "> ")))
    (if(not CHOICE)(setq CHOICE "S"))
    (if (= (strcase CHOICE) "G")
    ;global nuke
    (while (setq BLK_NM(tblnext "BLOCK" (null BLK_NM)))
    (TO-0 (cdr(assoc 2 BLK_NM)))
    );while
    ;nuke selected block
    (progn
    (prompt "\nSelect Block(s) to Nuke: ")
    (setq SS(ssget '((0 . "INSERT"))))
    (setq IDX 0)
    (repeat (sslength SS)
    (setq BLK(cdr(assoc 2 (entget(ssname SS IDX)))))
    (cond
    (PK_BLK (setq PK_BLK(append PK_BLK (list BLK))))
    (T (setq PK_BLK(list BLK)))
    );cond
    (setq IDX(1+ IDX))
    );repeat
    (while PK_BLK
    (setq PK_BLK(To-0 PK_BLK))
    );while
    );progn
    );if
    (command "._regen")
    (princ "\rFinished ")
    (princ)
    );defun
    (prompt"\nNUKE loaded.")(princ)



    ez meg az eredeti angol nuke_en.lsp


    ;Redefines ALL objects in any block in the drawing on layer 0.
    ;(c)Jay Garnett (email [email protected]) Written 1/14/97
    ;web page http://www.enteract.com/~jgarnett/lispfactory.htm
    ;Updated 1/25/97 - added select mode
    ;
    ;NUKE.LSP redefines all objects in a block on layer 0, with color and linetype
    ;set to BYLAYER. NUKED blocks will then take on the properties of the layer
    ;that they are inserted on. The routine works by modifing objects in the block table,
    ;so the blocks never have to be exploded.
    ;
    ;The global method redefines ALL objects in every block in the current drawing,
    ;except dimensions, hatching or xrefs, even if they are on a layer that is
    ;frozen or turned off.
    ;
    ;The select method redefines blocks selected with any standard selection method,
    ;as well as any blocks nested in the selected block(s).

    (defun To-0( BLCK / BNAME BLIST E EDATA SPIN TMP )

    ;;; Prints a pinwheel on the command line
    (defun Spin ( )
    (setq SYM
    (cond
    ((= SYM nil) "-")
    ((= SYM "-") "\\")
    ((= SYM "\\") "|")
    ((= SYM "|") "/")
    ((= SYM "/") "-")
    )
    )
    (princ (strcat "\rScanning... " SYM " "))
    );end spin

    (if (=(type BLCK)(read "LIST"))(setq TMP(car BLCK) BLIST(cdr BLCK) BLCK TMP TMP nil))
    (setq BLCK(tblsearch "BLOCK" BLCK))
    (if
    (and
    (/=(logand(cdr(assoc 70 BLCK))1)1) ;skips annomyous blocks
    (/= (logand(cdr(assoc 70 BLCK))4)4) ;skips xrefs
    );and
    (progn
    (setq E (cdr (assoc -2 BLCK)))
    (while E
    (if (=(cdr(assoc 0 (entget E))) "INSERT") ;If the object is a block
    (progn
    (setq BNAME(cdr(assoc 2(entget E)))) ;save the name to a list
    (if (not (member BNAME BLIST))
    (if (not BLIST)(setq BLIST (list BNAME)) ;create the list if it doesn't exist
    (setq BLIST(append BLIST(list BNAME)))
    );if
    );if
    );progn
    );if
    (setq EDATA (entget E))
    (if(assoc 62 EDATA) ;Resets object color to BYLAYER if it isn't.
    (setq EDATA(subst(cons 62 256)(assoc 62 EDATA)EDATA))
    );if
    (if(assoc 6 EDATA) ;Resets object linetype to BYLAYER if it isn't.
    (setq EDATA(subst(cons 6 "BYLAYER")(assoc 6 EDATA)EDATA))
    );if
    (setq EDATA(subst (cons 8 "0")(assoc 8 EDATA)EDATA));changes layer to 0
    (entmod EDATA);updates entity
    (setq E (entnext E));get next enitiy, nil if end of block
    (Spin)
    );end while E
    );progn
    );if
    BLIST; returns names of any nested blocks
    );defun


    (defun C:NUKE( / BLK_NM CHOICE E EDATA IDX PK_BLK SS)
    (command "._undo" "m")
    (setq CHOICE "S")
    (initget "G S")
    (setq CHOICE(getkword (strcat "\n<G>lobal or <S>elect block: <" CHOICE "> ")))
    (if(not CHOICE)(setq CHOICE "S"))
    (if (= (strcase CHOICE) "G")
    ;global nuke
    (while (setq BLK_NM(tblnext "BLOCK" (null BLK_NM)))
    (TO-0 (cdr(assoc 2 BLK_NM)))
    );while
    ;nuke selected block
    (progn
    (prompt "\nSelect Block(s) to Nuke: ")
    (setq SS(ssget '((0 . "INSERT"))))
    (setq IDX 0)
    (repeat (sslength SS)
    (setq BLK(cdr(assoc 2 (entget(ssname SS IDX)))))
    (cond
    (PK_BLK (setq PK_BLK(append PK_BLK (list BLK))))
    (T (setq PK_BLK(list BLK)))
    );cond
    (setq IDX(1+ IDX))
    );repeat
    (while PK_BLK
    (setq PK_BLK(To-0 PK_BLK))
    );while
    );progn
    );if
    (command "._regen")
    (princ "\rFinished ")
    (princ)
    );defun
    (prompt"\nNUKE loaded.")(princ)
  • zenoka
    #428
    hat fugg attol hogy ha a block layer szinun (tehat amikor keszitettek a blockot layerszineket hasznaltak) keszult vagy nem a layerhez rendelt szinnel.. ha utobbi az ciki mert akkor block editor kell es ott atszinezni (nem kell szetrobbantani scak block editorba megnyitni)
  • Atika :o)
    #427
    Hello, ha van egy rajzom ami tele van block-al es mind mas szinu, hogy tudom az egesz rajzot egyszeruen atszinezni egy szinure ugy, hogy ne kelljen a block-at szetrobbantanom??? Koszi
  • tigeroo
    #426



    több verzióra is ezt írja ki telepítéskor, ilyenkor mit csináljak?:D
  • quoasimod
    #425
    Sziasztok !
    Létezhet az, hogy modell alapján, a papírtérben a modellen lévő köröket , valamint az egymással szöget bezáró egyeneseket nem lehet sem átmérő-, sem szögméretező paranccsal méretezni?? Kénytelen voltam segédlayeren újra rajzolni, mert nem talált objektumot.. Fogópontok vannak, megfoghatók, ezekkel lineáris méret készíthető, de kellene a többi is. Lehet ez valami beállításhiba? (vagy verzió-probléma?) ACAD R14-ről van szó
  • Gyakornok01
    #424
    Ügyfélszolgálat... mondjuk ezen lehetne kötöszködni, mert nemtudni az előéletet De inkább No Comment
  • joebacsi
    #423
    Hívd fel az ügyfélszolgálatot, és add meg az adataidat, amire vásároltad.
  • ZilogR
    #422
    ahogy Zenoka is mondta volt: "nem hiszem hogy warez topic lenne" - és valljuk be, tényleg nem is efféle akar ez lenni.

    Ellenben ha már rászántad magad és elkezdted újra, akkor kérdezz itt, biztosan lesz vki, aki segít neked...
  • zenoka
    #421
    google a baratod.. nem hiszem hogy warez topic lenne
  • mithology
    #420
    Sziasztok!

    Nem tudom, hogy használ-e vki civil 3d 2008-at, de sajnos elkavartam valahová a serial-t és azt szeretném megkérdezni, hogy tud-e adni nekem vki hozzá egy keygent vagy bármilyen serialt, ami működik-e?
    Szükségem lenne a kódra, mert el kellene megint kezdenem használni, de sehol sem találok hozzá serialt.

    Előre is köszi

    Mithology
  • zenoka
    #419
    es nyomjon egy purge-t utana biztos ami biztos alapon
  • Petko
    #418
    Hát ha a rajzban nincs egy granyi arialMT se, akkor csak nem írná ki.
    Quickselectel keress rá mindenre ami arialmt... illetve a betűstílusokat is nézd át, hogy azokba nincs e valahol arialmt definiálva
  • Gyakornok01
    #417
    Szia! Eddig én is eljutottam. De ha a betűtípust átállítom, akkorsem működik Ezt nem értem, hogy ha átállítom a saját betűtípusomra, meg minden, akkor sem műxik.... Ki milyen betűtípust használ? Amúgy letörés méretezésről van szó... a számok működnek, de "X 45" fok nem....azt nem bírja értelmezni. Lehet ha nagyleszek alapítok egy hibák javításán alapuló céget
  • Petko
    #416
    csak egy tipp: a rajzon valaki "arialmt" betütípust használt bszövegben, és a gép ahol pdfbe probalsz nyomtatni, ott nincs meg ez a betütípus
  • Gyakornok01
    #415
    Sziasztok!
    autocad 2010LT-ből PDF-probléma olvasható a képen. Minden lehetséges dolgot átállítottam, mégis. Szinte az összes betűtípust próbáltam. Mit, hogyan és hova kell állítani? THX

  • Atika :o)
    #414
    na ezzel en is igy vagyok ugyan is pont ugyan ezt csinalom
  • Atika :o)
    #413
    :D ismeros ezek kozul par dolog nalam is he he ezek az igazi Autocadluzerek :D
  • Petko
    #412
    ne panaszkodj, mert az épületvillamossági területen a többi szakági alaprajzokkal való munka ezerszer szarabb bárminél... olyan szar szemét rajzokat kapok, amiket utánna napokig csak tisztítanom kell, hogy valamire használható legyen
    eleve ott kezdődik a gond, hogy minden építész archicadben dolgozik és onnan exportál autocadbe, és ezek a rajzok borzalmasak... minden szaros faldarab blokkba van ágyazva, aztán majdnem minden vonal külön layeren még a blokkokon belül is... napokig tart egy ilyet rendberaknom hogy utánna dolgozni lehessen vele
  • ZilogR
    #411
    ...nameg ott vannak azok, akik sraffozást vagy méreteket robbantanak fel.
    Ezeket azonnali seggberúgással jutalmaznám.

    Vannak akik mindent egy fóliára rajzolnak más színekkel - a jutalom egy hónap monokróm monitor előtti munka... :P

    És a kedvenc, a mindent-saját-magamról-elnevezős típus (ők a Sanyi1, Sanyi2, ... fóliákon a Sanyi_MERET_01 méretstílussal méreteznek) (ez utóbbiból a saját méretstílussal már összefutottam, de volt, h projekt elnevezés helyett saját névreszólós mappába ment a rajzolás OMG :) )
  • ZilogR
    #410
    nekem az a gyenge pontom, amikor olyan rajzot kapok, ami síkban van rajzolva és vannak olyan részei, amelyek egy másik rajzból vannak bemásolva, de ott a z koordináta nem nulla volt.

    huszadik copy után az innen-onnan jött részekkel lehetetlen egy értelmes metszéspontot megfogni
  • zenoka
    #409
    jaja az a jobbik eset meg az 1:1 se zavar de az 1:200 az grrrr
  • Klon
    #408
    a jobbak 1:100 ba nyomják a keresztszelvényt :)
  • zenoka
    #407
    van par hidas akinek hobbija rogton 1:200 ba rajzolni
    hihetetlen. mondjuk nekem mar attol fel all a szor hatamon amikor egy melon belul az utas kollegak a keresztszelvenyeket hol 1:100 ban hol 1:1 ben hol 1:200 ban toljak...
  • ZilogR
    #406
    ??? csak nem valami elcseszett léptékben rajzolnak? te jó ég!
    és akkor hogyan méretezik be a rajzot?
    hogy a nyomtatás mizériájáról ne is beszéljünk... :@

    nameg mi van, ha egy részletet át kell rakni egy más léptékben rajzolt rajzra??? OMG OMG
  • zenoka
    #405
    sot ha model terbe 1:1 be rajzolsz atmesz utana papirterbe ahol betudod rogton allitani hogy 1:500 ba lasd...

    ZilogR: fuu jo lenne ha a hidtervezoknek is elmondanad ezt:D:D
  • Atika :o)
    #404
    hat ki hogyan :D de igen ugy kellene :)
  • ZilogR
    #403
    sőt, AutoCAD-ben (és minden tervező programban) KIZÁRÓLAG 1:1-ben szabad ÉS kell rajzolni!!!
  • Atika :o)
    #402
    nyomtatasnal be lehet allitani az aranyt szoval nyugodtan rajzolhatsz 1:1 ben