|
coolcat83
Jun 9, 2009, 11:33 AM
Post #1 of 6
(3425 views)
Shortcut
Registered: Jan 27, 2007
Posts: 1007
|
Recently I've seen more and more files and software being flung around in the lab, which is really useful, I was thinking perhaps we could have a sticky thread with links to the software so as to have a concise listing of what's out there. Of course it would have to be legal to do so or get the creators permission first.
Aric perhaps we could get a small piece of the server pie to upload spreadsheets and small programs? (after approval of the powers that be of course)
Thoughts?
(This post was edited by coolcat83 on Jun 9, 2009, 3:48 PM)
|
|
|
|
|
bill413
Jun 9, 2009, 12:47 PM
Post #2 of 6
(3399 views)
Shortcut
Registered: Oct 19, 2004
Posts: 5674
|
coolcat83 wrote: Recently I've seen more and more files and software being flung around in the lab, which is really useful, I was thinking perhaps we could have a sticky thread with links to the software so as to have a concise listing of what's out there. Of course it would have to be legal to do so or get the creators permission first. Aric perhaps we could get a small piece of the server pie to upload spreadsheets and small programs? (after approval of the powers that be of course) Thoughts?
|
|
|
|
|
jamincan
Jun 9, 2009, 2:49 PM
Post #3 of 6
(3361 views)
Shortcut
Registered: Nov 1, 2007
Posts: 207
|
I use the following Visual Lisp program which I picked up from this site to produce a logarithmic spiral in autocad.
(vl-load-com)
(setq *ModelSpace*
(vla-get-ModelSpace
(vla-get-ActiveDocument
(vlax-get-Acad-Object)
)
)
)
(defun Degrees->Radians (numberOfDegrees)
(* pi (/ numberOfDegrees 180.0))
)
(defun list->variantArray (ptsList / arraySpace sArray)
; allocate space for an array of 2d points stored as doubles
(setq arraySpace
(vlax-make-safearray
vlax-vbdouble ; element type
(cons 0
(- (length ptsList) 1)
) ; array dimension
)
)
(setq sArray (vlax-safearray-fill arraySpace ptsList))
; return array variant
(vlax-make-variant sArray)
)
;
(defun C:logspiral (/ alfa konstantea hasiera
bukaera kopuru tanalfa tartea i
lista erradioa px py stan
etan vladatapts stx sty
etx ety starttan endtan
)
(setq alfa (degrees->radians (getreal "Constant angle: "))
konstantea (getreal "Dimension: ")
hasiera (degrees->radians (getreal "Start angle of the spiral "))
bukaera (degrees->radians (getreal "End angle of the spiral "))
kopuru (getreal "Number of points ")
)
(setq tanalfa (/ (sin alfa) (cos alfa))
tartea (/ (- bukaera hasiera) (- kopuru 1))
)
(setq i 0
lista nil
)
(while (<= i (- kopuru 1)) ; To calculate points of the spiral and save on variable "lista"
(setq erradioa (* konstantea
(exp (* (+ hasiera (* i tartea)) tanalfa))
)
)
(setq px (* erradioa (cos (+ alfa hasiera (* i tartea)))))
(setq py (* erradioa (sin (+ alfa hasiera (* i tartea)))))
(setq lista (vl-list* px py 0 lista))
(setq i (+ 1 i))
)
(setq stx (sin hasiera) ;Start and end tangents vectors
sty (- (cos hasiera))
etx (sin bukaera)
ety (- (cos bukaera))
)
(setq stan (list stx sty 0))
(setq etan (list etx ety 0))
(setq VLADataPts (list->variantArray lista)
starttan (list->variantArray stan)
endtan (list->variantArray etan)
)
(vla-addSpline
*ModelSpace* ; Global Definition for Model Space
VLADataPts
endtan
starttan
)
) |
|
|
|
|
adatesman
Jun 9, 2009, 3:44 PM
Post #4 of 6
(3329 views)
Shortcut
Registered: Jul 13, 2005
Posts: 3479
|
|
|
|
|
|
coolcat83
Jun 9, 2009, 3:46 PM
Post #5 of 6
(3321 views)
Shortcut
Registered: Jan 27, 2007
Posts: 1007
|
Sounds good, thanks 
|
|
|
|
|
adatesman
Jun 9, 2009, 5:07 PM
Post #6 of 6
(3302 views)
Shortcut
Registered: Jul 13, 2005
Posts: 3479
|
|
|
|
|
|
|
