Author Topic: ActiveX Help for LISPin' folks ...  (Read 11391 times)

0 Members and 1 Guest are viewing this topic.

nivuahc

  • Guest
ActiveX Help for LISPin' folks ...
« Reply #15 on: May 15, 2005, 06:19:12 PM »
I'm reminded of those commercials for Guinness beer...

Quote from: Guinness Beer Guy
Brilliant!

nivuahc

  • Guest
ActiveX Help for LISPin' folks ...
« Reply #16 on: May 16, 2005, 08:20:46 AM »
Just tested it on Vanilla 2002 and it works perfectly!

:)

Thanks again Michael!

Crank

  • Swamp Rat
  • Posts: 1466
ActiveX Help for LISPin' folks ...
« Reply #17 on: May 16, 2005, 09:33:09 AM »
Thanks Michael, this makes life a lot easier!

2 questions:
  • Can you add getkword to choose between AxPROPS and nAxPROPS?
  • If there is already a helpscreen in the background, is it possible then to use that window?[/list:u]
Vault Professional 2018     +     AEC Collection

MP

  • Seagull
  • Posts: 17686
  • Have thousands of dwgs to process? Contact me.
ActiveX Help for LISPin' folks ...
« Reply #18 on: May 16, 2005, 10:27:01 AM »
Quote from: Crank
Thanks Michael, this makes life a lot easier!

My pleasure, hope it helps you along your journey. :)

Quote from: Crank
Can you add getkword to choose between AxPROPS and nAxPROPS?

I'd rather not, but then again, maybe you're not the only one who wants this. Is it the naming that bugs you, like would you prefer AxPropsX for the nested version? Notwithstanding, there's nothing stopping you from calling (AxProps x) anyway you want via your own wrapper, including exactly as you described.

Quote from: Crank
If there is already a helpscreen in the background, is it possible then to use that window?

I could, but <guessing> it would not immediately receive focus. Also, I thought folks might want to have independent windows for subsequent help screens.

You guys indicate what you want, I'll try to respond to the majority.

:)
Engineering Technologist • CAD Specialist • Programmer Analyst
Design • Drafting • Document Control • Automation.
cadanalyst@fastmail.com • https://cadanalyst.slack.com • http://linkedin.com/in/cadanalyst

MP

  • Seagull
  • Posts: 17686
  • Have thousands of dwgs to process? Contact me.
ActiveX Help for LISPin' folks ...
« Reply #19 on: May 16, 2005, 11:50:39 AM »
Please note that I found a bug in the program this morning. It crashes on PolyLines. The fix is easy, but I don't have the source code here, so I'll fix it up when I get home tonight.

Also, regarding Crank's request consider this quick one off:

Code: [Select]
(defun c:Propsx ( / mia getkey key lst )

    (cond
   
        (   (and
                (setq mia (null AxProps))
                (null (findfile "axprops.fas"))
            )
            (princ "Cannot find axprops.fas, aborting.")
        )    
       
        (   (and
                mia
                (eq 'failed (load "axprops.fas"))
            )
            (princ "Cannot load axprops.fas, aborting.")
        )
       
        (   (defun GetKey ( / result )
                (while
                    (null
                        (eq 2
                            (car
                                (setq result (grread))
                            )
                        )
                    )
                )
                (cadr result)
            )

            (setq lst
                (mapcar 'ascii
                   '("p" "P" "n" "N" "\r" " ")
                )
            )
           
            (if mia (princ "\n\n"))

            (princ
                (strcat
                    "Press [p] or [enter] to select a "
                    "primary entity, [n] for a nested one: "
                )    
            )

            (while
                (null
                    (member
                        (setq key (GetKey))
                        lst
                    )
                )    
            )

            (setq ename
                (car
                    (if (member key (mapcar 'ascii '("n" "N")))
                        (nentsel)
                        (entsel)
                    )
                )
            )
           
            (vl-load-com)

            (AxProps ename)
        )
    )    

    (princ)
   
)


:)
Engineering Technologist • CAD Specialist • Programmer Analyst
Design • Drafting • Document Control • Automation.
cadanalyst@fastmail.com • https://cadanalyst.slack.com • http://linkedin.com/in/cadanalyst

MP

  • Seagull
  • Posts: 17686
  • Have thousands of dwgs to process? Contact me.
ActiveX Help for LISPin' folks ...
« Reply #20 on: May 16, 2005, 09:23:52 PM »
Bug squished, please download latest version.

AxProps.fas (use your logon name / password).

Altered presentation of data slightly, I'll let you find the change.

:)
Engineering Technologist • CAD Specialist • Programmer Analyst
Design • Drafting • Document Control • Automation.
cadanalyst@fastmail.com • https://cadanalyst.slack.com • http://linkedin.com/in/cadanalyst

DEVITG

  • Bull Frog
  • Posts: 448
Re: ActiveX Help for LISPin' folks ...
« Reply #21 on: December 25, 2005, 09:19:56 AM »
Hi Michael , just one of the best gift on my chrismas tree.
Thanks
Location @ Córdoba Argentina Using ACAD 2019  at Window 10

MP

  • Seagull
  • Posts: 17686
  • Have thousands of dwgs to process? Contact me.
Re: ActiveX Help for LISPin' folks ...
« Reply #22 on: December 26, 2005, 01:55:12 AM »
Waaaaat the ... well, thanks DEVITG, right nice of you to say so ... thanks!

:)
Engineering Technologist • CAD Specialist • Programmer Analyst
Design • Drafting • Document Control • Automation.
cadanalyst@fastmail.com • https://cadanalyst.slack.com • http://linkedin.com/in/cadanalyst

GDF

  • Water Moccasin
  • Posts: 2055
Re: ActiveX Help for LISPin' folks ...
« Reply #23 on: December 26, 2005, 08:54:02 AM »
Thanks

Thank you Michael. I like it as much as you ATOMS.vlx routine. I think the people at Autodesk would make use of this.

Gary
Why is there never enough time to do it right, but always enough time to do it over?
BricsCAD 2020x64 Windows 10x64

MP

  • Seagull
  • Posts: 17686
  • Have thousands of dwgs to process? Contact me.
Re: ActiveX Help for LISPin' folks ...
« Reply #24 on: December 26, 2005, 10:35:25 AM »
Thanks Gary! lol, it seems like a lifetime ago when I wrote atoms, I kinda forgot about it.

:lol:
Engineering Technologist • CAD Specialist • Programmer Analyst
Design • Drafting • Document Control • Automation.
cadanalyst@fastmail.com • https://cadanalyst.slack.com • http://linkedin.com/in/cadanalyst

Joe Burke

  • Guest
Re: ActiveX Help for LISPin' folks ...
« Reply #25 on: December 30, 2005, 05:14:57 AM »
Very nice, Michael. Thank you.   :-)

A couple cosmetic questions. Could the window be resizable? Likewise, recall its last location and size?

On my two monitor setup the window always appears centered on the drawing window monitor, regardless of where it was when last closed. I'd prefer to have it on the other monitor so it doesn't obscure the drawing.

Forgive me if this is nit-picking.

JAY

  • Newt
  • Posts: 105
Re: ActiveX Help for LISPin' folks ...
« Reply #26 on: June 05, 2015, 12:06:35 AM »
Thanks for sharing .
where is the Atoms.vlx ?


Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: ActiveX Help for LISPin' folks ...
« Reply #27 on: June 05, 2015, 11:13:21 PM »
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

--> Donate to theSwamp<--

JAY

  • Newt
  • Posts: 105
Re: ActiveX Help for LISPin' folks ...
« Reply #28 on: June 05, 2015, 11:24:53 PM »