|
Lisp : Blöcke an Linienenden platzieren und an Linie ausrichten
cadffm am 29.11.2016 um 08:57 Uhr (1)
Fehler: Fehlerhafter Argumenttyp: Acad bekommt etwas anderes wie erwartet (zB. Zahl(int/real) statt Text(str) )lentityp Acad erwartet ein EntitySelection set: 83a bekommt aber einen AuswahlsatzHabt Ihr mir einen Tipp, wie ich weiterkomme?Suche nach Flüchtigkeits-Schreibfehler.Vielleicht verwendest du auch einen anderen Variablennamen für den Auswahlsatz, dann kommst du nichtso leicht durcheinander, vielleicht einfach mal AWS für den AusWahlSatz-Namen einsetzen.Fehleranalyse:Lese in der Hilfe mal etwas zu E ...
|
| In das Form Lisp wechseln |
|
Lisp : UTF-Konvertierung
-ikarus- am 29.11.2016 um 15:09 Uhr (1)
Hallo,ich hab hier schon so viel Gutes erfahren und hab gedacht vielleicht kann ich auch jemanden etwas Gutes tun.Mit dem folgenden Code kann eine z.B. XML UTF-16 in eine UTF-8 oder ISO-8859-1 umcodiert werden.Vielleicht geht das alles eleganter aber ich bin in meinen Möglichkeiten geblieben.Für Tipps/Verbesserungen bin ich immer offen.Code:(defun vk_WriteTextStream (Stream FileName Charset / ADODBStreamObj Result) (if (setq ADODBStreamObj (vlax-create-object "ADODB.Stream")) (progn (setq Result (vl-catch ...
|
| In das Form Lisp wechseln |
|
Lisp : Blöcke an Linienenden platzieren und an Linie ausrichten
cadffm am 29.11.2016 um 16:40 Uhr (1)
Baue es von Grund auf neu zusammen, Schritt für Schritt, so das du auch verstehst was wann wie macht.Am Anfang deines Repeat-Laufes gibt es noch kein "obj"Dafür holst du dir immer wieder Objektdaten "vom letzten Objekt der Datei", das ist auch nicht gewollt,denn 10 und 11 möchtest eigentlich aus OBJ haben, nicht von "entlast"[editiert]------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : Blöcke an Linienenden platzieren und an Linie ausrichten
cadffm am 06.12.2016 um 10:08 Uhr (1)
Zitat:Original erstellt von furter:sollen nur die Linien gezeichnet werden, die eine Länge grösser 0, bezw. wo der Startpunkt der Linie dem Endpunkt entspricht.Der Fall wird genau NIE eintreten.Entweder ist die Linie Null oder der Start- und Endpunkt sind identisch.Aber wie auch immer:Du hast zwei Probleme, das eine wurde dir oben bereits näher gebracht IF und PROGNCode: (if (/= pA pE) (progn ; hier alles hinein, was ausgeführt werden soll wenn die Bedingung erfüllt ist (command "_.insert" "A ...
|
| In das Form Lisp wechseln |
 |
Lisp : ist die datei xy offen ?
GottesGeschenk am 06.12.2016 um 13:12 Uhr (15)
hallo zusammen,wie kann ich herausbekommen, ob eine datei geöffnet ist?die gesuchte datei ist eine beliebige datei, d.h. excel, pdf, dwg, ...vielen Dank für eure Hilfe
|
| In das Form Lisp wechseln |
|
Lisp : ist die datei xy offen ?
cadffm am 06.12.2016 um 13:20 Uhr (1)
Wenn man eine Datei zum schreiben öffnen kann, dann ist sie nicht Schreibgeschützt.EDIT:zu schnell Enter geklickt:Man kann nicht "einfach" alle Fälle erschlagen, eine Textdatei wird zB. nicht für andere gesperrt geöffnet,daher kann man es nicht prüfen. Excel und AutoCAD sperren die Datei für andere, erzeugen temporäre Dateien,da wäre es also möglich. (ACAD: Wobei man die möglicherweise vorhandenen dwl Dateien zunächst versucht zu löschen,denn durch einen Programmabsturz könnten diese noch "veraltet" vorlie ...
|
| In das Form Lisp wechseln |
|
Lisp : ist die datei xy offen ?
Peter2 am 06.12.2016 um 13:52 Uhr (1)
In DoslIB gibt es den Befehl "dos_openp". Der macht wahrscheinlich das was du brauchst------------------Für jedes Problem gibt es eine einfache Lösung.Die ist aber meistens falsch. ;-)
|
| In das Form Lisp wechseln |
|
Lisp : ist die datei xy offen ?
joern bosse am 06.12.2016 um 14:16 Uhr (1)
Hallo,über die Funktion vl-file-rename kann man das prüfen, wenn eine Rückgabe erfolgt, dann konnte die Datei umbenannt werden, wenn NIL zurück kommt dann nicht.Code:(defun JBf_files:Schreibschutz? (path / RetFileName) (not (and (vl-file-rename path (setq RetFileName (strcat (car(fnsplitl path) )"JB_"(cadr(fnsplitl path)) (caddr(fnsplitl path))))) (vl-file-rename RetFileName path))) )(defun c:test ( / PATH) (setq path "c: empMeine.dwg") (if (JBf_files:Schreibschutz? path) (alert "Die Dat ...
|
| In das Form Lisp wechseln |
|
Lisp : Attribute aus dyn. Block auslesen
cadffm am 06.12.2016 um 15:10 Uhr (1)
VLisp(vla-put-Textstring VLA-Objekt_des_Attributes "neuerText")oder(Auto-)LISPEntityList (entget(car(nentsel)))(entmod (subst(cons 1 "neuerText")(assoc 1 EntityList )EntityList ))Umfassender wäre es wohl kein Tip mehr ------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : ist die datei xy offen ?
GottesGeschenk am 06.12.2016 um 15:53 Uhr (1)
Danke für deine Antwort.wie ist es mit einer pdf. ist die auch schreibgeschützt. Wahrscheinlich ja.
|
| In das Form Lisp wechseln |
|
Lisp : ist die datei xy offen ?
GottesGeschenk am 06.12.2016 um 15:54 Uhr (15)
danke für den doslib hinweis.da hätte ich auch vorher schauen können.
|
| In das Form Lisp wechseln |
|
Lisp : ist die datei xy offen ?
GottesGeschenk am 06.12.2016 um 16:00 Uhr (15)
vielen Dank,ich habe es mit einer pdf getestet. es funktioniert einwandfrei.ist die Datei offen kommt die Meldung schreibgeschützt, ansonsten nicht schreibgeschützt.
|
| In das Form Lisp wechseln |
|
Lisp : ist die datei xy offen ?
jupa am 06.12.2016 um 16:20 Uhr (1)
Zitat:Original erstellt von GottesGeschenk:es funktioniert einwandfrei.Wird hierbei eine mit den Mitteln des Betriebssystems mit Schreibschutz versehene Datei nicht fehlerhafterweise auch als "geöffnet" erkannt? (ungetestet). Jürgen------------------Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)
|
| In das Form Lisp wechseln |
