MTool Comment's or Suggestions?

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

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

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.

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

to Autolisp

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

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

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

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.

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