EEDs mit SetXdata wehrt sich (Autodesk/Lisp)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: EEDs mit SetXdata wehrt sich (414 mal gelesen)

Andreas Kraus
Ehrenmitglied
Elektrotechniker

Senden Sie eine Private Message an Andreas Kraus

Schreiben Sie einen Gästebucheintrag für Andreas Kraus

Beiträge: 1500
Registriert: 11.01.2006

WIN 11
ACAD 2022
BricsCAD V25.1.07

erstellt am: 28. Apr. 2010 11:08

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo zusammen,
ich machs ganz kurz.

Das hier geht:

(setq obj (vlax-ename->vla-object (car (entsel)))
app_name "KRAUS"
xtype (list 1001 1000 1040 1000 1000)
xvalue (list app_name "test" 2.5 "m" "w")
)
(regapp app_name)
(vlax-invoke
obj
'SetXdata
xType
xvalue
)

Das hier geht nicht:

(setq obj (vlax-ename->vla-object (car (entsel)))
app_name "KRAUS"
xtype (list 1001 1000 1000 1000 1000)
xvalue (list app_name "test" "2.5" "m" "w")
)
(regapp app_name)
(vlax-invoke
obj
'SetXdata
xType
xvalue
)

Einzige Änderung - aus der 2.5 wird ein String.
Die anderen Strings gehn doch, warum der nicht ?
An der Stelle funktioniert bei mit kein String.
Was issn das ?

------------------
Gruß
Andreas

http://kraus-cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten

Senden Sie eine Private Message an wronzky

Schreiben Sie einen Gästebucheintrag für wronzky

Beiträge: 2154
Registriert: 02.05.2005

CAD:
AutoCAD 2.6 bis 2014
ADT 2005 - 2014
Arcibem
System:
Windows 2000, XP, NO VISTA
Internet-Startseite:
http://www.archi.de

erstellt am: 28. Apr. 2010 11:24

<-- editieren / zitieren -->

Unities abgeben:

Nur für Andreas Kraus

Hallo Andreas,
ich nehme an, es liegt daran, dass die automatische Konvertierung der Daten den Inhalt falsch interpretiert.
Wenn Du nämlich explizit ein Variant-String erzeugst, funktioniert's:
(setq obj (vlax-ename->vla-object (car (entsel)))
app_name "KRAUS"
xtype (list 1001 1000 1000 1000 1000)
xvalue (list app_name "test" (vlax-make-variant 2.5 8) "m" "w")
)
(regapp app_name)
(vlax-invoke
obj
'SetXdata
xType
xvalue
)

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Infos zum Werbeplatz >>

cseTools Kanalbestandserfassung CAD APP für GIS, Vermessung und Kartografie, Tiefbau, AEC - Architektur-, Ingenieur- und Bauwesen

Mit cseTools Kanalbestandserfassung lässt sich aus reinen Vermessungsdaten (Vermessungspunkten) ein kanal-/fachspezifischer Datenbestand mit erforderlichen Sachdaten zu Kanalnetzen erstellen. Dieses Kanalnetz kann dann auf Knopfdruck als ISYBAU-XML oder DWA-M 150 Datei weitergegeben werden.

Andreas Kraus
Ehrenmitglied
Elektrotechniker

Beiträge: 1500
Registriert: 11.01.2006

WIN 11
ACAD 2022
BricsCAD V25.1.07

erstellt am: 28. Apr. 2010 11:25

<-- editieren / zitieren -->

Unities abgeben:

Hab was gefunden
Damit gehts:

(setq arrType (vlax-make-safearray
vlax-vbinteger
(cons 0 (length data_list))
)
)
(setq arrValue (vlax-make-safearray
vlax-vbvariant
(cons 0 (length data_list))
)
)
(vlax-safearray-fill
arrType
(cons 1001 (mapcar '(lambda (dummy) 1000) data_list))
)
(vlax-safearray-fill arrValue (cons "KRAUS" data_list))
(vla-setxdata
obj_name
(vlax-make-variant arrType)
(vlax-make-variant arrValue)
)

Wieso seh ich sowas nicht vorher

------------------
Gruß
Andreas

http://kraus-cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)