OpenDCL Forums

OpenDCL => Runtime/AutoLISP => Topic started by: gdu on November 02, 2009, 07:34:44 AM

Title: try to run my opendcl stuff on acad map 2010
Post by: gdu on November 02, 2009, 07:34:44 AM
Because of the upgrade politics of autodesk, and because it seems, that they have solved the boundary issue (after 10 years i think) i would like to upgrade to acad map 2010
my stuff runs fine on civil 3d 2008 and map 2004
now my question, how can i make it work under map 2010
i have found the .18.arx file and loaded it.

It seems to me, that the
(VL-SYMBOL-VALUE 'ODCL_GETVERSIONEX)
does not work, so what am i doing wrong?

any help welcome


my dcl file
http://rapidshare.com/files/301409736/trstkfarben.odc.html (http://rapidshare.com/files/301409736/trstkfarben.odc.html)

my lisp file
(defun trstkfarben ( / fn)
    ;;
    ;; Ensure the OpenDCL.##.ARX is loaded.
    (OR (VL-SYMBOL-VALUE 'ODCL_GETVERSIONEX)
        (AND (SETQ fn (FINDFILE "OpenDCL_ARXLoader.LSP"))
             (LOAD fn (STRCAT "Failed to load :- " fn))
        )
        (ALERT (STRCAT "Failed to load OpenDCL_ARXLoader.LSP"))
        (EXIT)
    )
    ;;
    ;; Ensure the Project ODC file is loaded.   
    (OR (ODCL_PROJECT_LOAD "trstkfarben" T) (EXIT))
    ;;
    ;; Show the modal dialog ..
    ;;


(defun c:trstkfarben_Start_OnInitialize ( /)
     ;;(Odcl_MessageBox "To Do: code must be added to event handler\r\nc:trstkfarben_Start_OnInitialize" "To do")
     (Odcl_Control_ZOrder trstkfarben_Start_Keine 1)
)



  (ODCL_FORM_SHOW trstkfarben_Start)
     ;; The Event handlers manage the form here.
    (PRINC)
)


;;-----------------------------------------------------------

;; wird beim aufruf des forumlars ausgeführt

(defun c:trstkfarben_Start_Keine_OnClicked ( /)
     ;;(Odcl_MessageBox "To Do: code must be added to event handler\r\nc:trstkfarben_Start_Keine_OnClicked" "To do")
     (setq GTRSTKFARBE 0)
     (Odcl_Form_CloseAll 0)
)

(defun c:trstkfarben_Start_Gelb_OnClicked ( /)
     ;;(Odcl_MessageBox "To Do: code must be added to event handler\r\nc:trstkfarben_Start_Gelb_OnClicked" "To do")
     (setq GTRSTKFARBE 51)
     (Odcl_Form_CloseAll 0)
)

(defun c:trstkfarben_Start_Rot_OnClicked ( /)
     ;;(Odcl_MessageBox "To Do: code must be added to event handler\r\nc:trstkfarben_Start_Rot_OnClicked" "To do")
     (setq GTRSTKFARBE 11)
     (Odcl_Form_CloseAll 0)
)

(defun c:trstkfarben_Start_Braun_OnClicked ( /)
     ;;(Odcl_MessageBox "To Do: code must be added to event handler\r\nc:trstkfarben_Start_Braun_OnClicked" "To do")
     (setq GTRSTKFARBE 39)
     (Odcl_Form_CloseAll 0)
)


(defun c:trstkfarben_Start_Blau_OnClicked ( /)
     ;;(Odcl_MessageBox "To Do: code must be added to event handler\r\nc:trstkfarben_Start_Blau_OnClicked" "To do")
     (setq GTRSTKFARBE 161)
     (Odcl_Form_CloseAll 0)
)

(defun c:trstkfarben_Start_Grun_OnClicked ( /)
     ;;(Odcl_MessageBox "To Do: code must be added to event handler\r\nc:trstkfarben_Start_Grun_OnClicked" "To do")
     (setq GTRSTKFARBE 91)
     (Odcl_Form_CloseAll 0)
)


(defun c:trstkfarben_Start_Violett_OnClicked ( /)
     ;;(Odcl_MessageBox "To Do: code must be added to event handler\r\nc:trstkfarben_Start_Violett_OnClicked" "To do")
     (setq GTRSTKFARBE 221)
     (Odcl_Form_CloseAll 0)
)

;;-----------------------------------------------------------

(princ)

;|«Visual LISP© Format Options»
(80 4 50 2 nil "end of " 80 50 0 0 2 nil nil nil T)
;*** DO NOT add text below the comment! ***|;
Title: Re: try to run my opendcl stuff on acad map 2010
Post by: owenwengerd on November 02, 2009, 09:27:18 AM
I'm not sure why you're having trouble, but I recommend to update your code to use demand loading to load the runtime.  Just install the MSI file (either runtime or studio), then use (command "_OPENDCL") to load the runtime from your lisp code.  You can see this approach in the samples installed with the current OpenDCL Studio 6.0 Alpha build.
Title: Re: try to run my opendcl stuff on acad map 2010
Post by: Fred Tomke on November 02, 2009, 11:27:10 AM
Hallo, gdu, kannst Du die odcl-Datei hier hochladen, bitte, ich kann sie dort nicht runterladen. Dann kann ich dir morgen abend gern helfen (bin diese Woche tagsüber unterwegs).

VG, Fred
Title: Re: try to run my opendcl stuff on acad map 2010
Post by: gdu on November 03, 2009, 02:39:16 AM
Danke für das Angebot zu helfen, habe sogar gefunden wie man hier ein File anhängt ;)

Werde mir morgen bzw am Wochenende die Samplefiles der neuen Opendcl Version ansehen, dürfte sich doch einiges geändert haben, meine Files habe ich mit 4.0.1.7 erstellt

Mit freundlichem Gruß
Gert

ps: ich mußte das ODC file in ODCL umbenennen, da es sonst nicht hochgeladen werden konnte.

@owenwengerd
i have installed the msi, the sample files work perfectly
the
(VL-SYMBOL-VALUE 'ODCL_GETVERSIONEX)
returns nil in the new version, so it tries to load
(FINDFILE "OpenDCL_ARXLoader.LSP")
and than it fails....

Had a brief look at the sample files, i do hope, that i just have to change the startup part...
but i could not load the ODC file in OpenDCL Studio, which have been created with OpenDCL 4.0.1.7 and reprogramming the forms is really a lot of work, am i doing something wrong, or is there maybe an migration tool to recompile the old ODC into ODCL... haven´t tried to simply "rename" them...  ;D
Title: Re: try to run my opendcl stuff on acad map 2010
Post by: Kerry on November 03, 2009, 02:43:15 AM
The ODCL loads in the editor OK for me.

I have to rush out, but will try the list when I get back
Title: Re: try to run my opendcl stuff on acad map 2010
Post by: owenwengerd on November 04, 2009, 06:01:31 AM
You'll need to search and replace "odcl_" with "dcl_".  See the migration guide for more info:
http://opendcl.com/wordpress/?page_id=10 (http://opendcl.com/wordpress/?page_id=10)
Title: Re: try to run my opendcl stuff on acad map 2010
Post by: gdu on November 10, 2009, 12:20:47 AM
i managed to run my programs, a simple rename and the replace function of the notepad editor ->  ;D

now i could use acad2010... or wait, till opendcl runs under bricscad  ;)

thank you all for creating opendcl and your support...

mit freundlichem gruss
gert