|
Rund um Autocad : Kopieren von Datei verhindern
mapcar am 14.03.2003 um 09:32 Uhr (0)
Hallo Fips, ich bin wirklich nicht der, der sich dauernd unbeliebt machen will, aber in diesem Fall gehe ich das Risiko ein: a) Ich halte es nach wie vor für lächerlich, irgendwelche kleineren Lisp-Tools schützen zu wollen b) so eine Vorgehensweise ist das absolute Armutszeugnis für den Leiter einer Schulung Wenn du eine Lösung haben möchtest: Überweise 250.- Euro an eine geinnützige Organisation deiner freien Wahl, schick mir die Quittung, und ich schicke dir eine Lösung, wie du dein Lisp-Tool verwenden ...
|
| In das Form Rund um Autocad wechseln |
|
Makro Programmierung : LISP: Farbwert an ME10-Makro übergeben
holt am 17.06.2005 um 14:26 Uhr (0)
Hallo, ich möchte in Annotation den Farbdialog in einem eigenen Dialog verwenden. Funktioniert auch. Das Problem ist, dass ein rgb-integer herauskommt. Wenn ich diesen an einen ME10-Befehl übergebe, tut sich gar nichts. Beispiel: Cyan ist dez 65535 bzw. hex 00ffff -- rot = 0, grün = 255, blau = 255 Jetzt hab ich Lisp-Befehle gefunde, mit denen ich den Wert in eines Bytes zerlegen kann, ich komme aber damit nicht klar. [Function] byte size position byte takes two integers representing the size and positio ...
|
| In das Form Makro Programmierung wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
cadking am 26.10.2004 um 13:32 Uhr (0)
So funktioniert es leider nicht. Ich habe es versucht mit (load PVERB )(pverb) und (load PVERB.LSP )(pverb) aber immer, wenn ich an diesen Stelle bin erhalte ich die Fehlermeldung no function definition: PVERB . Gruß Stefan
|
| In das Form AutoLisp wechseln |
|
Lisp : vla-getboundingbox
alfred neswadba am 24.09.2010 um 15:34 Uhr (0)
Hi,mal beim waagrechte Text: getBoundingBox liefert Dir das grüne Rechteck.Nimm dieses grüne Rechteck, drehe und schiebe es zum verdrehten Text == das ergibt als Extents jetzt das rote Rechteck und dieses liefert Dir getBoundingBox im verdrehten Fall, an dem ist nicht viel zu rütteln.Eine Abhilfe, die ich verwende (allerdings nicht in Lisp und damit muss ich nicht in der Datenbank herumagieren, was sicherlich ein vielfaches an Zeit kostet):Ich mach mir eine Kopie des verdrehten Textes, diese Kopie drehe ic ...
|
| In das Form Lisp wechseln |
|
PTC Creo Elements/Direct Modeling : Zeile in Textdatei einfügen aus LISP-Makro heraus
clausb am 23.02.2016 um 09:00 Uhr (1)
Diese Variante liest sich wahrscheinlich etwas leichter:Code:(defun copy-file2(infile outfile) (with-open-file (outstream outfile :direction :output) (with-open-file (instream infile) (loop for line = (read-line instream nil) while line do (write-line line outstream)))))Na gut, und wenn wir eh schon soweit sind:Code:(defun copy-file-with-replacement(infile outfile marker replacement) (with-open-file (outstream outfile :direction :output) (with-open-file (instream infile) ( ...
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
 |
Rund um AutoCAD : Lisp oder Script Textstil ändern
cadffm am 13.08.2020 um 22:32 Uhr (15)
Zitat:Original erstellt von redfire:Leider ist mir nun noch aufgefallen, dass mit vla-put-StyleName nur mit dem Textstil die Schriftart angepasst wird,nicht aber die entsprechenden Einstellungen aus dem Textstil übernommen werden (wie Höhe Beschriftung Ja Breitenfaktor, Neigungswinkel).Das stimmt (fast) zum Glück auffallend, du weist einen anderen Textstil zu, mehr nicht.Alles was vom Textstil referenziert wird spiegelt sich dann in deinem Textobjekt wieder (Schriftart,Auf dem Kopf, Rückwärts(,Senkrecht) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : dynamische Anzeige am Fadenkreuz
Mailüfterl am 14.03.2012 um 15:25 Uhr (0)
Hallo Dirk,mit Visual LISP kann man keine Werte am Fadenkreuz anzeigen lassen. Du könntest aber den neuen Wert dynamisch in der Zeichnung anzeigen lassen. Die Umsetzung ist allerdings nicht ganz trivial:1. Du lässt den User den Text picken. Dein Programm speichert die gepickte Position und liest den Wert aus dem Text2. Du fügst an der Curserposition einen neuen Text ein und liest fortan die Cursorposition mit grread3. Deine Funktion errechnet fortan in einer Schleife den neuen Wert für den Text und weist i ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Script Crasht und auch wieder nicht...
Manuel486 am 08.10.2020 um 10:38 Uhr (1)
Guten Morgen Habe da ein Problem was ich absolut nicht nachvollziehen kann...Wir haben Scripte auf unserem Server, die alle gemeinsam nutzen.Wir nutzen alle AutocadMEP2019.Bei mir läuft das Script ohne Probleme durch.An einem anderen Rechner wiederum nicht.Selbe DWG, selbes Script.So läuft der Befehl bei mir:Zitat:Befehl: (load "G:/1000SONS/CAD/Faust/LISP/SSGETLTYPE.lsp")SSGETLTYPEBefehl: (SSGETLTYPE "MITTE2")(command "_.CHPROP" "_P" "" "_LTSCALE" "10" "")nilBefehl: (SSGETLTYPE "PHANTOM2")(command "_.CH ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : AutoCAD 2008 - Attribute des Originalblocks übernehmen
LDA.DK am 22.11.2011 um 11:04 Uhr (0)
Zitat:Original erstellt von tunnelbauer:Also dass der Eintrag im APPLOAD nur grau ist, ist normal.Was passiert wenn du die VLX aus dem Explorer direkt in die Zeichenfläche ziehst? (zur Info: Das ist die Schnelllademethode für Faule )Und du verwendest eine AutoCAD-Vollversion 2008 Deutsch auf Windows XP? Ohne jegliche weitere Tools/Zusatzapplikationen?Wir alle finden es nämlich reichlich verwunderlich, dass nur bei dir der "Intro"-Text nicht erscheint...Danke für die Info.AutoCAD Vollversion 2008 Englis ...
|
| In das Form Rund um AutoCAD wechseln |
|
OneSpace Modeling : Neuigkeiten in der OSDM-FAQ-Liste
clausb am 15.01.2005 um 18:54 Uhr (0)
Die FAQ-Liste zu OSDM unter http://www.clausbrod.de/Osdm hat in den letzten zwei Wochen wieder einigen Zuwachs bekommen. Wir sind jetzt bei 70 Eintraegen, davon 54 zweisprachig in deutsch und englisch. Beispiele: Immer wenn ich OSDM starte, wird meine Maus langsamer - http://www.clausbrod.de/Osdm/OsdmFaqOperatingSystem Wie kann man das OSDM-Logo beim Start unterdruecken? - http://www.clausbrod.de/Osdm/OsdmFaqAppKnowhow Warum beim Loeschen des Modells nichts wirklich geloescht wird - http: ...
|
| In das Form OneSpace Modeling wechseln |
|
CoCreate Programmierung : PartLibrary automatisch beenden
AdrianF am 15.01.2009 um 08:03 Uhr (0)
Ich möchte ein Lisp schreiben welches die PartLibrary nach einer bestimmten Zeit (z.B.: 5min) automatisch beendet. Der Befehl zum Beenden der PartLibrary lautet: (STARTUP: EACTIVATE-PART-LIBRARY) diesen möchte ich mit dem Lisp von ClausB kombinieren.play-sound.lsp:(in-package :clausbrod.de)(use-package li)(defun play-sound () (let ((soundfile "c:/temp/tada.wav")) (sd-sys-background-job (format nil "start ~A" (sd-convert-filename-to-platform soundfile)))))(let ((lastbusytime nil) (delay 999)) (def ...
|
| In das Form CoCreate Programmierung wechseln |
|
CoCreate Programmierung : PartLibrary automatisch beenden
AdrianF am 15.01.2009 um 08:03 Uhr (0)
Ich möchte ein Lisp schreiben welches die PartLibrary nach einer bestimmten Zeit (z.B.: 5min) automatisch beendet. Der Befehl zum Beenden der PartLibrary lautet: (STARTUP: EACTIVATE-PART-LIBRARY) diesen möchte ich mit dem Lisp von ClausB kombinieren.play-sound.lsp:(in-package :clausbrod.de)(use-package li)(defun play-sound () (let ((soundfile "c:/temp/tada.wav")) (sd-sys-background-job (format nil "start ~A" (sd-convert-filename-to-platform soundfile)))))(let ((lastbusytime nil) (delay 999)) (def ...
|
| In das Form CoCreate Programmierung wechseln |
|
Rund um Autocad : Blöcke auf Polylinien
The VIP am 25.06.2003 um 12:00 Uhr (0)
Zitat: Original erstellt von Brischke: Hallo Harry, mit Standard Acad wüßte ich keine Lösung - mit Lisp schon. Folgende Zeilen sollten das für Dich erledigen: Code: (defun c:bpk ( / pl attreq bnam) (princ "
LWPolylinie wählen:") (setq attreq (getvar "ATTREQ") pl (entsel) pl (if pl (entget(car pl))) bnam "") (setvar "ATTREQ" 0) (if (and pl (= "LWPOLYLINE" (cdr (assoc 0 pl))) ) (progn (while (not (tblobjname "BLOCK" bnam)) (initg ...
|
| In das Form Rund um Autocad wechseln |
