Problems with dcl-control-getproperty from forms

[Peter2]

I have a lisp which calls a project, loops through all forms in the project and displays them. It works fine, but it crashes when it finds the tabs of a tab-strip. Any ideas to avoid it?

Code (autolisp) Select Expand


(defun c:odcl_printscr ()
    (if projektdatei
        (setq projektdatei (getfiled "ODCL-Datei wählen" (strcat (vl-filename-directory projektdatei) "\\") "odcl" 0))
        (setq projektdatei (getfiled "ODCL-Datei wählen" "c:\\" "odcl" 0))
    )
    (setq projekt (dcl-project-load projektdatei T (vl-filename-base projektdatei)))

    ; Titelzeilen
    (setq inhalte nil inhalte (dcl-Project-GetForms projekt))
    (if (and inhalte (dos_dirp outputpfad2))
        (progn
            (foreach form inhalte
                (if (dcl-Control-GetProperty form "(Name)") ;; -->> this line will crashes when the form is a tab-strip
                    (progn
                        (setq name (dcl-Control-GetProperty form "(Name)"))
                        (dcl-form-show (eval (read (strcat projekt "/" name))))
                        (princ (strcat name ))
                    )
                )
            )
        )
    )
    (princ)
)


[owenwengerd]

Maybe the ODCL8Upd.lsp utility will help?

[Peter2]

Thanks Owen, I will take a look.