|
Rund um Autocad : Ausrichten mehrere Elemente
Proxy am 14.09.2006 um 19:47 Uhr (0)
Lösungsvorschlag (1):Code:(defun C:block_rotate () (setq #cb (ssget) z 0 ) (setq bksxdir (getvar "ucsxdir")) (setq p1 (list 0 0)) (setq p2 (list (car bksxdir) (cadr bksxdir))) (setq bksrot (angle p1 p2)) (repeat (sslength #cb) (setq cb (entget (ssname #cb z)) z (1+ z) ) (setq cb (subst (cons 50 bksrot) (assoc 50 cb) cb)) (entmod cb) ))Lösungsvorschlag (2):Code:(defun C:alignsameblocks (/ block blockname blockwinkel #bloecke z BLK nw) (command "_.undo" "_G") (setq block (entsel "
VORGABEBLOCK WÄHLEN:" ...
|
|
Rund um Autocad : Block erstellen
Proxy am 18.12.2003 um 18:30 Uhr (0)
1. Erzeugen von einem Block Werkzeugkasten : Zeichnen Abrollmenü : Zeichnen, Block, Erstellen Befehl(e) : block, _bmake .... Name, Basispunkt Objektmodifikation (Beibehalten, In Block konvertieren, Löschen), Symbol ja[x]|nein[], Blockeinheit und womöglich Blockbeschriebung bestimmen. 2. Einfügen von einem Block Werkzeugkasten : Zeichnen Abrollmenü : Eingügen, Block Befehl(e) : einfüge, _insert .... Name, (Durchsuchen lässt dich eine andere Datei auswählen), Einfügepunkt, Skalierung, Drehung, Ursp ...
|
|
Rund um Autocad : WBlock speichern
Proxy am 02.02.2004 um 21:48 Uhr (0)
IMHO ist es ein negatives Feature dass sich über ein kleines lisp, vba Script umgehen lässt, denn AutoCAD speichert die Wblocks immer in der Version in der auch die aktuelle Zeichnung ist. Ich hab mir da ein VBA-Script chen auf Button gelegt, das mir den exportierten Block nochmal öffnet und eine Version tiefer Qsaved. Ehrlich gesagt, bin eigentlich nie diesem Verhalten näher auf den Grund gegangen. Auszug: Code: Dim strCMD As String Dim strFileName As String Private Sub AcadDocument_BeginCommand( ...
|
|
Rund um Autocad : Block an Linie Ausrichten?
Proxy am 28.04.2004 um 11:22 Uhr (0)
P -Linie als BKS-Quelle und Code: (defun C:block_rotate () (setq #cb (ssget) z 0 ) (setq bksxdir (getvar ucsxdir )) (setq p1 (list 0 0)) (setq p2 (list (car bksxdir) (cadr bksxdir))) (setq bksrot (angle p1 p2)) (repeat (sslength #cb) (setq cb (entget (ssname #cb z)) z (1+ z) ) (setq cb (subst (cons 50 bksrot) (assoc 50 cb) cb)) (entmod cb) ) ) kann damit mehrere Blöcke am BKS relativ zur WKS ausrichten bzw. eigentlich nur rotieren. Skalierung geht eigentlich ...
|
|
Rund um Autocad : Objekte aus der X-REF kopieren
Proxy am 10.05.2004 um 21:36 Uhr (0)
und wer keine ET-Tools hat oder 2005 der nimmt: Code: ;;;--- CPYXREF - Copy any entity from an XREF or a block. ;;; ;;;--- Legalities: ;;; Copyright 2002-2004 by JefferyPSanders.com ;;; All rights reserved. ;;; ;;;; You may use this program for free. You may not obtain profit without consent ;;; from Jeffery P Sanders. You may make copies of this program and distribute as ;;; long as the legalities remain in tact. ;;; ;;; End of Legalities ;;; ;;;--- Created on 7/18/02 ;;; ;;;--- Ma ...
|
|
Rund um Autocad : frage bezüglich bemassung
Proxy am 29.12.2004 um 18:06 Uhr (0)
Verpack die zu skalierende Zeichnung in ein Extra-Block (strg+a, block enter usw. usw.), denn Bemassungen innerhalb von skalierten Blöcken werden nicht aktualisiert . Schneller gehts imho nicht. ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
|
Rund um Autocad : Symbole Drehen auf bestimmten Winkel
Proxy am 09.02.2005 um 13:53 Uhr (0)
Richtet (dreht am Basispunkt) gleichnamige Blöcke am angeklickten Referenzblock aus ... vielleicht hilft es ja in dem Fall. Code: (defun C:alignsameblocks (/ block blockname blockwinkel #bloecke z BLK nw) (command _.undo _G ) (setq block (entsel
VORGABEBLOCK WÄHLEN: ) block (if block (car block) ) ) (if (and block (= INSERT (cdr (assoc 0 (entget block)))) ) (setq blockname (cdr (assoc 2 (entget block))) blockwinkel (* (/ (cdr (assoc 50 (entget block))) ...
|
|
Rund um Autocad : Block einfügen an Kreismittelpunkt
Proxy am 02.04.2005 um 14:02 Uhr (0)
Code: (defun C:circle_center_2_block (/ ss) (setq ss (ssget ((0 . "CIRCLE")))) (if ss (progn (setq n (1- (sslength ss))) (while ( = n 0) (setq elist (entget (ssname ss n)) radius (cdr (assoc 40 elist)) zentrum (cdr (assoc 10 elist)) n (1- n) ) (command "_point" zentrum) ) ) ) ) ------------------ MfG Proxy
|
|
Rund um Autocad : Eplan > ACAD Blockdefinition
Proxy am 19.06.2005 um 00:24 Uhr (0)
Eigentlich ist die Aufgabenstellung nur schnell und fehlerfrei mit einem auf deine Anforderungen perfekt angepasstem Lisp realisierbar. Falls du Lisp kannst, könntest du dieses Lisp (nur das Grundprinzip wird dort gezeigt, keine Musterlösung und sowieso nur ein Webfind) entsprechend deiner Aufgabenstellung anpassen: Code: (defun dxf (code ename) (cdr (assoc code (entget ename))) ) ;_ end of defun (defun text2att (/ block-exists blockname btble ss) (setq block-exists t) (while block-exists (setq blo ...
|
|
Rund um Autocad : Layout AF verschwinden beim Plotten - Dringend
Proxy am 19.08.2005 um 19:14 Uhr (0)
ich hatte einmal ähnliches Problem bei "Fremddaten" und habe es so behoben dass ich eine nackte dwt genommen habe dort den Modelbereich eingefügt (Block) und dannach den Layoutbereich importiert habe. 1. Originaldatei sichern !2. alle Layouts (Papierbereich) löschen, bereinigen, prüfen, Modelbereich in die nackiche dwg reinholen, oder wblock-Befehl.3. die Papierbereiche aus der gesicherten Datei importieren.4. Ergebniss prüfen !Zur Risken und Nebenwirkungen blablablabla und Autodesk.------------------ Mf ...
|
|
Rund um Autocad : Was waren das für komische Punkte ?
Proxy am 02.02.2006 um 20:08 Uhr (0)
Ich hoffe es sind wirklich Punkte in AutoCAD, dann hilft die vielleicht das kleine Lisp:Code:(defun C:DEL_ALL-POINTS( / BLOCK ) (vl-load-com) (vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) (vlax-for ITEM (setq BLOCK (vla-get-Block LAYOUT)) (if (and (=(strcase(vla-get-objectname ITEM))(strcase "AcDbPoint")) ) (vl-catch-all-error-p (vl-catch-all-apply vla-delete (list ITEM) ) ...
|
|
Rund um Autocad : DWG-Dateien vergleichen - Unterschiede suchen
Proxy am 18.02.2006 um 15:18 Uhr (0)
DrDWG Compare Drawings Against a Master Drawing Using the Audit OptionDrawings are audited for the changes in blocks when it is inserted into a series of drawings from a master drawing.While auditing only the block entity is taken into account. For effective auditing, the block that is inserted from the master drawing should be identified in the same name in the target drawings too. If the block name is changed after insertion, then LightBox identifies it as a new block in the drawing.------------------ ...
|
|
Rund um AutoCAD : Faktoren von Blöcken auslesen
Proxy am 11.07.2007 um 14:39 Uhr (0)
Oder via Lisp ....kleiner Denkanreiz für diese ile Aufgabe.Code:(defun C:CAD_DE_54_017297( / k name x y z) (setq k (entget (car (last (nentsel "
Selektieren Sie bitte einen verschachtelten Block: "))))) (setq name (cdr (assoc 2 k))) (setq x (rtos (cdr (assoc 41 k)) 2)) (setq y (rtos (cdr (assoc 42 k)) 2)) (setq z (rtos (cdr (assoc 43 k)) 2)) (alert (strcat "Blockname: " name "
X-Faktor: " x "
Y-Faktor: " y "
Z-Faktor: " z)) (princ))Funktion mit CAD_DE_54_017297 starten, oder umbenennen.------------------ ...
|
