AutoCAD / AutoLISP

koszi

A Total Commanderben a dwg fájlt nyisd meg a Nézõkével (F3), ami úgy kezdõdik, h AC1015 az 2000-es formátum.

Sziasztok letezik olyan program amiben nemg lehet nezni hogy a dwg milyen autocadben lett elmentve?? Az a lenyeg hogy mindent 2000 be kell lementenunk namost sokan dolgoztunk egy projekton es muszaj lekontrolalnom es semmi kedvem mindet kinyitni es ujra elmenteni. Koszi

ahan az jó
mert a suliban idõre kell rajzolni és így akkor inkább otthon megcsinálom:D
vki nem tud vmi oldalt ahol vannak autocad-es rajzok mint pl amik itt van?
thx csáó

persze formatum fuggo..lenyeg hogy mondjuk autocad 2000 be mentsd el asszem mondjuk pont 2007 es 2006 kozott nincs formatum kulonbseg:D viszont vannak ha csinalsz intelligencs blockot azt nem biztos hogy 2000 be eltudod menteni normalisan..

hy
ha autocad 2007-ben rajzolok vmit akkor azt 2006 olvassa?
thx cs

nekem a régebbi kiadás van meg még r14-es autocadhez kezdésnek azzal is elég jol el lehetett boldogulni és mivel a szerzö ugyan az igy nagy hiba nem lehet benne, de talán jön majd más aki jobban benne van a témában és tud addni tanácsot könyv ügyben neked.

Valaki tudna ajánlani auto cad könyvet? Ezt néztem ki, de hátha tud valaki jobbat. Elõre is köszi.

Megoldottam a problémát!! Ki kellett kapcsolnom a hardveres gyorsítást, és láss csodát, mûködik...Azért köszi

Ismerem az elõzõ verziókat a 2004 óta... de ez most más. Itt teljesen szétesnek a vonalak és a regen parancs sem segít, mert pl a vonalak végpontja más helyen lesznek ha ráközelítek. Minden közelítésnél más szögben vannak a vonalak... szal ilyenek a problémák. Ha valaki tapasztal már ilyen akkor ossza meg velem, h h kell megcsinálni! Sp1 sem segített rajta. kössz

ez már amióta létezik a világ mindíg is így volt... ha ráközelítesz regenerationt kell nyomni hogy frissítse a vektoradatokat

Helló! Feltettem az autocad 2009-et! Az a problémám vele, h a vonalak szétcsúsznak, elforognak, szaggatottá válnak, vagy egyszerûen eltûnnek... De csak akkor ha eléggé rázoommolok. Már 2 ATI videókártyás gépen próbáltam és ugyanaz a jelenség (mindkettõn vista 32bit-64bit). 1 xp-s gépen nvidia kártyával+1vistás gépen nvidiával jól mûködik. Vkinek volt már hasonló gondja? köszi (ja és a 2008as verzió tökéletes...)

2009-ben hogy lehet a ribbonhoz új panelt adni? A costumizebe megtaláltam amit hozzá szeretnék tenni, de nem lehet odahúzna, vagy vmi pipa, hogy show.

Elõre is köszi

ZilogR: megcsinalnam ha volna itthon 2007es cadem mert jelenleg regebbi van csak..meloba meg csak jan5-diken megyek..

pfprg: ehh szep kis lisp..megkenne mar tanulnom lispet irni:) Tudtad hogy az elso ugy mond beszelgetos mesterseges inteligenciat LISP ben irtak anno pont a lista kezelese miatt:D

Az elsõ megoldás a ZENOKA által körvonalazott megoldások valamelyike lenne, de mivel én csak R2006 verziót használok, és az AutoCAD méretezõ funkcióit sohasem használom, ezekhez pillanatnyilag nem tudok segítséget nyújtani neked.

A másik megoldás az, hogy az általad leírt attribútumos blokkot nem az AutoCAD INSERT parancsával illesztem be, hanem egy AutoLisp-ben definiált paranccsal, amely a beillesztés során végigvizsgálja a blokkdefiníciót, és ha az attribútumai között talál olyanokat amelyek címkéje "Y-koord" , "X-koord" vagy "Z-koord" értékû, akkor azokban automatikusan elhelyezi a beillesztési pont megfelelõ koordinátáit.

