 | ||
Exchange Forum >
Search Forums
Search Results | ||
| ||
| AutoCAD General | ||
Crosshairs size
F1T8P1#2
Hi Malcolm, Do you mean with "cursorsize". "Sometimes I’ll run a lisp routine and it changes my crosshairs size. I wish they would set...
F1T8P1#5
Look like this Command: cursorsize Enter new value for CURSORSIZE <5>:"set as your want" "Maybe? I thought it was referred to...
| ||
| AutoLISP and Visual LISP | ||
|
Your favorite shortcut function
F2T1P2#16
Hi, This code is special my favorite ; clon is stand for Check Loaded Or Not ; Design by : Adesu <Ade Suharna> ; Email...
Useful AutoLISP functions
F2T2P1#3
Here my version ; adil is stand for add degree in list ; Design by : Adesu <Ade Suharna> ; Email : mteybid@yuasabattery.co.id...
F2T2P1#4
This code to extract a string from completed string,look like this below. ; ssx is stand for seacrh string xname ; Design by : Adesu...
F2T2P1#5
here a code from Mr.Puckett,it's vrey useful (defun table (s / d r) ; Michael Puckett (while (setq d (tblnext s (null d))) (setq r (cons (cdr...
F2T2P1#6
here from Mr.Elpanov ; by ElpanovEvgeniy (defun test (lst fun) (if (cdr lst) (test (cons (fun (car lst) (cadr lst)) (cddr lst)) fun) (car lst) ) ;_...
F2T2P1#7
This from me too ; by Adesu (setq lst '("0" "B_STR" "B_BWK" "B_TXT")) (defun addslash (lst / slh xlst nlst) (setq slh " ") (foreach x...
F2T2P1#8
Here simple to convert a string (setq opt (getstring "\nENTER NEW NAME: ")) "Adesu" (setq listopt (mapcar 'chr (vl-string->list opt)))...
F2T2P1#9
From Mr.Tanzillo ; by Tony Tanzillo <tony.tanzillo at caddzone dot com> 12/2/02 (defun strlcat (delim lst) (apply 'strcat (cons (car lst)...
F2T2P1#10
This code to extract a dxf code (setq ss (car (entsel "\nSelect an object"))) (defun dxf (ss code / sse) (setq sse (entget ss)) (setq dxf...
F2T2P2#11
Change text from front to behind (setq lst '("50-T16-01" "45-T20-02" "70-T16-01" "30-T16-01")) (defun test (lst / bars tex nlst)...
F2T2P2#12
Remove string only number ; by Adesu (setq lst "GHJ5623JHG56") (defun test (lst /) (vl-list->string (vl-remove-if '(lambda (x) (and (>= x...
F2T2P2#13
Remove "()" (setq ls '(0.129551 -0.474815 0.0)) (defun tes (ls / a b c) (setq a (rtos (car ls))) (setq b (rtos (cadr ls))) (setq c (rtos (last...
Suppressing AutoCAD dialogs
F2T8P1#2
Hi Overdrive, I'm not yet understand what are you want, but test this code (defun c:b (/ bn bp ss ) ;(command "BLOCK") (setq bn...
Significance of c: before function names
F2T14P1#3
or you should open afralisp site http://www.afralisp.net/lispa/lisp5.htm "What is the significance of the "c:" before some of the...
Sample reactor
F2T26P1#1
Here a sample code for Autolisp reactor, use properties function to change one of the circle, and you would get change diameter for...
| ||
| Beta Testing Forum | ||
|
Creator - Creates Autolisp Programs
F3T2P2#12
Hi Jeff, I just test your code....wow...I can not say anything, you are wonderful, it's great and you as motivator for me to create more...
Vars function to find local variables
F3T6P1#4
Hi Terry, I have a code for to find local variable, but very sorry I don't know who is the author, look at attach file...
Check_variables.lsp
Check_variables.dcl
Dimension Polylines
F3T8P1#3
It's cool, I like it and I give you 2 thumbs up...
| ||
| Dcl Dialogs | ||
|
Need AutoLISP and dialog example
F4T2P1#3
Hi Justin, Here a sample dialog box. DCL code sseb : dialog {label="EDIT BOX MANAGER"; : row { : edit_box {label = "Fill with new...
Sample create icon in dialog box
F4T3P1#1
Hi Alls, Here a sample how to create a icon in dialog box. I got that code from Mr. Jeremiah A. Daniels for data coordinate icon...
I can't get it
F4T6P1#3
Or like this: LSP File (defun c:test (/ data_as1 data_as2 data_as3 data_box scale) (setq dcl_id (load_dialog "border.dcl")) (if (not...
| ||
| ActiveX and VBA | ||
|
Playing Sounds in AutoCAD
F6T9P1#7
Hi dOrsborn, Here my code to play a music ; pwva is stand for Play Winamp Via Autolisp ; Design by : Adesu <Ade Suharna> ; Email...
| ||
| Menus and Customization | ||
|
Lost icon menu toolbars
F7T5P1#2
Hi Phelps, Try this tutorial. Select or put your cursor on a toolbar, right click your cursor and select tool bar menu as you want. "One...
| ||
| AutoCAD Games | ||
|
Play this ball
F8T1P1#1
Ah...if you still lazy or bore, play this ball ; bttd is stand for Ball Top To Down ; Design by : Adesu <Ade Suharna> ; Email...
Bored??? Lets play!!!
F8T3P1#2
Hi AVLISP, It's good trick and cool too. "Like games? Long time ago I did a puzzle game on Autocad. Select your favorite picture...
Here an animation
F8T4P1#1
This code for figure a loading file, if you look at yahoo email. ; asar is stand for Animation Symbol Arrow Rotation ; Design by : Adesu...
F8T4P1#3
Hi Bill, very sorry for my forgot,here as your request ; sar is stand for Symbol Arrow Rotation ; Design by : Adesu <Ade Suharna>...
Automatic Create Fan
F8T5P1#1
; acf is stand for automatic create fan ; Design by : Adesu <Ade Suharna> ; Email : mteybid@yuasabattery.co.id ; Homepage...
F8T5P1#3
Hi Zooom, That right, thanks for your correction. "Far out! This would make a great AutoCAD screen saver. Have you thought about...
Display a number
F8T6P1#1
; gdn is stand for Game Display Number ; Design by : Adesu <Ade Suharna> ; Email : mteybid@yuasabattery.co.id ; Homepage...
Turn a line
F8T7P1#1
; tl is stand for Turn a Line ; Design by : Adesu <Ade Suharna> ; Email : mteybid@yuasabattery.co.id ; Homepage...
Catch it if you can
F8T8P1#1
Try this code, the circle would bigger if you far from it and would smaller if you nearest. ; acfc is stand for Animation Circle From Cursor...
Animation Create Circle From Cursor
F8T9P1#1
Hi Alls, Here a sample for create many circle in drawing area with your cursor. ; accfc is stand for Animation Create Circle From Cursor...
AutoCAD Screen Saver
F8T11P1#2
it's cool and nice...
Bursting Bubbles
F8T12P1#2
it's cool,I like that...
Cursor field
F8T23P1#2
it's great.....cool...
Trapped!!
F8T24P1#2
Good idea and interesting...
Classic Poker Game
F8T25P1#2
Hi AVLISP, It's interest and cool, but I can not ply it. "Here is a classic poker game on Lisp Hopefully you make a lot of money. The...
| ||
| 3D Gallery Forum | ||
|
My Helicopter
F9T7P1#1
Here for first I create a 3D drawing, it's created about 10 years ago...
heli.dwg
F9T7P1#3
Hi Escher, First open your cad with your drawing, then hit shift key + prt Scr, now you should open again paint brush, copy paste it...
| ||