Recent posts

#11

GERMAN / "Add Cancel" - Button unglück...

Last post by Peter2 - June 02, 2026, 02:37:45 AM

Bei den Ereignissen gibt es den Buton "Add Cancel" - der ist mit "Abbrechen" etwas unpräzise übersetzt. Vielleicht irgendwas mit "Abbrechen nutzen" oder "Abbrechbefehl hinzufügen" ....

#12

GERMAN / Beispielcode in der Hilfe

Last post by Peter2 - June 02, 2026, 02:20:25 AM

Der Code hier
https://www.opendcl.com/HelpFiles/index.php?lang=DEU&page=Advanced/Tips.htm
scheint noch die alte Syntax zu verwenden ...

#13

Runtime/AutoLISP / Re: Search in .. / Display lis...

Last post by Peter2 - June 02, 2026, 02:14:00 AM

Here is my current code, which searches all entries for Caption and ToolTipTitle. If one of them exists, it concatenates it with the name of the control.

It does not..
- find and consider the type of the control
- know the name of the tab where the control is situated.

Improvements are welcomed!

Code Select Expand

    (setq project htp/palette)
   
    ; Caption und/oder TooltipTitle auflisten
    (foreach control (dcl-form-getcontrols project)
        (setq showflag nil)
        (setq props (dcl-Control-GetProperties control))
        (if (member "Caption" props)
            (progn
                (setq kurz (dcl-Control-GetProperty control "Caption"))
                (if (/= kurz "")
                    (setq showflag t)
                )
            )
            (progn
                (setq kurz "----")
            )
        )
        (if (member "ToolTipTitle" props)
            (progn
                (setq lang (dcl-Control-GetProperty control "ToolTipTitle"))
                (if (/= lang "")
                    (setq showflag t)
                )
            )
            (progn
                (setq lang "----")
            )
        )
        (if showflag
            (progn
                (setq name (dcl-Control-GetProperty control "(Name)"))
                ; Version A: princ
                (setq info (strcat "\n" kurz "\t" lang "\t" name))
                (princ info)
                ; Version B: Add data to datasheet
                (dcl-Grid-AddRow htp/palette/Datenblatt kurz lang name)
            )
        ) ; if
    ) ; foreach




---

#14

Runtime/AutoLISP / Search in .. / Display list a...

Last post by Peter2 - June 01, 2026, 05:02:11 AM

In many software products the settings are incredible long, and so there is often a "search in settings" functions. The same would be nice for my palette with is a little bit overloaded by buttons and functions.

I have a ..
- modeless palette
- with 5 tabs
- with each of them 15 buttons with caption and tooltips

Now I would like to create a list which consists of ..
"name of the tab - caption of button - Tooltip", like ..

"Drawing - Red line - Draw a red line on layer water"
"Drawing - Blue Line - Draw a blue line on layer street"
"Modify - Red2Blue - Changes all red-water-lines to blue-street-lines"

At the moment I'm fighting with all objects and functions, so I would like to ask if there is already an existing snippet?

Thanks in advance!
Peter

[resize]

#15

Runtime/AutoLISP / Re: dcl-MessageBox language

Last post by domenicomaria - May 30, 2026, 12:14:37 AM

This is no small feat.

The form must resize based on the number of lines of text,
the font size, the font type, the max length of the strings, contain all the necessary icons, and have one or two or three buttons, with various different texts, with various different returns, positioned differently depending on the case, and specify which button should be the default ... !

and I don't know if I forgot something !

#16

Runtime/AutoLISP / Re: dcl-MessageBox language

Last post by owenwengerd - May 29, 2026, 09:47:11 PM

Windows provides the button captions, so you would need to change it in Windows somehow. I'm afraid you'll need to create your own message box form if you want to customize it.

#17

Runtime/AutoLISP / dcl-MessageBox language

Last post by domenicomaria - May 28, 2026, 09:35:09 AM

(dcl-MessageBox  "aaaaaaaaa\n\nbbbbbbbbbbbb\n\ncccccccccccccccc\n\nddddddddddd\n\n" "title" 15 3)

returns what is shown in the attached image ...
...
There are 2 buttons : "SI" and "NO"
...
But I want "YES" and not "SI" !
(I am in Italy but want use english language)

Is there a way to obtain this ?

https://www.theswamp.org/index.php?topic=60628.0

#18

Deployment / OpenDCL for Gstarcad 2027

Last post by Marcin - April 27, 2026, 03:54:11 AM

Hello

We received links to the latest GstarCAD 2027 and SDK:

www.gstarcad.pl/ftp/2027/EN/GstarCAD_2027_EN_Beta_64bit.exe
www.gstarcad.pl/ftp/2027/GRX/grxsdk_GstarCAD2027EN_Beta.zip

Could we request support for GstarCAD 2027 and also for AutoCAD 2027?

Regards
Marcin

#19

Studio/Dialog Editor / OpenDCL command - (dcl-form-sh...

Last post by jbuzbee - April 25, 2026, 10:12:58 AM

This works on one of my routines but not the other ones I've tried. 

Thanks

JD

#20

Runtime/AutoLISP / Re: Error in dcl_form_show and...

Last post by velasquez - April 11, 2026, 06:20:51 AM

Olá Owen,
Verifiquei que o problema está em 'vl-symbol-value'

Por que a vriável existe :
Command: (vl-bb-ref 'JoyFormName) -> DC_MAINMENU_CBARMAX
Command: (vl-symbol-value (vl-bb-ref 'JoyFormName)) -> Nil