|
AutoLisp : Lisp zeitlich limitieren?
Nano am 31.03.2006 um 11:39 Uhr (0)
Sali Theodor + MichaelDanke noch für allesGruss Nano
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Aus Lisp Hilfe aufrufen
Nano am 31.03.2006 um 14:02 Uhr (0)
HalloKann mir Jemand ein kleines Beispiel gebenwie ich aus ein DCL-Fenster Hilfe Aufrufen kann??Bitte mit ein HTML-Datei.Habe ein kleines lsp-Datei + sld-Dateien + dcl-Datei eingefügt.Unter (action_tile "s017hilfe" "(S017WHILF)")wird es aufgeführt.Ich danke im vorraus für die Bemühungen.Gruss Nano
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Aus Lisp Hilfe aufrufen
Nano am 31.03.2006 um 17:40 Uhr (0)
Danke dir JörnHabe das eingesetzt und es funktioniert.Eigentlich möchte ich gerne eine Hilfe erstellen wie AutoCAD.Braucht man dazu ein Programm.Wenn ja, kannst du mir eins empfehlen??Das Programm solte auf deutsch sein.Gruss Nano
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Aus Lisp Hilfe aufrufen
Nano am 02.04.2006 um 13:31 Uhr (0)
Hallo TheodorDas ist genau was ich gesucht habe.Leider ist das (HTML Help Workshop) nicht auf deutsch.Aber mit dem Link Help-Guide konnte icheinige Beispiele entnehmen.Danke für die Bemühungen und für dein Wissen und ect.....Gruss Nano
|
| In das Form AutoLisp wechseln |
|
Lisp : Linie im Block
Nano am 09.12.2006 um 13:50 Uhr (0)
Hallo zusammenHabe hier ein kleines Lisp erstellt.Es sollte für mich alle Linien-Elemente im einem Block filtrieren,Die Linien auf ein Layer und die Farben auf "Vonlayer" setzten.Habe bemerkt das es alle Linien im Block findet.Layer und Farbe neu setzten habe ich probleme,kann mir jemand sagen an was es liegt im (DEFUN AL1()??Danke Nano(DEFUN C:AL() (setq Jblock (tblnext "BLOCK" t)) (while Jblock (setq blk (tblobjname "BLOCK" (cdr (assoc 2 Jblock)))) (while(setq blk (entnext blk)) (setq blkdaten (entg ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer-Leichen eliminieren
Nano am 12.12.2006 um 11:20 Uhr (0)
HalloMit Hilfe von Jörn konnte ich eine Bau-Zeichnung konvertieren,die mit verschachtelte Blöcke versehen waren.Nach der Konvertierung sind jedoch noch Layers auf der Zeichnung,die keine Elementen beinhalten.Habe es versucht mit Bereinigung der Zeichnung. GEHT NICHT!Nur mit Layerkonverter konnte ich die Layer-Leichen auf Layer "0" setzten.Kann mir Jemand helfen, wie ich mit ein Lisp-Programm die Leichen eliminieren kann??????Als Beilage die Zeichnung (zip-Datei).Gruss Nano
|
| In das Form Lisp wechseln |
|
Lisp : Block kann nicht aufgelöst werden
Nano am 19.02.2007 um 10:12 Uhr (0)
Habe das Lisp gefundenIch habe nur noch Mühe das Lisp umzuändern.Möchte gerne das es die ganze Zeichnung scanntund alle Blöcke die nicht auflösen kannumzustellen in(Auflösen zulassen).Gruss NanoOriginal:(defun c:BLOCK-UNLOCK (/ OBJ BL NAME NEWNAME NR)(if (and (setq OBJ (car (entsel)))(= (cdr (assoc 0 (entget OBJ))) "INSERT") (setq NAME (cdr (assoc 2 (entget OBJ)))) (setq VLA-OBJ (vlax-ename-vla-object OBJ)) ) (progn (setq NR 0) (while (tblobjname "BLOCK" (setq NEWNAME (strcat NAME "_" (itoa NR))) ) (setq N ...
|
| In das Form Lisp wechseln |
|
Lisp : Attributen importieren
Nano am 27.09.2007 um 19:49 Uhr (0)
HalloKann man Attributen importieren statt exportieren in einer xls-Datei?Im AutoCAD Attributen exportieren mit Befehl:_eattextKann man mit ein Anderen Befehl importieren, oder muss ich ein Lisp schreiben.Danke für die Antwort Gruss Nano
|
| In das Form Lisp wechseln |
|
Lisp : Attributen importieren
Nano am 27.09.2007 um 20:37 Uhr (0)
Hallo Thomas Ich habe ein Block mit Attributen.Blockname: Raum-Luft-Angaben1. Attributtbezeichnung: RAUM-NUMMER2. Attributtbezeichnung: ZUL-MONOBLOCK3. Attributtbezeichnung: ZUL-MENGE4. Attributtbezeichnung: ABL-MONOBLOCK5. Attributtbezeichnung: ABL-MENGEJetzt habe ein xls-Dateierste Zeile: RAUM-NUMMER Datenzeite Zeile: ZUL-MONOBLOCK Daten und so weiter......Es sollte eigendlich mit der Raum-Nummer wissen welcher Block es ist.In der Zeichnung sind die Blöcke mit Raum-Nummer geschrieben,aber ohne Monoblock- ...
|
| In das Form Lisp wechseln |
|
Lisp : autocad-farbfenster aufrufen
Nano am 08.12.2007 um 13:47 Uhr (0)
Hallo Thomas Farbfenster aufrufen, dass der Benützer die Farbe auswählen kannum den xRef-Zeichnung zu zuweissen.Habe schon Lisp mit DCL gemacht, dass mir die Liste der xRef-Zeichnungen anzeigt und der Benützer kann dieser wählen.Thomas habe dies eingegeben, das Farbfenster erscheint nicht.Was habe ich falsch gemacht???(acad_truecolordlg color [allowbylayer] [currentlayercolor])Gruss Nano
|
| In das Form Lisp wechseln |
|
Lisp : Zeichnungseigenschaften
Nano am 30.10.2008 um 10:30 Uhr (0)
HalloSuche die Systemvariablen für Zeichnungseigenschaften "_dwgprops"um Datei.Info auszufüllen, wenn es geht in Lisp.Titel:Thema:Autor:Stichwörter:Kommentar:Hyperlink-Basis:Gruss Nano
|
| In das Form Lisp wechseln |
|
Lisp : Wert von dynamischer Block lesen?
Nano am 01.02.2009 um 16:55 Uhr (0)
hallo UdoKannst Du mir erklären, warum ich die Kanal-Breite nicht ändern kann.Habe hier ein kleines LISP.(DEFUN C:kbr()(command "_Insert" "kanal4" (setq pt (getpoint "Einfügepunkt: ")) "" "" "") (SETQ object (entlast)) (SETQ breite (GETDIST "Wert für Breite: ")) (setProperty (vlax-ename-vla-object object) "Kanal-Breite" breite))Gruss Nano
|
| In das Form Lisp wechseln |
|
Lisp : Attributen Lesen
Nano am 18.06.2009 um 10:12 Uhr (0)
Hallo wahrscheindlich kann Jemad mir helfen.Als Beilage ist eine Datei (Block dwg) die umbennet werden muss auf (.dwg).Hier ein Lisp mit Block wählen und liest den Attribut heraus.Das funktioniert.(DEFUN C:Test1()(SETQ ta605ent (ENTSEL "
Tabelle wählen: "))(IF (AND (SETQ ent (car ta605ent))(= (CDR (assoc 66 (ENTGET ENT))) 1)) (WHILE (AND (SETQ ent (ENTNEXT ent))(/= (CDR (ASSOC 0 (ENTGET ent))) "SEQEND"))(IF (AND (= (CDR (ASSOC 0 (ENTGET ent))) "ATTRIB")(= (strcase (CDR (ASSOC 2 (ENTGET ent)))) "RAUM-NR:") ...
|
| In das Form Lisp wechseln |