Már régebben készítettem egy ilyen parancsot.
Elindítása után bekéri a beillesztendõ blokk nevét, a beillesztési szorzót, és a koordináták megjelenítendõ tizedesjegyeinek számát, majd beillesztési pontokat, és irányokat kér, és elhelyezi a blokkreferenciákat. Ha azoknak van a fentiektõl eltérõ címkéjû attribútumuk is, azokat is bekéri.
A parancs következõ indításakor már nem kéri a blokk nevét, beillesztési szorzóját, és a tizedesek számát, de azok módosíthatók amig a beillesztési pont megadására szolgáló porompt aktív.

Ide biggyesztem a Lisp kódot, ha jónak találod, használd egészséggel.
Használatának legegyszerûbb módja az, ha belemásolod az AutoCAD menüjéhez tartozó *.MNL fájlba. Ennek neve általában acad.mnl szokott lenni.


(defun c:koord_blokk ()
(defun koord_blokk_nev ()
(initget 1)
(setq koordblokknev (getstring "\nBlokk neve: "))
)
(defun koord_blokk_meret ()
(initget 3)
(setq blokkszorzo (getreal "\nBlokk beillesztési szorzója: "))
)
(defun koord_blokk_tizedes ()
(initget 5)
(setq koordtizedes (getint "\nKoordináták tizedesjegyeinek száma: "))
)
(defun elem_alaplista_orig (eleml / q result)
(setq result '() q -1)
(while (setq q (1+ q) lista (nth q eleml))
(if (not (member (car lista) '(-1 330 5 100 410 360 67 3))) (setq result (append result (list lista))))
)
)
(defun blokk_attributumELIST_lista (blokknev / elem eleml result)
(setq result '())
(if (setq elem (tblobjname "BLOCK" blokknev))
(if (logand 2 (cdr (assoc 70 (entget elem))))
(while (setq elem (entnext elem))
(if (= (cdr (assoc 0 (entget elem))) "ATTDEF")
(setq result (append result (list (entget elem))))
)
)
)
)
result
)
(defun blokk_attrib_ertekadas (elem_ cimke_ ertek_ / *eleml_)
(if (setq eleml_ (entget elem_))
(if (= (cdr (assoc 0 eleml_)) "INSERT")
(while (not (equal (cdr (assoc 0 (entget (setq elem_ (entnext elem_))))) "SEQEND"))
(setq eleml_ (entget elem_))
(if (equal (cdr (assoc 0 eleml_)) "ATTRIB")
(if (equal (strcase (cdr (assoc 2 eleml_))) (strcase cimke_))
(progn
(entmod (subst (cons 1 ertek_) (assoc 1 eleml_) eleml_))
(entupd elem_)
)
)
)
)
)
)
)
;
(if (not koordblokknev) (setq koordblokknev (getstring "\nBlokk neve: ")))
(if (tblsearch "BLOCK" koordblokknev)
(progn
(if (not blokkszorzo) (koord_blokk_meret))
(if blokkszorzo
(progn
(if (not koordtizedes) (koord_blokk_tizedes))
(if koordtizedes
(while (setq qwe (initget "N M T") bp (getpoint "\nBeillesztési pont (Név/Méret/Tizedes) "))
(cond
((equal bp "N") (koord_blokk_nev))
((equal bp "M") (koord_blokk_meret))
((equal bp "T") (koord_blokk_tizedes))
((and (equal (type bp) 'LIST)
(equal (type blokkszorzo) 'REAL)
(equal (type koordtizedes) 'INT)
(tblsearch "BLOCK" koordblokknev)
)
(setq irany (getangle bp "\nBeillesztés iránya: ")
irany (if irany irany 0.0)
eleml (entget (tblobjname "BLOCK" koordblokknev))
flag (if (logand 2 (cdr (assoc 70 eleml))) 1 0)
egyeb '()
)
(entmake
(list
'(0 . "INSERT")
(cons 2 koordblokknev)
(cons 10 bp)
(cons 41 blokkszorzo)
(cons 42 blokkszorzo)
(cons 43 blokkszorzo)
(cons 50 irany)
(cons 66 flag)
)
)
(if (setq attrlist (blokk_attributumELIST_lista koordblokknev))
(progn
(setq q -1)
(while (setq q (1+ q) eleml (nth q attrlist))
(if (= (cdr (assoc 0 eleml)) "ATTDEF")
(progn
(setq cimke (strcase (cdr (assoc 2 eleml)))
eleml (elem_alaplista_orig eleml)
eleml (subst '(0 . "ATTRIB") (assoc 0 eleml) eleml)
eleml (subst (cons 40 (* blokkszorzo (cdr (assoc 40 eleml)))) (assoc 41 eleml) eleml)
eleml (subst (cons 50 irany) (assoc 50 eleml) eleml)
eleml (subst (cons 11 (polar bp (+ (angle '(0 0 0) (cdr (assoc 11 eleml))) irany) (* (distance '(0 0 0) (cdr (assoc 11 eleml))) blokkszorzo))) (assoc 11 eleml) eleml)
eleml (subst (cons 10 (polar bp (+ (angle '(0 0 0) (cdr (assoc 10 eleml))) irany) (* (distance '(0 0 0) (cdr (assoc 10 eleml))) blokkszorzo))) (assoc 10 eleml) eleml)
)
(cond
((= cimke (strcase "X-koord"))
(setq eleml (subst (cons 1 (rtos (car bp) 2 koordtizedes)) (assoc 1 eleml) eleml))
)
((= cimke (strcase "Y-koord"))
(setq eleml (subst (cons 1 (rtos (cadr bp) 2 koordtizedes)) (assoc 1 eleml) eleml))
)
((= cimke (strcase "Z-koord"))
(setq eleml (subst (cons 1 (rtos (caddr bp) 2 koordtizedes)) (assoc 1 eleml) eleml))
)
(T
(setq egyeb (append egyeb (list (cdr (assoc 2 eleml)))))
)
)
(if (not (entmake eleml))
(princvalt "eleml")
)
)
)
)
)
)
(entmake (list '(0 . "SEQEND") '(8 . "0")))
(if egyeb
(progn
(setq q -1 elem (entlast))
(while (setq q (1+ q) cimke (nth q egyeb))
(setq ertek (getstring T (strcat "\n" cimke " attribútum értéke: ")))
(blokk_attrib_ertekadas elem cimke ertek)
)
)
)
)
)
)
)
)
)
)
)
)

Az elsõ lenne nekem a megfelelõ, tehát nekem kell olyan blokk-definíciót gyártanom, ami tudja azt, hogyha egy térbeli csõhálózat egy pontjára "rárakom", akkor ott megjelenjen annak a pontnak a koordinátája, ahová raktam.

De ha leírod, amit a második alatt említettél, annak is nagyon örülnék - és talán más is! Elõre is köszönöm!

Majd a leírásodból ki fog derülni, h mi a különbség a kettõ között, mert annyira nem vagyok benne biztos, hogy értem pontosan (nem írok többet, mert úgyis kiderül, h te hogyan érted, amit írtál, aztán majd tudok kérdezni tovább, vagy megvilágosodni... :P )

Mit szeretnél gyártani? Blokkdefiníciót készíteni, amely képes mindazt automatikusan elvégezni amit leírtál, vagy a már definiált blokkot beilleszteni úgy, hogy a blokkreferenciák attribútumaiban automatikusan megjelenjenek a beillesztési pont koordinátái?
Az utóbbiban tudnék segíteni.

2007 tol mar lehet dinamikus blokkokat csinalni kezdj el annak utana olvasni..nagyon sok hidas rajzon talalkoztam mar ilyennel ahol a colopcsucsok igy voltak megoldva. bar egy ketto meg ugy hogy volt a koordinata rendszer es annak az origojatol volt bemeretezve a pont es mikor a fogo pontjat mozgattad a-bol b-be akkor valtozott a merettavolsag es az lett kiirva..az is egy jarhato ut:D vagy irsz lispet:))

Üdv! Egy kis Karácsonyi fejtörõ - de még ma oldja meg valaki, ha lehet :P ;)

Gyártani akarok ilyen szép attributumos blokkokat:




Azt szeretném, ha beszúrok egy ilyet, az X, Y, Z koordináta feliratok helyén a nyíl hegyének koordinátája legyen. Ahová teszem, az legyen rajta a felirat.
A nyílhegy legyen a blokk insertion point-ja az egyszerûség (és egyértelmûség) kedvéért.

Ötlet?!??!

Ott minden rendbenlévõnek tûnik, bár fogalmam sincs hogy is kell beállítani, csak sejtem.

akkor view->visual style->realistic es nezd meg hogy az anyagok bitmap hivatkozasai jok e.

Az AutoCAD 2004 -ben szerkesztés közben is láttam az anyagokkal felruházott objaktumokat. Tudtam forgatni, nézegetni minden oldalról. Az AutoCAD 2007 -ben pedig bármit állítgatok, szürke minden objaktum. Renderelve természetesen látszanak az anyagok. Biztos rosszul állítok be valamit, de ha nem, akkor vissza a 2004 -hez.

Üdv. : Jusy

elmeletileg az lathato kell hogy legyen ha rendereled tehat kiadott ar ender parancsot model viewportban..de ha sok szivastol akarod megkimelni magad hasznalj mas programot rendereleshez mondjuk 3dsmaxot..model meg mehet autocedben

Üdv mindenkinek :)
Remélem nem szegek szabályt a kérésemmel!
Keresem az AutoCad MEP 2008 magyarnyelvû DVD-nek a hu-HU / ACD-MEP mappa tartalmát. Mindössze 43 MB környékén lehet.
Ha valaki becsomagolva feltenné valahová, a letöltési címet elküldené privátra, nagyon hálás lennék.
Elõre is köszönöm, ha fáradozik vele valaki Üdv Impi

Sziasztok !

Segítségre lenne szükségem. Hogyan tudom az AutoCAD 2007 -ben beállítani azt, hogy ha egy objektumhoz anyagot rendelek, akkor az látható legyen realisztikus módban ?

Elõre is köszönöm : Jusy

Valaki nem tudja, hogy lehet a 2009-ben ilyen eszköztárat beállítani?

akkor sajnos latni kellet volna a filet az meg gondolom nem pudlic:)
noh mindegy ha van ki megrajzolja:D:D:D

Köszönöm! a blokkozást szétrobbantást megpróbáltam de sajnos nem jött be, a meglévõ vonalláncok vonaltípusának állítása után ugyanúgy fordult betûk jelentek meg.
Papírtérnek meg már nem sok értelme van így utólag, mert a meglévõ vonalakat akkor is újra kell rajzolni (meg kell digitálisan is kell adatot szolgáltatni), úgyhogy végül szegény kollegával újrarajzoltattam :P

alakitsd az elkurt rajzot egy nagy blokka forgasd be a normalis fkr-re majd robbantsd fel elmeletileg mukodik...
vagy hasznalj papir nezetet
tehat a legegyszerubb ha papirterbe behivod a szar modelteret es a papirter fkr-jeben rajzolgatod a sajat kis vonaljaitok...eleg favago megoldas de ha csak papirra akartok belole utana nyomtatni vagy pdf-be es digitalisan nem kell leszallitani akkor ez a leggyorsabb:D

na erre varjatok gombot:
van egy elqrt alaprajz amibe dolgoztunk (2d), és behúztunk egy rakás nyomvonalat
van egy rakás saját komplex vonaltípusunk, amiben szöveges szegmensek vannak pl. - - 10kV - - 10kV stb.
amikro vonaltípusokat akartunk rakosgatni állandóan a betük megfordultak a függõleges tengelyük körül, és jó sok idõbe telt mire rájöttem hogy azért van mert az FKR szarul volt beállítva (x és y megcserélve), kicseréltem az fkrt normál x vízszint y függõlegesre és mostmár újonan húzott vonalaknál jó a vonaltípus, de az a sok régi vonal ami meg lett húzva a szar fkrben, ha csak módosítum a vonaltípusát a betük felfordulnak
namost semmi kedvünk újrahúzogatni az összes vonalat, ezért kérdem nem lehet valahogy kiresetelni az FKR-t ezeknek a vonalaknak az esetében?

Ja aztán ahogy feláltam a géptõl rájöttem, hogyha a 20-asok középpontjából 80-as metszést csinálsz, akkor onnan 100-al megkapod az érintõt. Elég alap dolog, semmi matek, csak tényleg rég volt már. :)

elobb kerdeztem mint gondolkoztam volna :) de koszi a gyors valaszt

tobb modszer van
1.) szoget merst fuggolegeshez kepest dimensionnal:D
2.) huzol egy fuggoleges vonalat, kijelolod azt amit forgatni szeretnel_ nyomsz egy align parancsot es megadod hogy az objectum egyik pontja az elobb huzott fuggolegeshez also pontjahoz a masik pontja a fuggoleges masik vegpontjahoz igazodjon es mikor megkerdezi hogy hozza is scale-ze nemet mondasz neki:D

