|
Lisp : Hilfe bei command schleife
spider_dd am 29.08.2012 um 23:34 Uhr (0)
Hallo Dirk,es entwickelt sich. Ich habe Deine Lisp mal etwas (nicht nur bezüglich Deiner Fragestellung) bearbeitet und mit ein paar Kommentaren in ## eingeschlossen versehen.Ungetestet (auch hinsichtlich Klammerabgleich) ist diese anbei.GrußThomas
|
| In das Form Lisp wechseln |
|
Lisp : zum Downloaden: Zeichnungs-Wechsel mit Werkzeugpalette (OpenDCL)
GeGo am 27.06.2012 um 08:06 Uhr (0)
Vielen Dank für die flinke Reaktion ;-)Auf meinem Bricscad V12.2.8 passiert beim Start von OpenDocsPalette, egal ob zu dem Zeitpunkt eine Zeichnung geöffnet ist oder nicht, folgendes.Code: _apploadLaden von C:UsersGerhardProjekteToolsopenDocsPalettepublicversion.lsp: (LOAD "C:/Users/Gerhard/Projekte/Tools/openDocsPalettepublicversion.lsp"): OPENDCLDer Befehl wurde nicht erkannt "OPENDCL". Bitte versuchen Sie es erneut."openDocsPalette.lsp" loaded.Start with "OpenDocsPalette".: opendocspalette; ----- LISP : ...
|
| In das Form Lisp wechseln |
|
Lisp : DCL LayerTool
cadplayer am 01.09.2012 um 15:31 Uhr (0)
Ich habe mir mal eine einfache DCL erstellt und würde gern wissen, wo genau ich die Funktion (getlayer) aufrufen muss, damit die Layer auch tatsächlich in der Listbox "Zeichnung" angezeigt werden.Die DCL schaut so ausCode:no_name : dialog { label="TestProgram"; : text { key = "DCLLabel1" ; label = "Zeichnung" ; is_bold = "DCLLabel1" ; width = 94 ; height = 1 ; alignment = top ; } :list_box { key = "DCLListLabel1" ; alignment = top ; w ...
|
| In das Form Lisp wechseln |
|
Lisp : VBA - Formular aus Lisp aufrufen - (Vla-eval - Problem)
steinemann09 am 04.09.2012 um 17:05 Uhr (0)
Hallo liebe Visual Lisp Programmierer,ein hoffentlich einfaches Problem, aber ich komme mit try und error leider nicht mehr weiter.Ich möchte einfach aus Lisp ein VBA-Formular aufrufen und einen in Lisp ausgewähltes Blockattribut weiter verarbeiten.Das funktioniert so weit, aber nur wenn ich ein einziges VBA-Projket geladen ist. Da ich mehre VBA Projekte automatisiert zum Zeichnungsbeginn geladen habe, kann ich das Formular nicht ansprechen.Meiner Überlegung nach, müsste ich statt "Userform1.Show" "blockra ...
|
| In das Form Lisp wechseln |
|
Lisp : VBA - Formular aus Lisp aufrufen - (Vla-eval - Problem)
CADmium am 04.09.2012 um 19:10 Uhr (0)
ich verweise mal aufhttp://ww3.cad.de/foren/ubb/Forum145/HTML/002236.shtml.... auch wenns nicht weiterhilft------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : VBA - Formular aus Lisp aufrufen - (Vla-eval - Problem)
steinemann09 am 05.09.2012 um 08:54 Uhr (0)
Hallo Thomas,danke für Deinen Link, der auf auf dieselbe Problematik verweist. Ist eigentlich nicht einleuchtend, dass die Vla-eval - Funktionnur anwendbar ist, wenn ein einziges VBA-Projekt geladen ist.Ich werde versuchen über eine VBA-run - Variante das Makro zum Befehlsaufruf des Formulares zu startenund die Parameterübergabe über bekannte Funktionen einer VBA/Lisp - Schnittstelle (Bsp. DataBecker) zu generieren. Werde meinen Lösungsansatz dann hochladen, für diejenigen, die vielleicht mal das selbe Pro ...
|
| In das Form Lisp wechseln |
|
Lisp : Steigung einer 3d-Linie anschreiben
mueller-spies am 07.09.2012 um 14:40 Uhr (0)
Hallo zusammen,erstmal danke für die Hilfe.Nun aber das nächste Problem.Ich habe die Routine in die Routine von CADwiesel eingefügt, aber sie läuft nicht richtig. Hier die geänderte Routine:; Lisp-Programm zum Absetzen eines Textes für %o-Angabe(defun c rozenthoehe ( / ech sli li proz sel el diff L P1 P2 X1 X2 Y1 Y2 Z1 Z2 S) (setq ech (getvar "CMDECHO")) (setvar "CMDECHO" 0) (princ "") (princ "Angabe über %-Neigung einer Linie") (princ "Wert durch Ersetzen eines vorhandenen Textes absetzen") (princ "von tg ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehl _.text / Drehwinkel
jupa am 21.09.2012 um 13:16 Uhr (0)
Zitat:Original erstellt von Bernd10:Drehwinkel des Texts angeben 90.00:Ich habe bisher vergeblich gesucht, wo die Vorgabe für den Drehwinkel (im obigen Beispiel = 90.00) steht. Ich möchte diese vor Ausführung des Befehls auf 0.0 stellen.Wozu brauchst Du das eigentlich?. Was spricht denn dagegen, an dieser Stelle den gewünschten Wert 0 einzugeben (oder in einer LISP-Routine in den Code aufzunehmen)? Die umgekehrte Fragestellung (AutoCAD soll sich den letzten Wert merken, was das Programm an vielen Stellen j ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehl _.text / Drehwinkel
Bernd10 am 21.09.2012 um 13:28 Uhr (0)
Hallo Jürgen,danke für Deinen Vorschlag.Zitat:Original erstellt von jupa:Wozu brauchst Du das eigentlich?. Was spricht denn dagegen, an dieser Stelle den gewünschten Wert 0 einzugeben (oder in einer LISP-Routine in den Code aufzunehmen)? Wie Du auch schreibst, werde ich wohl an den Stellen des Lisp-Codes das bisherige "" (= RETURN ) durch den eigentlich gewünschten Drehwinkel 0.0 ersetzen. Das RETURN habe ich lange Zeit für den Drehwinkel 0.0 verwenden können, da keine gedrehte Texte vorhanden waren. Zum a ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehl _.text / Drehwinkel
jupa am 21.09.2012 um 13:45 Uhr (0)
Oho, das war aber eine gaaanz schlechte Angewohnheit. Gerade innerhalb einer LISP-Routine, von der man nie weiß in welcher Situation / in welcher Umgebung sie aufgerufen wird einfach mit ENTER einen (völlig unbekannten) vorgegebenen Wert zu übernehmen ist mehr als nur kreuzgefährlich. Ich schreib das hier nur deshalb so deutlich, falls noch mal ein LISP-Novize in diesen Beitrag stolpern sollte.JürgenPS: Gerade der Textbefehl ist für einen (Command ...)-Aufruf ziemlich diffizil: Wenn nämlich z.B. zum Zeitpu ...
|
| In das Form Lisp wechseln |
|
Lisp : X-ref Layer
cadffm am 24.09.2012 um 15:48 Uhr (0)
Genau, DXF-Gruppencode 70Bit 1 gesetzt = gefroren, Bit 1 nicht gesetzt = getautBefehl: (setq q1 (entget(tblobjname "LAYER" "eininsert221000|kfw_5_moeb_-")))((-1 . Objektname: 75c38238 ) (0 . "LAYER") (5 . "19F") (102 . "{ACAD_XDICTIONARY") (360 . Objektname: 75c38240 ) (102 . "}") (330 . Objektname: 75c34d10 ) (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "einInsert221000|MOEB") (70 . 49) (62 . 4) (6 . "CONTINUOUS") (290 . 1) (370 . -3) (390 . Objektname: 75c34c68 ) (347 . Objektname: ...
|
| In das Form Lisp wechseln |
|
Lisp : Excel: Formula - FormulaLocal
joern bosse am 26.09.2012 um 12:45 Uhr (0)
Hallo,ich habe ein Problem beim Schreiben einer Exceltabelle im Zusammenhang mit Formeln:Vom Prinzip möchte ich die englischen Formeln schreiben und verwende daher "Formula", bei deutschen Formeln würde ich "FormulaLocal" verwenden.Problem: in einer VBA-Sub "Test" in einer Exceldatei funktioniert es einwandfrei:Code:Sub test()Dim sRangeName, sLanguageText, rwRange("D4").Formula = "=sum(B4:C4)"Range("D5").FormulaLocal = "=summe(B5:C5)"MsgBox "Deutsch geschrieben und das ist die englische Formel: " & Range(" ...
|
| In das Form Lisp wechseln |
|
Lisp : Excel: Formula - FormulaLocal
joern bosse am 28.09.2012 um 08:11 Uhr (0)
Hallo an alle nochmal,ich habe gestern mit Martin noch telefoniert und sind zu dem Schluss gekommen, daß es aus LISP heraus einfach nicht funktioniert englische Formeln zu schreiben, Punkt. (Wenn mir einer das Gegenteil beweist nehme ich die Aussage super gerne wieder zurück).Also wenn nicht so, dann von hinten durch die Brust ins Auge:Mein Plan:In der zu beschreibenden Exceldatei wird eine VBA-Function definiert, in etwa so, irgendwo ist da noch ein kleiner Fehler:Code:Function MyFormula(Target As Range, ...
|
| In das Form Lisp wechseln |
