Dcl list box help

[Lee Mac]

You will need to delete the DCL file and make the change to the LISP code also.

 

The DCL file may be found in the same directory as:

 

(findfile "ACAD.pat")

[alanjt]

Just for a bit of fun...

 

(defun DemoSelect (/ *error* dyn d)
 (setq *error* (lambda (x) (and dyn (setvar 'dynmode dyn))))
 (and (setq dyn (getvar 'dynmode)) (setvar 'dynmode 3))
 (initget 0 "1 2 3 Exit")
 (setq d (cond ((getkword "\nSpecify demo number [1/2/3/Exit] <1>: "))
               ("1")
         )
 )
 (*error* nil)
 (if (/= d "Exit")
   (strcat "Demo " d)
 )
)

 

[The Buzzard]

You will need to delete the DCL file and make the change to the LISP code also.

 

The DCL file may be found at:

 

(findfile "ACAD.pat")

Lee,

 

I did several searches by name & date. These are ACAD Hatch pattern files. There is nothing in them that represents a dialog file.

[Lee Mac]

Lee,

 

I did several searches by name & date. These are ACAD Hatch pattern files. There is nothing in them that represents a dialog file.

 

Look in that directory

[The Buzzard]

Ok,

 

So its not in the ACAD.pat but in the same directory as that.

 

LMAC_BFind_V1.0.dcl

LMAC_BFind_V1.1.dcl

LMAC_demo.dcl

LMAC_mapping_V1.1.dcl

 

Not sure if that is such a good idea since many users would have become confused like me. Some could have mis-interpreted that as being in the ACAD.pat and deleted that file.

 

Although I find it interesting.

I think you should have explained that better Lee.

[Lee Mac]

Fair point, original post updated.

[alanjt]

One more...

(No one is listening, but I'm still having fun.)

 

(defun DemoSelect (/ *error* dyn d)
 (setq *error* (lambda (x) (and dyn (setvar 'dynmode dyn))))
 (and (setq dyn (getvar 'dynmode)) (setvar 'dynmode 3))
 (initget 0 "1 2 3 Exit")
 (setq d (cond ((getkword "\nSpecify demo number [1/2/3/Exit] <1>: "))
               ("1")
         )
 )
 (*error* nil)
 (if (/= d "Exit")
   (eval (read (strcat "(c:Demo" d ")")))
 )
)

[The Buzzard]

One more...

(No one is listening, but I'm still having fun.)

 

(defun DemoSelect (/ *error* dyn d)
 (setq *error* (lambda (x) (and dyn (setvar 'dynmode dyn))))
 (and (setq dyn (getvar 'dynmode)) (setvar 'dynmode 3))
 (initget 0 "1 2 3 Exit")
 (setq d (cond ((getkword "\nSpecify demo number [1/2/3/Exit] <1>: "))
               ("1")
         )
 )
 (*error* nil)
 (if (/= d "Exit")
   (eval (read (strcat "(c:Demo" d ")")))
 )
)

Sorry about that Alan,

 

I am not such a big fan of command prompt programs as some are not of dcl, But its a good thing you are still having fun all the same.

[alanjt]

Sorry about that Alan,

 

I am not such a big fan of command prompt programs as some are not of dcl, But its a good thing you are still having fun all the same.

I can understand that. However, in the above subroutine, I utilized the Dynamic Mode, which acts like a dialog.:wink:

[The Buzzard]

I can understand that. However, in the above subroutine, I utilized the Dynamic Mode, which acts like a dialog.:wink:

Well,

Thats different considering Im always in a Dynamic Mode, Only difference is, I do not act like a nut.

Im the real deal!

[alanjt]

Well,

Thats different considering Im always in a Dynamic Mode, Only difference is, I do not act like a nut.

Im the real deal!

HuH?

[tagkelas]

Thanks The Buzzard & Lee Mac. You are great

 

[Lee Mac]

You're welcome Tagkelas