 | ||
Exchange Forum >
Search Forums
Search Results | ||
| ||
| AutoCAD General | ||
AutoCAD 2008 LT
F1T26P1#2
Hi, Set SDI sysvar to 0...
| ||
| AutoLISP and Visual LISP | ||
|
Your favorite shortcut function
F2T1P2#17
Hi, My favorites are ten in one: numpad keys to change predefinite views: 0 > bottom 1 > SW iso 2 > front 3 > SE iso 4 > left 5 > top...
Useful AutoLISP functions
F2T2P2#16
Hi Terry, Something like this ? (defun NoExtraSpaces (str / pos) (setq str (vl-string-trim " " str)) (while (setq pos (vl-string-search " " str...
F2T2P2#18
Hi, A function I had in my 'gile_utils' library (defun string-subst-all (new old str / len start pos) (setq len (strlen new)) (while (setq pos...
F2T2P2#19
Here're some little routines from my AutoLISP library. A first serie to deal with lists ;;; BUTLAST ;;; Returns the list but last item ;;; ;;...
F2T2P2#20
A second serie for strings ;; STRING-SUBST-ALL ;; Substitutes all occurences of a string by another in a string ;; ;; Arguments ;; new...
F2T2P3#21
A third one about points and vectors Note : as many routines are calling them each other, you'd rather load them all. The PROJ_PT...
F2T2P3#22
And a fourth one to play with angles ;;; D2R ;;; Converts degrees to radians ;;; ;;; Argument = an angle (defun d2r (a) (* (/ a 180.0) pi)...
S::Startup in AutoCAD 2007+
F2T4P1#5
"I've never used defun-q before, but that made the difference." Hi, Quickly said, defun-q defines a function as a list. You can see...
Deleting bak and temp files
F2T24P1#4
Hi, the CleanFolder LISP routine allows to delete all the specified type files in the specified folder and sub folder. excuse, no time to...
cleanfolder.lsp
Strings to Numbers
F2T27P1#3
Hi Rasmussen, I don't agree with you, all the returns are correct regarding these functions are "converting" functions not mathematic...
F2T27P1#6
If you want to check if a string describes an integer you can use the type an read function (care with read: if the string begins with a...
Creating a sel set of blocks no longer works
F2T32P1#3
Hi, To remove xrefs from the selection set, you can check the 70 DXF code of each block definition. (setq ss (ssget "_X" '((0...
Rounding functions
F2T35P1#2
Hi, Here's my round function ;;; ROUND ;;; Rounds a number to the closest value according to precision argument ;;; (round pi...
F2T35P1#3
Here're a round-up and a round-down ;; (round+ 25.19 1.0) => 26.0 ;; (round+ -25.19 0.1) => -25.1 (defun round+ (num prec) (if (< 0...
F2T35P1#7
"Gile, There seems to be a problem in your first round function if the prec value is a negative number." Hi, In my opinion, a negative...
F2T35P1#9
"I normally don't round negative numbers" All the upper routines do round negative numbers. They only have different behavior if the...
Dynamic block filter
F2T40P1#1
Hi, Here's a routine to make a dynamic blocks selection according to their dynamic properties. ;;; SSD R2.3 (gile) 14/07/2008 ;;...
SSD.lsp
F2T40P1#4
Thanks for your comments, Rasmussen and Darren. "the way you wrote your own dialog without having to attach a dcl file." More...
Two points for text insertion
F2T45P1#2
Hi, Here's a quickie (defun c:midtext () (command "_text" "_j" "_mc" "_m2p" pause pause "" "") (princ) )...
| ||
| Beta Testing Forum | ||
|
GetExcel for Excel and AutoCAD applications.
F3T5P3#24
Hi, This kind of job should be much more easier using a CSV file, which can be read with a (while (setq line (read-line ...))). The...
F3T5P3#25
Terry, Can you explain to me why GetExcel converts the data values into strings? By my side, if I replace, in XYZout: (PutCell (strcat...
F3T5P3#29
Terry, I didn't test enough seriously, and I agree with you, rtosr allows to keep more precision with real numbers, so, forget my...
F3T5P4#32
Hi, You can also loop the *ExcelData@ list using foreach (or mapcar). (defun c:XYZin () (GetExcel "C:\\Temp\\XYZ.xls" nil nil)...
F3T5P4#34
Hi, I made a little revision: I added an `optional StartRange' to GetExcel. Syntax: (GetExcel ExcelFile$ SheetName$ StartRange$...
F3T5P4#35
Hi, While using the above posted version of GetExcel, the GetCell function won't work if the start cell isn't A1. So I revised both...
| ||
| 3D Gallery Forum | ||
|
Louis XV table
F9T5P1#1
This is a table modelised and rendered with A2002...
Chair
F9T6P1#1
I builted this chair 20 years before I modelise it...
chaise.jpg
F9T6P1#3
Thanks Escher...
| ||