Sziasztok ha van autocadben megrajzolva nekem valami ami el van forgatva egy bizonyos szogbe de azt a szoget nemismerem es szeretnem fuggoleges iranyba forditani azt hogy tudom megcsinalni??

ksizerkesztettem direk lent lejjeb le lehet tolteni a dwg-t sajnos itt kellet volna erintot is:S meg a jobb oldalon levo 20 es 25 os lekerikesek talalkozasanal is:D

Vagy dehogy a legfelsõ pontja, akkor viszont már kicsit bonyolultabb, vagy annyira nem, csak nekem volt már rég, hogy utoljára körzõ lett volna a kezemben... :)

Ha nem kell érintõt számolni, hanem megvannak a csatlakozási pontok (ez esetben ez gondolom a 20-as kör legfelsõ pontja), akkor hagyományos szakrajzos módszerrel is pofon egyszerû lenne papíron, a csatlakozási pontokból mérsz körzõvel 100-ast és a metszéspont a középpont.

jah, télleg! ott a pont! :)

Köszi mindenkinek sikerült az Éés-sel.

nem kell fillet rajzol egy sima kort es trimmeli a nem kivanatos reszeket:D


http://iaro.3dmax.hu/kep/acad_gabor.dwg

meg van rajzolva a ket R20 as lekerikitesed ugye
aztan fogod beirod hogy circle es ott feldob harom lehetoseget a zarojelben 3p/2p/es a harmadik ami a magyaron ÉÉS (erinto erinto sugar / bocsi itthon nincs angol igy nem tudom a roviditeset) nah a harmadiknak az elso betujet beirod aztan kattintasz eloszor a baloldali korre (R20as lekerites kore vagy iv) aztan a jobb oldalira es beirod aztan hogy 100 es kesz az iv

