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.
In Stock Today
Today’s stock consist of:
iPhone 6S Plus Black Screen (2)
iPhone 6S Plus White Screen
iPhone 6S White Screen
iPad 3/4 Black Digitizer
Galaxy Tab 10
All of these are available for repair as soon as you would need them.
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.
Lisp of the Day
REPEAT
(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
Lisp of the Day
LIST
(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)
Lisp of the Day
FIX
(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
Get Yourself through the Week
If you feel yourself getting down throughout this week remember this:
“Jesus saith unto him, I am the way, the truth, and the life: no man cometh unto the Father, but by me.”
John 14:6 KJV
Lisp of the Day
SET and SETQ
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.
Lisp of the Day
SUBST
(subst new-list old-list list)
Make sure you have the order set correctly. Recent mistake by myself had old-list then new-list. Typically used in conjunction with entmod but not always.
(subst (cons 1 "7-10-17") (assoc 1 lst) lst)
Lisp of the Day
VL-SORT
(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)))
;Sorting
(vl-sort xlist '>)
The first element was the furthest line to the right.