Entmakex auf AutoCAD 2025 funktioniert nicht

[Riccardo_Ferrari]

entmakex auf autocad 2025 geht nicht (bug?)
Ich habe einen Deckel, der gut funktionierte, dann, nach der Installation autocad 2025. 1.1 stürzt mit Fehler "Fehler: schlecht Argumenttyp: lentityp nil"
mit Müdigkeit Ich entdeckte entmakex ist die Ursache des Fehlers, d.h. gibt "nil" zurück, anstatt eine nicht-graphische Einheit zu schaffen
Hier der Code:
♪
(Namedobjdict)
"acad_image_dict"
(sing)
(Liste)
(cons 0 "dictionary")
(cons 100 "acdbdictionary")
(cons 280 0)
(cons 281 1)
)
)
)

Danke für die Aufmerksamkeit

 

[GP.]

nicht mit acad2025 Ich kann Ihnen nicht helfen, mehr als entmakex ipotizzo aber das sollte anders verwaltet werden die Schaffung des Wörterbuchs selbst.
nur durch Neugier, was müssen Sie ein Wörterbuch ohne Schlüssel und Objekte erstellen?
kann es nicht schaffen, wenn Sie etwas zu speichern und verwenden (vlax-ldata-put....??

 

[Riccardo_Ferrari]

nicht mit acad2025 Ich kann Ihnen nicht helfen, mehr als entmakex ipotizzo aber das sollte anders verwaltet werden die Schaffung des Wörterbuchs selbst.
nur durch Neugier, was müssen Sie ein Wörterbuch ohne Schlüssel und Objekte erstellen?
kann es nicht schaffen, wenn Sie etwas zu speichern und verwenden (vlax-ldata-put....??

Danke für die Antwort.

Ich danke Ihnen im Allgemeinen, aber vor allem, weil ich auf Italienisch bin, erlaubt mir, mich besser auszudrücken, das ist mit weniger Schwierigkeiten auf meiner Seite und mit weniger Angst, für Übersetzungsfehler missverstanden zu sein.

Also fragen Sie mich: "Was brauchen Sie, um ein Wörterbuch ohne Schlüssel und Objekte zu erstellen, gut... Ich habe keine Ahnung, ich weiß nicht einmal, welche Wörterbücher, Schlüssel und Objekte sind.

Ich brauchte eine Quelle, die jpeg-Bilder in einen dwg importiert, ich wollte nicht auf Befehl zurückgreifen und -Bild oder -Angriff, im Allgemeinen vermeiden Rückrufbefehl innerhalb einer lisp.

Ich fand, dass Quelle und legte es in mein Programm, was alles andere tut, d.h. extrahiert den Jpeg aus einer Datei, wo sie gekapselt sind, gibt es den Namen, speichert sie in einem Pfad, skaliert die Basis und die Höhe in einer Weise, die mit dem dwg in Gebrauch kompatibel ist, berechnet den Einführpunkt in Bezug auf den Rest des Designs, kurz es tut viel (alles aus Lamer, um das Herz zu sagen)

Ich habe keine Urheberrechtsprobleme gestellt, weil die Quelle irgendwo frei war, sondern vor allem, weil meine Programme sie nicht verkaufen (aber wer sie will ...) oder sie in irgendeiner Weise verbreiten. Neben mir können sie ihre Studios benutzen, aber sie tun es nicht oft.

Ich wollte die gesamte Quelle veröffentlichen, das ist, was ich mit einigen meiner kleinen Änderungen gefunden habe, aber ich habe jetzt das Copyright-Problem platziert, wie wir auf einem öffentlichen Forum sind. Wovon redest du? Wo? Ich bin überhaupt kein Experte.

urheberrechtlich oder nicht auf autocad 2022 gearbeitet, und arbeitet noch an den Maschinen, wo diese Version dreht, dann ein Computer des Studios abgelaufen, ersetzt und bereits, dass wir gezwungen sind, alles zu rekonfigurieren, was wir die neue Version setzen... dann die Überraschung, dass das übliche Programm auf autocad 2022 geht und auf 2025 nein.

Grüße

reicher

 

[dsw]

einfach nichts übersehen, das Problem, das Sie auf autocad 2025 voll oder lt begegnen?

über das Urheberrecht des Codes, den Sie verschiedene Alternativen haben:

1. Sie veröffentlichen es und Benutzer (Experten) können Ihnen helfen, (hinsichtlich innerhalb der Grenzen möglich) zu bestimmen, wenn der Code von "copyright" abgedeckt ist und, wenn ja, die Entfernung an einen Moderator oder den Site-Administrator anfordern
2. Sie posten es mit einer Nicht-Verantwortungserklärung zu Beginn des Codes (der Code ist der legitime Besitzer....Ich weiß es nicht...blablabla)
3. teilen Sie es privat vor der Veröffentlichung (Ich kann eine kleine Suche machen, wenn Sie wollen)

....verschieden und möglich

 

[Riccardo_Ferrari]

einfach nichts übersehen, das Problem, das Sie auf autocad 2025 voll oder lt begegnen?

über das Urheberrecht des Codes, den Sie verschiedene Alternativen haben:

1. Sie veröffentlichen es und Benutzer (Experten) können Ihnen helfen, (hinsichtlich innerhalb der Grenzen möglich) zu bestimmen, wenn der Code von "copyright" abgedeckt ist und, wenn ja, die Entfernung an einen Moderator oder den Site-Administrator anfordern
2. Sie posten es mit einer Nicht-Verantwortungserklärung zu Beginn des Codes (der Code ist der legitime Besitzer....Ich weiß es nicht...blablabla)
3. teilen Sie es privat vor der Veröffentlichung (Ich kann eine kleine Suche machen, wenn Sie wollen)

....verschieden und möglich

 

[Riccardo_Ferrari]

Ich habe in meinen alten Akten und im Netz gesucht. Dies ist ein Stück Code veröffentlicht in einem Forum in 2008 von einem solchen "treddin" nicht besser identifiziert, ist noch online:

www.theswamp.org/index.php?topic=23762.new

Create image entity using entmake?

Create image entity using entmake?

www.theswamp.org

selbst wenn es den schwierigen Teil enthält, an sich, dass Code nicht funktionieren konnte, war es immer noch integriert, was ich damals tat und ich heute wieder einen Testcode produzierte, den ich anhefte.

test-image.lsp, bitte versuchen Sie es.

auf autocad 2022 dreht, während auf autocad 2025 es pflanze.

Ich glaube, dass die Anwesenheit von Fehlern in autocad 2025 ist undoubted... vage, aber wie kommt es heraus?

Ich spreche von autocad 2025 voll

Vielen Dank für Ihre Aufmerksamkeit

reicher

 

[rpor66]

(defun my_dxf)
(cdr)
)

Fehlen der Definition der my_dxf Funktion, um Ihre Datei hinzuzufügen.
Ich habe es auf autocad 2024 plant3d getestet und es funktioniert, leider habe ich keine PCs mit dem 2025.

 

[Riccardo_Ferrari]

(defun my_dxf)
(cdr)
)

