|
Autocad VBA : CHM-Hilfe Datei über LISP aus VBA
joern bosse am 01.12.2006 um 11:59 Uhr (0)
Hallo Stelli,erstmal super, aber, wahrscheinlich auch weil ich ziemlicher VBA-Laie bin, verstehe ich die folgende Fehlermeldung nicht, die bei der Zeile "Public Declare ..." ausgelöst wird: siehe Anhang:Ich habe Deinen den Code in das Codefenster des Formulares eingefügt und nur den Pfad für die CHM-Datei verändert, kannst Du mir da noch auf die Spünge helfen??------------------viele GrüßeJörn[Diese Nachricht wurde von joern bosse am 01. Dez. 2006 editiert.][Diese Nachricht wurde von joern bosse am 01. Dez ...
|
| In das Form Autocad VBA wechseln |
|
Lisp : Lisp Station einer Gradiente
joern bosse am 12.04.2023 um 13:59 Uhr (1)
Hallo Hea,nur auf die Schnelle, vielleicht kommst Du mit folgendem Gedanken weiter:Wenn ich davon ausgehe, dass Deine Gradiente eine Polylinie ist, dann würde ich von Deinen Markierungspunkten startend temporäre Linien nach oben zeichen. Dann kannst Du pro Linie den jeweiligen Schnittpunkt mit der Polylinie ermitteln = Methode INTERSECTWITHWenn Du die Schnittpunkt hast kannst Du mit VLAX-CURVE-GETDISTATPOINT die Station ermitteln, die Differenz der Station ist die schräge Länge.------------------viele Grüß ...
|
| In das Form Lisp wechseln |
|
AutoLisp : DCL
joern bosse am 13.05.2005 um 08:57 Uhr (0)
Hallo Kenny, bei Dialogboxen schreibe ich die letzten Inhalte, wenn Sie mit OK verlassen wird, in eine Textdatei, dann werden diese beim neuen aufstarten als Defaultwerte gesetzt. Die Werte an LISP übergeben, nur ein Vorschlag: über die Funktion action_tile kann man dem Button OK (Key accept folgende Aktion zuordnen: (action_tile accept (setq liste(GET_TILE_DCL1))(done_dialog 1) ) wobei die Funktion GET_TILE_DCL1 in etwa so aussieht: (defun GET_TILE_DCL1 ( / ) (list (get_tile b1 )(get_tile b2 ))) d ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Z-Koordinate von Text übernehmen
joern bosse am 21.07.2006 um 07:39 Uhr (0)
Hallo Bauvermesser,in dem LISP vom Tunnelbauer habe ich zwei Zeilen geändert, so daß keine Punkte eingefügt werden, sondern der z-Wert der Texte an den Textwert angepasst wird.Code:(defun C:text2z () (if(setq as(ssget "_X" ((0 . "TEXT")))) (progn (repeat (sslength as) (setq wert (atof(cdr (assoc 1 (entget(ssname as 0)))))) (entmod (subst (cons 10 (append(reverse(cdr (reverse(cdr(assoc 10 (entget(ssname as 0)))))))(list wert))) (assoc 10 (entget (ssname as 0)))(entget (ssname as 0)))) (setq as ...
|
| In das Form Lisp wechseln |
|
Lisp : Mit Lisp Blöcke auslesen und Teile des Inhalts in Textzeilen abbilden
joern bosse am 26.11.2024 um 08:01 Uhr (1)
Hallo 100dpi,mit folgendem Code kann der mit ENTMAKE erstellte Text auf Mitte-Zentrisch umgestellt werden, die Position sollte erhalten bleiben:Code:(defun TextMitteZentrisch (ename / P VLA-OBJ) (setq vla-obj (vlax-ename-vla-object ename)) (setq p (vla-get-InsertionPoint vla-obj)) (vla-put-alignment vla-obj 10) (vla-move vla-obj (vla-get-InsertionPoint vla-obj)p) (vla-update vla-obj) )(defun c:test ( / ) (TextMitteZentrisch (car(entsel))) )Das Einbinden in Deinen Code:Direkt nach der ENTMAKE-Funktion mit ...
|
| In das Form Lisp wechseln |
 |
Lisp : Bilddateien mit LISP verknüpfen
joern bosse am 13.01.2023 um 17:04 Uhr (1)
Hallo Georg, hallo Peter,mit OpenDcl habe ich eigentlich gute Erfahrungen gemacht, allerdings würde ich ebenso wie Peter nicht versuchen, 200 Bilder am Stück darzustellen. Im angehängten Bild habe ich das z.B. über eine oben angeordnete Dropdownliste gelöst.@Peter: kennst Du Dich gut aus mit OpenDcl? Ich habe nämlich ein anderes Problem, wenn Bilder hochkant aufgenommen sind werden sie in OpenDcl trotzdem quer dargestellt, die liegen also auf der Seite, weißt Du, wo ich die Ausrichtung einstellen kann?---- ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Attribute in Blöcken ändern
joern bosse am 05.04.2006 um 16:27 Uhr (0)
Hallo Carsten,im Moment nicht, da meine Zeit in der Tat mal wieder knapp wird, und weil es hier auch nicht meine Aufgabe sein kann, komplett fertigen Code zu posten. Aber vielleicht erbarmt sich ja noch einer hier im Forum.Aber, ich weiß nicht wie es mit Deinen LISP-Kentnissen steht, vielleicht solltest Du Dich anhand der Grundlage mal ein bißchen daran probieren.Wenn Du aber fertigen Programmierungen interessiert bist, kannst Du Dich direkt an mich wenden, dann aber nicht kostenlos.------------------viele ...
|
| In das Form AutoLisp wechseln |
|
Lisp : ExcelTabellenblatt kopieren
joern bosse am 15.09.2011 um 10:53 Uhr (0)
Hallo,ich möchte innerhalb einer Exceltabelle ein Tabellenblatt kopieren, nachdem ich das ExcelWorkbook, die Sheets und letztendlich das betreffende Sheet einer Variablen zugewiesen haben hat folgendes nicht so ganz funktioniert:(vlax-invoke-method sheet Copy)Als Ergebnis habe ich eine neue Exceldatei mit dem kopierten Tabellenblatt.Aus der VBA-Hilfe habe ich folgendes zu der Copy-Methode:WorkSheets(1).Copy After:=Worksheets(Worksheets.Count)Da wird dann das Tabellenblatt(1) nach dem letzten Tabellenblatt ...
|
| In das Form Lisp wechseln |
|
Lisp : Attributswerte übertragen
joern bosse am 01.04.2008 um 14:47 Uhr (0)
Hallo Ian,ich glaube wir verstehen uns falsch:Das Programm ändert von einem Block der ausgewählt wird die ersten 6 Attributsnamen, mehr passiert nicht. Wie hast Du das überprüft? Ich habe bei mir einen Testblock genommen, und mit einem Doppelklick den Attributseditor aufgerufen. Die Attributsnamen waren geändert.Wie auch immer, wenn diese Attributsnamen geändert sind könntest Du das Programm von Marc verwenden. Das einbinden in Marcs Routine würde ich erst machen wenn es auch funktioniert.Vielleicht sollte ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Änderung in LISP-Code
joern bosse am 14.07.2010 um 08:44 Uhr (0)
Hallo Mercato,da kann ich Dorfys Antwort nur bestätigen, der Aufwand ist doch recht hoch.Aber wenn Du noch eine Böschungsschraffur ausprobieren willst, bei den Bosse_tools http://www.bosse-engineering.com/bosse_tools/index.htm ist eine Schraffenprogramm enthalten, das kannst Du für 30-Tage nutzen, vielleicht reicht das ja schon für Deine Aufgabestellung. Detailfragen bitte direkt an mich, denn ich mache hier schon wieder eine Gradwanderung zwischen Werbung und Information, und Werbung wird in diesem Forum ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Blockdefinitionen lassen sich nicht bereinigen
joern bosse am 15.10.2012 um 15:52 Uhr (0)
Hallo,ich habe eine Zeichnung, in der kann ich die Blockdefinitionen der Bloecke U3 und U4 nicht bereinigen, nachdem ich die Referenzen gelöscht habe. Ich weiß nicht, wo diese Definitionen noch "festhängen", vielleicht einer von Euch??Noch etwas zur Entstehung. Ursprünglich waren das 2 unbenamte Blöcke (Herkunft weiß ich nicht). Dann habe ich über LISP die Blocknamen z.B. von "*U3" in U3 umbenannt, damit ich diese dann bereinigen kann. Bei unbenamten Blöcken, die aus dynamischen Blöcken entstehen klappt da ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Attribute verschwinden beim Füllen mit LISP
joern bosse am 02.11.2011 um 11:07 Uhr (0)
Hallo Karsten,konnte ich nachvollziehen, warum das so ist, keine Ahnung.Aber bei mir hat ein Würgaround funktioniert, wenn das entmod ein zweites Mal ausgeführt wird, dann hat es geklappt. Code:(defun SetPos (/ sNewVal ent attr) (Setq sNewVal "zzz") (setq ent (car(entsel))) (if (setq attr (entnext ent)) (progn (setq lOldVal (assoc 1 (entget attr))) (entmod (subst (cons 1 sNewVal ) lOldVal (entget attr))) (entmod (entget attr)) (entupd attr) ) ) );defun(SetPos)Warum das so ist weiß ich aber a ...
|
| In das Form Lisp wechseln |
|
Lisp : Darstellung Seite XX von YY
joern bosse am 29.03.2019 um 10:24 Uhr (1)
Moin Sebastian,Zitat:leider hast du mir den Tag versaut Habe ich doch gerne gemacht;-)Ich kann Deinen Haß auf das Buch nicht nachvollziehen, nur weil Du einen unglücklichen HelloWorld Start hattest ?!?!Natürlich ist es sehr einfach gestrickt, aber die grundsätzlichen Befehle für Listenmanipulation sind einfach erklärt und im Aufbau ist es gut strukturiert.Ich persönlich fand das Buch, ich glaube es war das Jahr 2000, sehr hilfreich. Aber ich muss Dir natürlich recht geben, das LISP-Kochbuch geht sehr viel ...
|
| In das Form Lisp wechseln |
