Hello together,
How can I control the display order of properties in lisp below?
(defun c:PsC (/ )
(setq aObj (vlax-get-acad-object)
dok (vla-get-activedocument aObj)
schApp (vla-getInterfaceObject aObj "AecX.AecScheduleApplication.8.4")
psetDefs (vlaX-invoke-method schApp 'PropertySetDefs (vla-get-database dok))
)
(setq psdName "Duct")
(if (= (vlax-invoke-method psetDefs 'Has psdName) :vlax-false) ; kein psd vorhanden
(progn
(setq psetdef (vlax-invoke-method psetDefs 'Add psdName)) ; erstellen
(setq pdefs (vlax-get-property psetdef 'PropertyDefs))
(setq pdef (vlax-invoke-method pdefs 'Add "Company"))
(setq pdef (vlax-invoke-method pdefs 'Add "Installation"))
(setq pdef (vlax-invoke-method pdefs 'Add "Width"))
(setq pdef (vlax-invoke-method pdefs 'Add "Height"))
)
)
)
for example as in .Net
; propertySetDefinition.Definitions.Add(propDef);
; propertySetDefinition.SetDisplayOrder(propDef, 1);
or about the dictionary?
Greetings