Fehlen der Definition der my_dxf Funktion, um Ihre Datei hinzuzufügen.
Ich habe es auf autocad 2024 plant3d getestet und es funktioniert, leider habe ich keine PCs mit dem 2025.

Vielen Dank für die Berichterstattung. Ich korrigieren und ersetzen

es gab auch einen weiteren Fehler, der Autor der Basisquelle ist nicht, wie ich geschrieben hatte "treddin", aber solche "t.willey", treddin hatte gefragt und willey reagiert

Grüße

reicher

ps. Ich kann den Beitrag nicht mit dem Fehler ändern, aber das ist vielleicht, weil niemand ihn noch gelesen hat. Ich stecke hier die gerade Lispe

 

[rpor66]

(defun c:demo (/ acadobj doc imagefile inimage)
(setq acadobj (vlax-get-acad-object)
doc (vla-get-activedocument acadobj)
)
(setq imagefile (getfiled "\nselect a raster image: "" "jpg;png;tif;gif;bmp;tga;pcx" 8)
(setq my_point (getpoint "\nselect an Insertionspunkt: ")))
(setq my_xlato (getreal "\ninput Länge x Seite: "))
(setq inimage)
(vlax-invoke)
(vlax-get (vla-get-activelayout doc) 'block)
'addraster
Bilddatei
My_point
my_xlato;<-width
0,03
)
)
(vla-put-name inimage imagefile)
(vla-update inimage)
)

