Recent posts

#41

Runtime/AutoLISP / Scrollable content in palette

Last post by odcl_civilizer - September 19, 2024, 03:50:41 AM

This is my first time posting here so I hope this is the right place.

I have a palette and wanted to ask how/if I can make the content in it scrollable.
I searched this forum and google but didn't find anything although it seems like something very basic. I'm new to this and I might be missing the elephant in the room, so any help is appreciated!

#42

Runtime/AutoLISP / Re: LISP to Load OpenDCL

Last post by DGCSCAD - September 12, 2024, 03:59:45 AM

You would need to restart before the new demand load registry keys are active. You could complete the install, then read the newly added demand load registry key via lisp to get the full path to the OpenDCL runtime module, then load it via (arxload).

Ok, thank you. I appreciate help, and the fast response.

#43

Runtime/AutoLISP / Re: LISP to Load OpenDCL

Last post by owenwengerd - September 11, 2024, 03:08:27 PM

You would need to restart before the new demand load registry keys are active. You could complete the install, then read the newly added demand load registry key via lisp to get the full path to the OpenDCL runtime module, then load it via (arxload).

#44

Runtime/AutoLISP / LISP to Load OpenDCL

Last post by DGCSCAD - September 11, 2024, 12:47:29 PM

Hi. First post here. Been a member of theSwamp for many years (deegeecees) and although I haven't used LISP much over the past 2 decades, I've been needing to get back into it recently.

I'm looking for a way to load OpenDCL on other PC's through a network via LISP.

I've put this together after some searching around, but it doesn't recognize ODCL after installing:

Code Select Expand

(defun checkodcl ()
(if (and (not dcl_project_load) (vl-cmdf "OPENDCL") (not dcl_project_load))
(progn
(startapp "msiexec.exe" (strcat "/i \"" "OpenDCL.Runtime.9.2.3.3.msi" "\""))
)
)
)
The MSI file is located in a support path, so it runs as it should. I'm not sure what I'm missing. Any help is appreciated.

#45

Studio/Dialog Editor / Re: Option Button vs Option Li...

Last post by owenwengerd - August 19, 2024, 09:01:52 PM

It would require adding custom themed painting to the option list control in OpenDCL, which is complicated, but not impossible.

[Option Button]

#46

Studio/Dialog Editor / Option Button vs Option List s...

Last post by ScottBolton - August 18, 2024, 12:09:06 PM

Is there a way to get Option Button and Option List styles to be the same? OBs have a Use Visual Style property but OLs don't.

#47

Runtime/AutoLISP / DragnDrop on PictureBox

Last post by pawlix - August 01, 2024, 07:44:52 AM

Hi guys,
I wonder how to code the takeover file path when I dragndropfromother txt file on my PictureBox.
Can someone help me?

[Edit:]

#48

Runtime/AutoLISP / Re: OnKeyUp event

Last post by pawlix - July 30, 2024, 09:21:26 AM

It does nothing. I just want that if I release SpaceBar then alert popup. Nothing else.
Do I need to do something more then just put that in my lisp code?
Obviusly keyup event is checked in opendcl project

Edit:
I think I handle it, but I have got more questions about it.
How to code it for Delete key?
Where and how should I put Flags?

Edit2:
I got it all. Thanks for your replay @owenwengerd, it was helpful. We can close the topic.

#49

Runtime/AutoLISP / Re: OnKeyUp event

Last post by owenwengerd - July 30, 2024, 09:16:00 AM

Try this:

Code Select Expand

(defun c:project/Form4/ListView1#OnKeyUp (Character RepeatCount Flags /)
  (if (= Character " ") (alert "SPACEBAR was released"))
)


#50

Runtime/AutoLISP / OnKeyUp event

Last post by pawlix - July 30, 2024, 09:04:53 AM

Hello guys!
I'm kinda new in this world, could someone help me with OnKeyUp event?
I would love to use it in my ListView by pressing SpaceBar but I have no clue how to do that becouse of those Characters and Flags :/
Currently my code seems like this:

(defun c:project/Form4/ListView1#OnKeyUp (Character RepeatCount Flags /)
  (setq Character "SpaceBar")
  (setq RepeatCount 0)
  (setq Flags 0)
  (alert "OK")
)

Can someone help me?