Posted on Leave a comment

CellHelmet Protection

How would you like to have the comfort of knowing that if you dropped your phone that it shouldn’t break, and if it did you could get your repair possibly for free? That is a great peace of mind. I am now offering both items at a discounted price. If you where to buy them from CellHelmet directly it would cost you $69.99 for the Altitude X Pro case and $69.99 for the Liquid Glass Pro+  screen protector. From me you get them for only $40 for each or if you buy them together for only $60. Over $600 repair protection for only a one time cost of $60. I want to help you save money and have peace of mind.

Fill out this Contact info for CellHelmet Request.

Posted on Leave a comment

Friendly Reminder

If you are going to sell a device you should do the following list in this exact order.

1. Erase and reset your device.

2. List your device on the appropriate site.

3. Verify your device is reset.

4. Deliver said device.

5. Before handing off device make sure it is reset.

6. Go to Olive Garden with you recent business endeavor.

In all seriousness make sure your device is reset. If you don’t you will be handing off information to someone that you do not know. Also doing so will allow the new owner to actually set up the device to them.

Posted on Leave a comment

Lisp of the Day


(repeat int expr)

Loop through an expression a set number of time.

Repeat is one of my most commonly used functions when dealing with selection sets. Instead of using a while function, I will repeat the expression the length of the selection set. This will detour from the possibility of having an infinite loop by some strange means either forgetting to change the counter variable or something not modifying correctly.

(repeat (sslength (setq ss (ssget))))

(setq c 0)
(repeat 4 (setq c (1+ c))) returns 4

Posted on Leave a comment

Lisp of the Day


(list list)

Will return a list.

What is a lisp routine without lists. The list can be anything from dxf code to create an entity to something to associate 2 or more values to. I’ve used list to associate engineers initials to their seal information to improve our seal recording process. Selection sets are also a list of what had been selected.

(list 1 2 3 4) returns (1 2 3 4)

Posted on Leave a comment

Lisp of the Day


(fix number)

Will return a real to an integer.

A coworker that uses civil needed to make a polyline that ran along a bank. He needed to just move his mouse along an image to show where the top of a ditch was. I gave the lisp 2 inputs which were start point and increment distance and it places a vertex for a polyline on where the mouse moves over the drawing area based off the previous point and the distance typed in.

(fix 2.3942) will return 2

Posted on Leave a comment

Lisp of the Day



Good old set and setq are the functions of the day today. Used practically in every routine that has ever been made. You may be asking what is the difference between set and setq which is a valuable question.

(setq symbol expression)

(set symbol expression)

But, those are the same arguments needed between them. You are correct but set sets the quoted value of a symbol and setq sets the value of a symbol.

(setq c 0)
(repeat 5 (set (read (strcat "v" (itoa (setq c (1+ c))))) c)))
is the same as
(setq v1 1)
(setq v2 2)
(setq v3 3)
(setq v4 4)
(setq v5 5)

This will allow you to save some time in setting multiple values that can be recalled later.

Posted on Leave a comment

Lisp of the Day


(vl-sort list function)

The lisp function of the day is VL-SORT. I have used this in many ways in the past but my most recent application was to find a vertical line that was the furthest to the right based on a common start point where the “Y” value was “0”.

;Selecting filter
(ssget "_x" (list (cons -4 "*,=,*") (list 10 0 0 0)))
(vl-sort xlist '>)

The first element was the furthest line to the right.