---

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

---

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

---

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