Handling with Opendcl with modeless dialogue

[S_S_SS]

Hello every one 
i work with OpenCL to make modeless dialogue 
but I've a problem in using (command ....) any AutoCAD commands don't work with the OpenCL
then i tried to make entmake but it make the AutoCAD give error and closed 
can any one help me with example how to handle with the command inside the OpenCL??
thanks in advance 
and see the attached dcl file and lisp and dwg .. 

[Moshe-A]

@S_S_SS  hi,

i do not have openDCl installed here (can not check) but you can not use (command) function while dialog box is open (same as using dcl) so (entmake) is good approach.

inside (secleader) function there is free string???  put it on remark

the rest of the code seems working 😀

Moshe

(defun secledger (blockName insPoint rotation / )
"Function to insert a block with given parameters."
;; التحقق من وجود البلوك في الرسم
(if (not (tblsearch "BLOCK" blockName))
(alert (strcat "Block \"" blockName "\" not found!"))
(progn

[S_S_SS]

thanks sir
but enmake make the AutoCAD gives error and terminal closes

[Moshe-A]

As i said do not have openDCL installed.

if you manually call from VLIDE console  or command line (secledger) function does it work?

[S_S_SS]

unfortunately it doesn't work

[Moshe-A]

post the error you are getting

[S_S_SS]

[Moshe-A]

it look like you did not understand what is ask you to do

i want you to copy & paste (to a new lsp file) the function (secledger) load it into memory and manually run the following 2 lines

(from VLIDE console or AutoCAD command line)

(setq pt1 (getpoint "\nSelect insertion point: "))

(secledger "cuplock plan" pt1 0)

on my computer it works

Moshe

[S_S_SS]

I understand you now
this function secledger works but it ask me to get point and then i should press enter to execute the insert
even the insert command don't ask me to press enter to execute the insert
and it make error in insert the other items
I'll record a video to show you what i see

[Moshe-A]

@S_S_SS,

To trap the error, you must isolate the part of code that trigger it.

i do not think it comes from (entmake) but from the call before or after.

Moshe

[S_S_SS]

Hello sir 
see this code it's work correctly 

(defun c:hh (/)
        (setq pt3 (getpoint "\nSelect insertion point: "))

       (entmake
        (list
          '(0 . "INSERT")                        
          (cons 2 "cuplock plan")                    
          (cons 10 pt3)                     
          (cons 41 1)                           
          (cons 42 1)                            
          (cons 43 1)                            
          (cons 50 (* pi (/ 0 180.0)))    
        )
      )
  
)

 
and when i put it in the opendcl  like this it make AutoCAD closed immediately 

(defun c:Untitled/Form2/TextButton2#OnClicked (/)

  
  
        (setq pt3 (getpoint "\nSelect insertion point: "))

       (entmake
        (list
          '(0 . "INSERT")                       
          (cons 2 "cuplock plan")                   
          (cons 10 pt3)                   
          (cons 41 1)                           
          (cons 42 1)                            
          (cons 43 1)                           
          (cons 50 3)   
        )
      )
  
)

see the video here 
thanks in advance 

[Sea-Haven]

This may be useful.

How to Record Your Screen on Windows 11 | Microsoft Windows

[daniel_cadext]

The error shows that you need to lock the document

https://opendcl.com/forum/index.php?topic=1232.0

I have no idea how to do this in Lisp though.

https://help.autodesk.com/view/OARX/2023/ENU/?guid=OARX-RefGuide-AcApDocManager__lockDocument_AcApDo...