sehen, ob es funktioniert, tut alles, was Ihre Datei tut, aber in weniger Zeilen des Codes.

 

[Riccardo_Ferrari]

(defun c:demo (/ acadobj doc imagefile inimage)
(setq acadobj (vlax-get-acad-object)
doc (vla-get-activedocument acadobj)
)
(setq imagefile (getfiled "\nselect a raster image: "" "jpg;png;tif;gif;bmp;tga;pcx" 8)
(setq my_point (getpoint "\nselect an Insertionspunkt: ")))
(setq my_xlato (getreal "\ninput Länge x Seite: "))
(setq inimage)
(vlax-invoke)
(vlax-get (vla-get-activelayout doc) 'block)
'addraster
Bilddatei
My_point
my_xlato;<-width
0,03
)
)
(vla-put-name inimage imagefile)
(vla-update inimage)
)

sehen, ob es funktioniert, tut alles, was Ihre Datei tut, aber in weniger Zeilen des Codes.

Vielen Dank für Ihre Arbeit, ich habe ein paar Ergänzungen gemacht:

die Schicht des Bildes, durch die my_make_layer Funktion, die Teil meiner Grundprogramme ist, dieses Mal habe ich es hinzugefügt

die Schicht ist grundlegend für das, was ich tun muss. Ich habe auch den Rasterwinkel hinzugefügt, den ich nicht brauche (vielleicht 0/90), aber ich sah einen 0,0 ...

Es gibt auch einen kleinen Bug, d.h. Bildung (vla-update inimage) gibt keine Auswirkungen. Ich denke, es ist notwendig, die Rasterliste zu aktualisieren. Doch alles funktioniert sowieso und Sie können von Hand aufladen. Ich ersetzte es durch die am wenigsten elegant

(Befehl "-image" "reload" (vl-filename-base imagefile))

über Eleganz die vl- oder vla- oder vlax-Anweisungen sind in der Regel viel synthetischer als traditionelle, aber sie erfordern (vl-load-com). das Programm, das Sie geschrieben haben, braucht nicht, aber immer noch vl Anweisungen, wo ist der Unterschied?

Danke.

Grüße

reicher

 

[Riccardo_Ferrari]

Ich habe vergessen...
ein Problem beim Import von Rastern mit vl ist, dass der zugewiesene Name zufällig ist. Sie haben richtig umbenannt, aber wenn der Name bereits vorhanden ist, kommt ein Fehler heraus. auch wenn abgesagt, aber vorhanden nicht geladen.
existiert eine einfache Funktion, um festzustellen, ob der Name vorhanden ist? umbenennen als Name-1, Name-2 ... usw.
Ich sage einfach, weil ich eine Quelle gefunden habe, die alle Namen mit einem Zyklus liest, frage ich mich, ob es eine synthetische Funktion gibt.
Danke für Ihre Aufmerksamkeit.
Sag hallo.
Reicher Mann.

 

[rpor66]

über Eleganz die vl- oder vla- oder vlax-Anweisungen sind in der Regel viel synthetischer als traditionelle, aber sie erfordern (vl-load-com). das Programm, das Sie geschrieben haben, braucht nicht, aber immer noch vl Anweisungen, wo ist der Unterschied?

Offensichtlich gibt es eine andere Lispe, die schon tut.
Für den Rest, sobald ich etwas Besseres als den Zyklus finde, nehme ich Sie mit.
Bye

 

[rpor66]

