|
Rund um Autocad : Objekte auf Z Null schieben
ramon am 12.01.2004 um 10:00 Uhr (0)
Lisp Tool plaetten bei Cadwiesel oder die Suchen Funktion benützen. Gruss ramon
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Objekte auf Z Null schieben
Proxy am 12.01.2004 um 10:05 Uhr (0)
CADwiesel = quote Programmname | Lauffähig auf Acad-Version | Dl-Größe | Link | Klicks | Datum Plaetten | [...] Smash, Z20, Z-Basis. | R14 aufw. | LINK | 5kb | 831 | 2003-11-25 /quote Thema damit wohl echt beendet. ------------------ (entmake (entget (entlast))) | Die Pro-Version auf Anfrage erhältlich. 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 langu ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Zeichnungsrahmen -Zeichnungskopf ?????
CADmium am 12.01.2004 um 10:18 Uhr (0)
..doch , das ist so ! Mit nem Lisp kannst du dir dann die Auswahl und die Einstell und Ausfüllarbeiten dann komfortabler machen. Mechanical macht intern auch nichts anderes. Gruß Thomas ------------------ Thomas
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : von autocad zu ms visio ???
Brischke am 13.01.2004 um 08:53 Uhr (0)
Hallo Martin,soweit mir bekannt ist, kann Visio dxf oder dwg importieren. Wie das Ergebnis ist - keine Ahnung?Grüße Holger------------------Holger Brischke(defun - Lisp over night!AutoLISP-Programmierung für AutoCADDa weiß man, wann mans hat!
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Speicher leeren
Proxy am 13.01.2004 um 10:45 Uhr (0)
Sollte es an der Festplatte liegen habe ich da in VBA zwei primitive Funktionen innerhalb von Acad um die Platte etwas aufräumen kannst: 1. Lokalen Papierkorb leeren. Code: Public Sub Proxy_Papierkorb_leeren() If (MsgBox("Lokalen Papierkorb vollständig leeren ? Vorsicht: dieser Vorgang ist unumkehrbar !", _ vbYesNo + vbMsgBoxHelpButton + vbQuestion + vbDefaultButton2, "Papierkorb leeren ?") = vbYes) Then ClearRecycleBin ("C:"), , True, True, False End If End Sub und 2. Temp-Dateien ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Blockdefinition ohne sprengen?
Proxy am 13.01.2004 um 10:52 Uhr (0)
also z.B. Blockname = Konstruktionsabschnitt_2 mit einem Klick ändern auf Konstruktionsabschnitt_2_Verdeckt ändern und mit einem anderen Programm auf dann die interne Blockstruktur auf den Verdeckenden Layer setzen. Die erste Funktion kannst benutzen um ein Block mit einem Klick umzubenennen, mit Nuke von CADwiesel.de kannst die vererbung auf den Block anwenden. Solltenst noch den Layer auf dem der Block eingefügt/verdeckt/vererbt werden soll noch bei Nuke deinen Wünschen entsprechend deklarieren ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Schraffur effektiv erstellen
JosefG am 13.01.2004 um 13:28 Uhr (0)
Hallo Lothar! Erstmal Danke für das Lisp-Programm. Dies Lisp-Programm bezieht sich auf Solid-Schraffuren . Kannst Du das Programm so ändern, dass ich es auch für Ansi31- bzw. Ansi33-Schraffuren benutzen kann? Danke und noch einen schönen Arbeitstag ... JosefG
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Blockdefinition ohne sprengen?
Brischke am 13.01.2004 um 13:48 Uhr (0)
Hallo, auch wenn die Diskussion sich schon fast erübrigt hat möchte ich noch mal unabhängig von der Problemstellung auf den Kern der Frage zurück kommen. Die da war: Kopieren einer Blockdefinition auf einen anderen Namen. Proxy hat ja ein RENAME vorgeschlagen, was in meinen Augen den Kern nicht trifft. Da ich die Aufgabenstellung ansich interessant finde, hier eine Lösung dazu: Code: (defun C:BLOCK_COPY (/ #OLD_NAME# #NEW_NAME# blkl nblk) (prompt
Block wählen: ) (setq #ob# (ssget _:S ((0 . IN ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Blockdefinition ohne sprengen?
Brischke am 13.01.2004 um 14:03 Uhr (0)
Ich habe es unter 2000 geschrieben .. nun auch in 2004 getestet .. funzt. Ich habe den Code aus dem Forum kopiert ... und es funktioniert immer noch. Stell mal eine Zeichnung mit dem Block rein .. dann schau ich mal, woran das liegen könnte. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Blockdefinition ohne sprengen?
Brischke am 13.01.2004 um 14:18 Uhr (0)
@AsSchu erfolgreich geladen ... ? und dann irgendwann Syntaxfehler Was lädtst du noch alles? @all Hat vielleicht jemand anders getestet und kann seine Erfahrung mitteilen? (Macht sich immer blöd, wenn der Programmierer sagt, bei mir geht alles ) Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Blockdefinition ohne sprengen?
Brischke am 13.01.2004 um 14:44 Uhr (0)
@AsSchu fein .. freut mich zu lesen. Und für dich war es doch eine nette Kopierübung. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Blockdefinition ohne sprengen?
schachtelmacher am 13.01.2004 um 15:09 Uhr (0)
Hi, also ich bin vielleicht ein bisschen spät dran, aber hier meine Lösung: Block kopieren, dann dises Lisp: (nur der Basispunkt/Einfügepunkt des neuen (alten) Blocks angeben) (print Block zum auflösen wählen: ) (setq block (ssget)) (setq name (getstring Bitte neuen Namen angeben : )) (setq pkt (getpoint Bitte Einfügepunkt auswählen : )) (command ursprung pkt ) (command Block name pkt v ) (command -einfüge name pkt 1 1 0 ) Ich hoffe Du hast meine kurze Erklärung verstanden, wenn n ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Blockdefinition ohne sprengen?
Alpschorsch am 13.01.2004 um 15:25 Uhr (0)
Zitat: Original erstellt von schachtelmacher: Hi, also ich bin vielleicht ein bisschen spät dran, aber hier meine Lösung: Block kopieren, dann dises Lisp: (nur der Basispunkt/Einfügepunkt des neuen (alten) Blocks angeben) (print Block zum auflösen wählen: ) (setq block (ssget)) (setq name (getstring Bitte neuen Namen angeben : )) (setq pkt (getpoint Bitte Einfügepunkt auswählen : )) (command ursprung pkt ) (command Block name pkt v ) (command -einfüge name pkt 1 1 0 ) Ich hof ...
|
| In das Form Rund um Autocad wechseln |
