Forum użytkowników programów ZWCAD, KOMPAS-3D, Scan2CAD, PDF2CAD

[perlon]

Witam
Przerabiam lispy na platformę ZwCAD i napotkałem taki oto problem:

W ACAD jest OK
Command: (vl-load-com)
Command: (setq oExtendSlownik (vla-getextensiondictionary (vla-get-layers
(vla-get-activedocument (if (= (getvar "PRODUCT") "ZWCAD")
(vlax-get-zwcad-object) (vlax-get-acad-object))))))
#<VLA-OBJECT IAcadDictionary 01f5c2ec>

W ZwCAD
Command: (vl-load-com)
Command: (SETQ OEXTENDSLOWNIK (VLA-GETEXTENSIONDICTIONARY (VLA-GET-LAYERS (VLA-GET-ACTIVEDOCUMENT (IF (= (GETVAR "PRODUCT") "ZWCAD") (VLAX-GET-ZWCAD-OBJECT) (VLAX-GET-ACAD-OBJECT))))))
error: bad argument
(VLA-GETEXTENSIONDICTIONARY (VLA-GET-LAYERS (VLA-GET-ACTIVEDOCUMENT (IF (= (GETVAR "PRODUCT") "ZWCAD") (VLAX-GET-ZWCAD-OBJECT) (VLAX-GET-ACAD-OBJECT)))))
(SETQ OEXTENDSLOWNIK (VLA-GETEXTENSIONDICTIONARY (VLA-GET-LAYERS (VLA-GET-ACTIVEDOCUMENT (IF (= (GETVAR "PRODUCT") "ZWCAD") (VLAX-GET-ZWCAD-OBJECT) (VLAX-GET-ACAD-OBJECT))))))

Winowajcą jest funkcja jak w temacie.
Czy składnia funkcji VLA-GETEXTENSIONDICTIONARY różni się na platformach czy może nie jest prawidłowo zaimplementowana?

[kruszynski]

GetExtensionDictionary w ZWCAD nie da się zapisać do kolekcji warstw.
Być może będzie trzeba na to poczekać. W pomocy dla programisty wymienione są typy obiektów, do których można zapisać słowniki: AttributeReference , Block , Dictionary , DimStyle , Group , Layer , Linetype , PlotConfiguration , RegisteredApplication , TextStyle , UCS , View , Viewport , XRecord