AutoCAD / AutoLISP
Jelentkezz be a hozzászóláshoz.
#461
Sziasztok!
Autocad 2004 méretezésben szeretnék segítséget kérni. A rajzot kaptam, amelynek méretékei kétszer akkorák, mint a valóságban. Kérdésem, lehet-e át méretezni a rajzot?
Köszönöm a segítséget.
Autocad 2004 méretezésben szeretnék segítséget kérni. A rajzot kaptam, amelynek méretékei kétszer akkorák, mint a valóságban. Kérdésem, lehet-e át méretezni a rajzot?
Köszönöm a segítséget.
#460
Sziasztok!
Autocad nyomtatásban szeretnék segítséget kérni, a 2007-es verziót használom. Szóval vannak nekem különbözõ rajzfájlaim, amiket plotteren szeretnék kinyomtatni, mivel elég hosszúak (több méter is lehet). Azonban elõször pdf-be szeretném, mivel ott egybõl látom, ha valami rossz (vonalvastagság stb)+jobb ha elõre megvan amikor viszem nyomtatni. Szóval próbáltam 1:1-ben nyomtatni, mivel méretarány szerint ok már, de nem tudok olyan nagy papírméretet létrehozni pdf nyomtatóval (bullzippdf, sonic pdf, adobe pro). Egyedül az adobe pro engedte létrehozni a nagy paírméretet, viszont amikor kiválasztom, akkor nem vált át arra méretre a nyomtatáshoz. Szóval hogyan lehetne megoldani azt, hogy elõállítsam a pdf fájlokat??
Köszia segítséget.
Autocad nyomtatásban szeretnék segítséget kérni, a 2007-es verziót használom. Szóval vannak nekem különbözõ rajzfájlaim, amiket plotteren szeretnék kinyomtatni, mivel elég hosszúak (több méter is lehet). Azonban elõször pdf-be szeretném, mivel ott egybõl látom, ha valami rossz (vonalvastagság stb)+jobb ha elõre megvan amikor viszem nyomtatni. Szóval próbáltam 1:1-ben nyomtatni, mivel méretarány szerint ok már, de nem tudok olyan nagy papírméretet létrehozni pdf nyomtatóval (bullzippdf, sonic pdf, adobe pro). Egyedül az adobe pro engedte létrehozni a nagy paírméretet, viszont amikor kiválasztom, akkor nem vált át arra méretre a nyomtatáshoz. Szóval hogyan lehetne megoldani azt, hogy elõállítsam a pdf fájlokat??
Köszia segítséget.
#459
(¯`•.¸¸.•´¯`•.¸¸.•~>
#458
Sziasztok AutoCad 2011 ben mikor megnyitok egy rajzot ahol hianyoznak betutipusok akkor kidob egy ablakot
es itt en veletlenul bepipaltam hogy tobbet ne mutassa hol lehet ezt a pipat kivenni??
es itt en veletlenul bepipaltam hogy tobbet ne mutassa hol lehet ezt a pipat kivenni??
(¯`•.¸¸.•´¯`•.¸¸.•~>
#456
Oké, köszi!
Mercedes-Benz: The best or nothing! :) W124 (L) No turbo, no nitro, only BMW POWER! :)
#455
1.) letezik plusz megjelent kismilio konyv plusz van egy nagy haverunk
2.) osnap, midpoint
2.) osnap, midpoint
"A kreativitás titka az, hogy ügyesen titkold el a forrásaidat" (Albert Einstein)
#454
Sziasztok!
Most kell elkezdenem használni ezt a progit. Lenne pár kérdésem:
1. Létezik valami magyar tutorial?
2. Hol találom azt a parancsot, hogy a vonal közepét jelölje be nekem?
Most kell elkezdenem használni ezt a progit. Lenne pár kérdésem:
1. Létezik valami magyar tutorial?
2. Hol találom azt a parancsot, hogy a vonal közepét jelölje be nekem?
Mercedes-Benz: The best or nothing! :) W124 (L) No turbo, no nitro, only BMW POWER! :)
#453
Koszi 😊 a list segitett
(¯`•.¸¸.•´¯`•.¸¸.•~>
#452
csak lisp-el vagy ha nem veszesen sok akkor van egy ilyen parancs hogy List kijelolod az vonalakat aztan kilistazza az ertekeit es gyorsan osszeadogatod a szamokat.. mas sajna nem igazan de lispel egyszeru ha valaki tud lispet😄
"A kreativitás titka az, hogy ügyesen titkold el a forrásaidat" (Albert Einstein)
#451
Autocadben megoldhato az valahogy, hogy egy adott layeron kiszamolna nekem a vonalak hosszusagat?
(¯`•.¸¸.•´¯`•.¸¸.•~>
#450
koszi
(¯`•.¸¸.•´¯`•.¸¸.•~>
#449
Nekem OverCAD DWG Compare van fenn. Néha kellett használnom, amikor nem volt vki következetes a revíziók számozásával, vagy vki rámentett egy régi tervre...
*Zsebszámológépet keresek!* Ha van eladó CASIO, Hewlett-Packard, Texas Instruments számológéped, küldj privát üzenetet! Programozható típusok el?nyben! Ócskaságok, hibásak is érdekelnek!
#448
koszi
#446 googlet probaltam talaltam valamit autodesktol ami ingyenes de nem a legjobb 😊
#446 googlet probaltam talaltam valamit autodesktol ami ingyenes de nem a legjobb 😊
(¯`•.¸¸.•´¯`•.¸¸.•~>
#447
holnap megnézem, mi van fent nekem. én is legoogleztam egyet. asszem vhány használatig free, de úgysem kellett túl sokszor...
*Zsebszámológépet keresek!* Ha van eladó CASIO, Hewlett-Packard, Texas Instruments számológéped, küldj privát üzenetet! Programozható típusok el?nyben! Ócskaságok, hibásak is érdekelnek!
#446
Hello!
Ha egy elõtér és XREF vizuális összehasonlításnál precízebb dologra gondolsz, ami AutoCAD parancsként elérhetõ, akkor az az általam ismert verziókban tudomásom szerint nincs ilyen.
Ha a Google-ban beírod a "compare autocad dwg" keresõkifejezést, jó néhány találatot ad. Köztük olyan programokét is amelyek DWG állományok összehasonlítására szolgálnak. Talán van közöttük free, vagy használható próbaverziós.
Ha egy elõtér és XREF vizuális összehasonlításnál precízebb dologra gondolsz, ami AutoCAD parancsként elérhetõ, akkor az az általam ismert verziókban tudomásom szerint nincs ilyen.
Ha a Google-ban beírod a "compare autocad dwg" keresõkifejezést, jó néhány találatot ad. Köztük olyan programokét is amelyek DWG állományok összehasonlítására szolgálnak. Talán van közöttük free, vagy használható próbaverziós.
#445
Sziasztok autocadben hogyan tudok osszehasonlitani ket rajzot hogy megtudjam mi az elteres koztuk???
(¯`•.¸¸.•´¯`•.¸¸.•~>
#444
Sziasztok, csigalépcsõ korlátot szeretnék rajzolni. Szereztem 3dspiral.lsp nevû cuccot, mûködik id rendesen, megcsinálja a spirált ahogy kell. A spirál kezdõpontja köré rajzolok egy kört, kihúzom a spirál mentén, csodálatos. De ha nem kört akarok kihúzni, hanem mondjuk négyzetet, akkor a spirál mentén haladva folyamatosan elfordul a négyzet, és a spirál közepén diagonálba fordul a metszet. Tudja valaki miért van ez, és hogy hogyan lehet ezt kikerülni? Köszi elõre is...
#443
ez egy erdekes hobbi😊 ha valahol latok egyet szolok😊
"A kreativitás titka az, hogy ügyesen titkold el a forrásaidat" (Albert Einstein)
#442
Nem kell feltétlen HP-ra és Texas-ra gondolni. A CASIO fx-sorozata is szuper...! Old CASIO stuffok - hátha van neked/szüleidnek egy a fiókban?!?! Aztán akár privátban is írhatsz!
*Zsebszámológépet keresek!* Ha van eladó CASIO, Hewlett-Packard, Texas Instruments számológéped, küldj privát üzenetet! Programozható típusok el?nyben! Ócskaságok, hibásak is érdekelnek!
#441
hehehehehehe
"A kreativitás titka az, hogy ügyesen titkold el a forrásaidat" (Albert Einstein)
#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... 😛 (Gyûjtöm õket, ugyanis...)
*Zsebszámológépet keresek!* Ha van eladó CASIO, Hewlett-Packard, Texas Instruments számológéped, küldj privát üzenetet! Programozható típusok el?nyben! Ócskaságok, hibásak is érdekelnek!
#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 😊
...::: http://www.g10design.hu/ :::...
#438
Ilyen alapon miert nem csinalod meg magad??? Autocad nem egy bonyolult program es neten talalsz hozza tutorialokat is.
(¯`•.¸¸.•´¯`•.¸¸.•~>
#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 😊
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 😊
...::: http://www.g10design.hu/ :::...
#436
nem eselytelen mert ugyis lesz aki a keveske penzert elvalallja csak leirtam hogy hangzott.
"A kreativitás titka az, hogy ügyesen titkold el a forrásaidat" (Albert Einstein)
#435
Egyszerûbb lett volna, ha leírod, hogy szerinted esélytelen ;-)
...::: http://www.g10design.hu/ :::...
#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.
"A kreativitás titka az, hogy ügyesen titkold el a forrásaidat" (Albert Einstein)
#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!
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!
...::: http://www.g10design.hu/ :::...
#432
azt hol kell beallitani autocadben hogy ha megnyitok egy rajzot akkor ne nyisson nekem meg egy cadet nemtalalom 😊
(¯`•.¸¸.•´¯`•.¸¸.•~>
#431
koszi kiprobalom 😊
(¯`•.¸¸.•´¯`•.¸¸.•~>
#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 😞
(¯`•.¸¸.•´¯`•.¸¸.•~>
#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)
;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)
#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)
"A kreativitás titka az, hogy ügyesen titkold el a forrásaidat" (Albert Einstein)
#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
(¯`•.¸¸.•´¯`•.¸¸.•~>
#426
több verzióra is ezt írja ki telepítéskor, ilyenkor mit csináljak?😄
#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ó
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ó
#424
Ügyfélszolgálat... mondjuk ezen lehetne kötöszködni, mert nemtudni az elõéletet <#gun> De inkább No Comment <#eplus2>
#423
Hívd fel az ügyfélszolgálatot, és add meg az adataidat, amire vásároltad.
www.rdha.hu [bf 80k] [bf2 100k] KisKöcsögkör FTW! \"Az ország azé, aki teliszüli.\"
#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...
Ellenben ha már rászántad magad és elkezdted újra, akkor kérdezz itt, biztosan lesz vki, aki segít neked...
*Zsebszámológépet keresek!* Ha van eladó CASIO, Hewlett-Packard, Texas Instruments számológéped, küldj privát üzenetet! Programozható típusok el?nyben! Ócskaságok, hibásak is érdekelnek!
#421
google a baratod.. nem hiszem hogy warez topic lenne
"A kreativitás titka az, hogy ügyesen titkold el a forrásaidat" (Albert Einstein)
#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
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
#419
es nyomjon egy purge-t utana biztos ami biztos alapon
"A kreativitás titka az, hogy ügyesen titkold el a forrásaidat" (Albert Einstein)
#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
Quickselectel keress rá mindenre ami arialmt... illetve a betûstílusokat is nézd át, hogy azokba nincs e valahol arialmt definiálva
#417
Szia! Eddig én is eljutottam. De ha a betûtípust átállítom, akkorsem mûködik <#ejnye1> 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 <#violent><#hehe>
#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
#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<#wow1><#falbav>
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<#wow1><#falbav>
#414
na ezzel en is igy vagyok ugyan is pont ugyan ezt csinalom
(¯`•.¸¸.•´¯`•.¸¸.•~>
#413
😄 ismeros ezek kozul par dolog nalam is he he ezek az igazi Autocadluzerek 😄
(¯`•.¸¸.•´¯`•.¸¸.•~>
#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
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