[VisualLISP] VLA-GETEXTENSIONDICTIONARY

[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))))))

#

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