(defun c:insrasterimage (/ acadobj doc imagefile inimage)
(setq acadobj (vlax-get-acad-object)
doc (vla-get-activedocument acadobj)
)
(setq imagefile (getfiled "\nselect a raster image: "" "jpg;png;tif;gif;bmp;tga;pcx" 8)
(setq my_point (getpoint "\nselect an Insertionspunkt: ")))
(setq my_xlato (getreal "\ninput Länge x Seite: "))
(setq inimage)
(vlax-invoke)
(vlax-get (vla-get-activelayout doc) 'block)
'addraster
Bilddatei
My_point
my_xlato;<-width
0,03
)
)
(vla-put-name inimage (fnverificanomeimg imagefile))
(vla-update inimage)
)

(defun fnverificanomeimg(nome / im_dict suffisso loop count recnom)
(setq im_dict (dictsearch (namedobjdict) "acad_image_dict")
(setq count 1 renome nome)
(while (cdr (Mitglied (cons 3 nome) im_dict)))
(setq nome (strcat (vl-filename-base recnome) "-" (rtos count 2 0) (vl-filename-extension recnome)))
(setq zählt (1+ zählt)
)
Nome
)

die Liste der Bildnamen ist im_dict, der Rest ist zu überprüfen, ob der Name existiert und falls es die Suffix -1, -2, etc. hinzufügt.

Bye

 

[Riccardo_Ferrari]

(defun c:insrasterimage (/ acadobj doc imagefile inimage)
(setq acadobj (vlax-get-acad-object)
doc (vla-get-activedocument acadobj)
)
(setq imagefile (getfiled "\nselect a raster image: "" "jpg;png;tif;gif;bmp;tga;pcx" 8)
(setq my_point (getpoint "\nselect an Insertionspunkt: ")))
(setq my_xlato (getreal "\ninput Länge x Seite: "))
(setq inimage)
(vlax-invoke)
(vlax-get (vla-get-activelayout doc) 'block)
'addraster
Bilddatei
My_point
my_xlato;<-width
0,03
)
)
(vla-put-name inimage (fnverificanomeimg imagefile))
(vla-update inimage)
)

(defun fnverificanomeimg(nome / im_dict suffisso loop count recnom)
(setq im_dict (dictsearch (namedobjdict) "acad_image_dict")
(setq count 1 renome nome)
(while (cdr (Mitglied (cons 3 nome) im_dict)))
(setq nome (strcat (vl-filename-base recnome) "-" (rtos count 2 0) (vl-filename-extension recnome)))
(setq zählt (1+ zählt)
)
Nome
)

die Liste der Bildnamen ist im_dict, der Rest ist zu überprüfen, ob der Name existiert und falls es die Suffix -1, -2, etc. hinzufügt.

Bye

(defun c:insrasterimage (/ acadobj doc imagefile inimage)
(setq acadobj (vlax-get-acad-object)
doc (vla-get-activedocument acadobj)
)
(setq imagefile (getfiled "\nselect a raster image: "" "jpg;png;tif;gif;bmp;tga;pcx" 8)
(setq my_point (getpoint "\nselect an Insertionspunkt: ")))
(setq my_xlato (getreal "\ninput Länge x Seite: "))
(setq inimage)
(vlax-invoke)
(vlax-get (vla-get-activelayout doc) 'block)
'addraster
Bilddatei
My_point
my_xlato;<-width
0,03
)
)
(vla-put-name inimage (fnverificanomeimg imagefile))
(vla-update inimage)
)

(defun fnverificanomeimg(nome / im_dict suffisso loop count recnom)
(setq im_dict (dictsearch (namedobjdict) "acad_image_dict")
(setq count 1 renome nome)
(while (cdr (Mitglied (cons 3 nome) im_dict)))
(setq nome (strcat (vl-filename-base recnome) "-" (rtos count 2 0) (vl-filename-extension recnome)))
(setq zählt (1+ zählt)
)
Nome
)

die Liste der Bildnamen ist im_dict, der Rest ist zu überprüfen, ob der Name existiert und falls es die Suffix -1, -2, etc. hinzufügt.

Bye

Vielen Dank, sehr freundlich.
Grüße
reicher