aztan ha annak a kozepe kell akkor csak snappelnel bekapcsolod a kozeppontot ramesz az ivre es felis villan a kozepe...
vagy mire gondoltal?:D

a fillet lekerekíti neked, ha a két R20-as körre rámutatsz, de épp ellentétes oldalra pakolja a 100-as kör középpontját, így egy olyasmi alakzatra fog hasonlítani a "teteje", mint egy láncszem.

Este kicsit megnézem ezt a fillet-et, hogyan lehet megkérni, hogy melyik oldalra essen a kör középpontja.

ohh sorry, most olvasom megint a problémát, kicsit félreértettelek...

nagyon egyszerû :)
a tárgyraszterek (TRASZTER) között legyen bekapcsolva a középpont, és mondjuk kattints a vonal-gombra, és vidd a kurzort a 100-as sugarú körívre. látni fogod, h egy kis sárga kör jelenik meg, ott a kör középpontja. remélem érthetõ volt :)

Valaki nem tudná megmondani, hogy a 100 sugarú kör kezdõpontját hogy kell meghatározni?

ok, köszönöm, ez meg is van nekem egy CD-n, sõt emileztem is a regisztráció miatt anno a sráccal.
tudom, túl nagyok az igényeim, hogy AutoCAD-et keresek, de csak van valakinek elfekvõben valami IGAZÁN régi release - vagy akár az összes megvan valakinek???

Annak is utánanéztem, h az elsõ release 1982 decemberben jelent meg az USA-ban és az elsõ 286-os proci 1982 február 1-én, így elképzelhetõ, hogy már csak 16 bites változatban íródott az AutoCAD és nem támogatta az XP-t vagy a 80186-os procicsaládot.

ok nemszoltam es tenyleg nem hasznaltam meg olyat

nesz enked googliztam:D:D

paldraw for izebizedhez:D

DOS 5.0 hasít rajta, nem Windows - végre egy értelmes masina ;) BÁRMIHEZ hozzá lehet nyúlni és még a DEBUG is fut!