Delphi - Called lisp routine not working properly

Delphi - Called lisp routine not working properly

DaSteelman
Contributor Contributor
1,263 Views
0 Replies
Message 1 of 1

Delphi - Called lisp routine not working properly

DaSteelman
Contributor
Contributor

Hello,

 

[AutoCAD 14 and Delphi 10.1 Berlin]

 

I call a List routine:

(DEFUN vrm_attsync_definition (blockname /)

; Original command I wanted
;(vl-cmdf "_.attsync" "_N" "VRM_SHAPEDEF")


; These commands work fine when lisp routine is called by command line or sendcommand?
;(vl-cmdf "_.circle" "5,4" "_d" 2.75) ;(command "_.circle" "5,4" "_d" 2.75) (princ "\nStart\n") (setq acad (vlax-get-acad-object)) (vla-put-windowstate acad acMin) (vl-cmdf "_.DELAY" 1000) (vla-put-windowstate acad acMax) (vlax-release-object acad) (princ "\nEnd\n") )

 

Note!: Everything works when lisp routine is called from command line.

 

When running my Delphi application everyting works exept for vl-cmdf and command...

In the active part everything is executed except for the delay.

 

Anyone an idea what is going on here?

 

Cheers!

0 Likes
1,264 Views
0 Replies
Replies (0)