MTool Comment's or Suggestions?

[Lt Dan's legs]

If you look at the code you can tell I'm somewhat of a begginer to LISP.

 

 

 

;;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤;;
;;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤;;
;;--------------------------------------------------------------------------------------------;;
;;--------------------------------------------------------------------------------------------;;
;;--------------------------------------- Measure tool ---------------------------------------;;
;;--------------------------------------------------------------------------------------------;;
;;-------------------------------- Created by Reid Booe  2010 --------------------------------;;
;;--------------------------- Contact LT DAN'S LEGS @ cadtutor.net ---------------------------;;
;;--------------------------------------------------------------------------------------------;;
;;-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤;;
;;-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤;;
;;-------------------------------------- Alpha  Release --------------------------------------;;
;;¤¤ Version 1.0 -------------------------------------------------------- August 12th, 2010 ¤¤;;
;;-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤;;
;;--------------------------------------- Beta Release ---------------------------------------;;
;;¤¤ Version 1.1 -------------------------------------------------------- August 13th, 2010 ¤¤;;
;;-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤;;
;;------------------------------------- Official Release -------------------------------------;;
;;¤¤ Version 1.2 -------------------------------------------------------- August 15th, 2010 ¤¤;;
;;--------------------------------------------------------------------------------------------;;
;;-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤;;
;;¤¤ Version 1.3 -------------------------------------------------------- August 18th, 2010 ¤¤;;
;;¤¤ Added text size, width and layer popup                                                   ;;
;;                                                                                            ;;
;;-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤;;
;;¤¤ Version 1.4 -------------------------------------------------------- August 19th, 2010 ¤¤;;
;;¤¤ Revised popup menu's & look of dcl                                                       ;;
;;                                                                                            ;;
;;-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤;;
;;-------------------------------------- Special Thanks --------------------------------------;;
;;¤   to Lee Mac for all the help, allowing me to use his methods and portions of his code   ¤;;
;;-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤-¤;;

MToolv1.4.LSP

Edited August 19, 2010 by Lt Dan's legs

[Lee Mac]

Nice one Reid, and thanks for the recognition - appreciated

 

I haven't as yet looked at the code in depth, but on first glance, if you are going to use my 'Savepath' snippet, you will need to include my 'popup' sub. :wink:

 

Lee

[Lt Dan's legs]

I wondered what popup was but couldn't find the "defun popup" in the countv1.1.lsp. I see it now. I don't know why I chose to ignore it...

 

soon to be revised.

[autolisp]

I originally started doing this to further my knowledge in dcl. Now that the program is complete I wanted to share. Please let me know what you think.

 

 

;;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤;;
;;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤;;
;;--------------------------------------------------------------------------------------------;;
;;--------------------------------------------------------------------------------------------;;
;;--------------------------------------- Measure tool ---------------------------------------;;
;;--------------------------------------------------------------------------------------------;;
;;-------------------------------- Created by Reid Booe 2010 --------------------------------;;
;;--------------------------- Contact LT DAN'S LEGS @ cadtutor.net ---------------------------;;
CODE]
dear sir
thx for sharing
it's possible add text height opation & liner scale factor

[Lt Dan's legs]

to Autolisp

 

check out v1.3 and let me know if this is what you're talking about.

[autolisp]

to Autolisp

 

check out v1.3 and let me know if this is what you're talking about.

dear sir

thx add my suggeation

i select the layer but not change layer

[Lt Dan's legs]

I'll take a look at it later today. Seems to work fine on my end...

[Lt Dan's legs]

dear sir

thx add my suggeation

i select the layer but not change layer

 

I cannot duplicate... maybe explain in detail what's happening. I can fix the program once we find the problem.

Edited August 19, 2010 by Lt Dan's legs

[autolisp]

I cannot duplicate... maybe explain in detail what's happening. I can fix the program once we find the problem.

 

dear sir

select the xyz layer but this layer not change text written in only 0 layer