Thank you so much - yes you´re right I get it. The next problem I get: suddenly it don´t work some subroutines when start Rename_Dialog and push all 3 button (se movy
{2}
(defun c:xx ()
(setq cmdecho (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(command "_OPENDCL")
(setvar "CMDECHO" cmdecho)
(if (= (atoi (substr (getvar "acadver") 1 2)) 20)
(setvar "EPDFSHX" 0)) ; Acad2016 take off textframes in pdf-file
(cd:Subroutines)
(cd:OpenDCLfuntions)
(setq acdoc (vla-get-activedocument (vlax-get-acad-object))
aclay (vla-get-layouts acdoc)
)
(setq dclst (mapcar 'vla-get-Name (cd:GetLayouts aclay))
resLst dclst
)
(setq result nil error nil)
(setq form (dcl-project-load "H:\\Dropbox\\2014\\AF-Infrastructure-Tools\\ViewportManager\\Form1.odcl"))
(setq returnResult (dcl-Form-Show Form1/Dialog_Option))
)
(cd:Subroutines) there are all my subroutines which loaded by start command with xx
The program is doing so here:
Type command xx
1) Dialog "Layout Tab Manager 1.0" showing
2) Push "Find" button ->Dialog "Find and Replace" starts
3) 3 Button "Find" - "Replace" - "Replace all" there pushevents are working, but subroutines (cd:Subroutines) are not found definition
Do I run command xx second one it suddenly works, why
Do you have an answer to this behaviour ?!