или резба в AutoCAD? Проблема е че не мога да наглася пътя за екструдирането
тоест 3Д спиралата.Иначе видях подобие на пружина в един от
приложените примери в Acad но явно си има някакъв майсторлък(точната стъпка,вътрешния и външния диаметър ...)В Мechanical Desktop си ги
генерира но не съм го разучил още добре

Ami w priloghenieto na MDT 6 PowerPack (dano si si go instaliral) si gi generira mnogo hubawo i w 2D i w 3D..i ne samo che si gi generira..ami si gi i smjata i im wadi i diagramite na silite daghe :-)))
Kolkoto po barzo si go nauchish kakto MDT 6 taka i Power Pack - tolkowa po-dobre za tebe..shtoto shte se machish po malko..
Izwadi si ottam njakoja prughina po DIN shte widish che nikak ne e sloghno..

Ako tolkowa iskash da si ja generirash kato 3D SOLID w AutoCAD az sam go prawil kato poredica ot toroidalni (okraghnost zawartjana okolo os izwan neja) segmenti i gore-dolu se poluchawa. Inache Wintowa linija w 3D se prawi na AutoLISP.
Nauchi si MDT6..ili pone mu probwaj funkciite za prughanata..tam wsichko towa stawa udobno i elegantno..

Никой не ме е усетил и няма да ме усети. Даже западняци са ме питали как ги правя тия неща, ама аз не им казвам.

Не можах да видя kkk какво ти е отговорил, защото нет-а в момента е отвратителен.

Пружините ги правя като си начертавам тор(оид) със съответните диаметри - дебелина на тела, външен и вътрешен диаметър на пружината. Срязвам го на две равни части, завъртам едната насама, другата - натам на ъгъл, съответстващ на ъгъла на наклона на пружината. Copy copy copy...

Зорът идва при крайните навивки. Ще проявиш творчество. Врът малко насам, врът натам, режеш според дължината на пружината.

Резбата е още по-проста. Чертаеш имитация на профила на резбата. Нещо такова

/\/\/\/\/\/\/\/\/\/\
|____________|

Правиш го това на затворена полилиния, Revolve и готово.


-----------------

Не че не могат тия неща да станат истински, но не си струва. Пробвал съм го от спортна страст. Май използвах програмка 3Dspiral.lsp

ама се получиха огромни по размер файлове. И най-важното - безсмислено е! Нито имаш якостни изчисления в АКАД-а, нито динамични... Нищо! Само заради един визуален ефект да се мъчиш - НЕ СЕ СТРУВА.

Хе-хе, много е старо. Сигурно вече има нещо по-модерно.

Ей този текст го преписваш като

3Dspiral.lsp

в SUPPORT директорията

От командния ред (точките на прилепване OSNAP да са ИЗКЛЮЧЕНИ)

Command:(load "3dspiral")
Command:3dspiral

и отговаряш на въпросите. После започват мъките по точното нагласяне на окръжността.

Пак ти казвам, че в АКАД-а е безсмислено, ама може да си пробваш, все пак.

------------------ Текст --------------------------

;;; 3DSPIRAL.LSP
; Copyright (C) 1992 by Autodesk, Inc.
;
; Permission to use, copy, modify, and distribute this software
; for any purpose and without fee is hereby granted, provided
; that the above copyright notice appears in all copies and that
; both that copyright notice and this permission notice appear in
; all supporting documentation.
;
; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
; PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;; --------------------------------------------------------------------------;
;;; DESCRIPTION
;;;
;;; This is a programming example.
;;;
;;; Designed and implemented by Kelvin R. Throop in January 1985
;;;
;;; This program constructs a spiral. It can be loaded and called
;;; by typing either "spiral", "3dspiral" or the following:
;;; (cspiral <# rotations> <base point> <horiz growth per rotation>
;;; <points per circle> <start radius>
;;; <vert growth per rotation>).
;;;
;;; --------------------------------------------------------------------------;

(defun myerror (s) ; If an error (such as CTRL-C) occurs
; while this command is active...
(if (/= s "Function cancelled")
(princ (strcat "\nError: " s))
)
(setvar "cmdecho" ocmd) ; Restore saved modes
(setvar "blipmode" oblp)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)

(defun cspiral (ntimes bpoint hfac lppass strad vfac
/ ang dist tp ainc dhinc dvinc circle dv)

(setvar "blipmode" 0) ; turn blipmode off
(setvar "cmdecho" 0) ; turn cmdecho off
(setq circle (* 3.141596235 2))
(setq ainc (/ circle lppass))
(setq dhinc (/ hfac lppass))
(if vfac (setq dvinc (/ vfac lppass)))
(setq ang 0.0)
(if vfac
(setq dist strad dv 0.0)
(setq dist 0.0)
)
(if vfac
(command "3dpoly") ; start spiral ...
(command "pline" bpoint) ; start spiral from base point and...
)
(repeat ntimes
(repeat lppass
(setq tp (polar bpoint (setq ang (+ ang ainc))
(setq dist (+ dist dhinc))
)
)
(if vfac
(setq tp (list (car tp) (cadr tp) (+ dv (caddr tp)))
dv (+ dv dvinc)
)
)
(command tp) ; continue to the next point...
)
)
(command "") ; until done.
(princ)
)

;;;
;;; Interactive spiral generation
;;;

(defun C:SPIRAL (/ olderr ocmd oblp nt bp cf lp)
;;;;(setq olderr *error*
;;;; *error* myerror)
(setq ocmd (getvar "cmdecho"))
(setq oblp (getvar "blipmode"))
(setvar "cmdecho" 0)
(initget 1) ; bp must not be null
(setq bp (getpoint "\nCenter point: "))
(initget 7) ; nt must not be zero, neg, or null
(setq nt (getint "\nNumber of rotations: "))
(initget 3) ; cf must not be zero, or null
(setq cf (getdist "\nGrowth per rotation: "))
(initget 6) ; lp must not be zero or neg
(setq lp (getint "\nPoints per rotation <30>: "))
(cond ((null lp) (setq lp 30)))
(cspiral nt bp cf lp nil nil)
(setvar "cmdecho" ocmd)
(setvar "blipmode" oblp)
(setq *error* olderr) ; Restore old *error* handler
(princ)

)

;;;
;;; Interactive spiral generation
;;;

(defun C:3DSPIRAL (/ olderr ocmd oblp nt bp hg vg sr lp)
;;;;(setq olderr *error*
;;;; *error* myerror)
(setq ocmd (getvar "cmdecho"))
(setq oblp (getvar "blipmode"))
(setvar "cmdecho" 0)
(initget 1) ; bp must not be null
(setq bp (getpoint "\nCenter point: "))
(initget 7) ; nt must not be zero, neg, or null
(setq nt (getint "\nNumber of rotations: "))
(initget 7) ; sr must not be zero, neg, or null
(setq sr (getdist bp "\nStarting radius: "))
(initget 1) ; cf must not be zero, or null
(setq hg (getdist "\nHorizontal growth per rotation: "))
(initget 3) ; cf must not be zero, or null
(setq vg (getdist "\nVertical growth per rotation: "))
(initget 6) ; lp must not be zero or neg
(setq lp (getint "\nPoints per rotation <30>: "))
(cond ((null lp) (setq lp 30)))
(cspiral nt bp hg lp sr vg)
(setvar "cmdecho" ocmd)
(setvar "blipmode" oblp)
(setq *error* olderr) ; Restore old *error* handler
(princ)

)

;;; --------------------------------------------------------------------------;
(princ "\n\tC:SPIRAL and C:3DSPIRAL loaded. ")
(princ)

Aми освен благодарности друго няма какво да кажа...
То и на мен ми трябваше от "спортна страст" в Acad
Ще наблягам на MechDesktop.
A да знаете откъде мога да дръпна документация за Mechanical Desktop
понеже в хелпа няма никакви туториали и общо взето е ужасен(MechDesktop
ми е в пакета на Inventor и май затова не са се постарали Autodesk да
сложат нещо като ръководство,наблягат на Inventor тяхната м...)
Айде чао

wigh na www.cad.dp.ua tam ima za R4.0 i to na ruski (sha ti swarshi rabota za R.6)
ako mi dadesh e-mail moga da ti pratja njakoj i drug ot orginalnite tutorials na R6.0
(ima gi na diska, kojto se prodawa na Slawejkow), tam ima tutorials za Power Pack..no Power Pack ne e tolkowa sloghen za uswojawane ot srednointeligenten mashinen inghener , wladeesht anglijski na sredno niwo :-))

Ами ако не те затруднява ми ги прати на gripen@abv.bg
На моя диск няма такива екстри а се надявам да стана
средноинтелигентен машинен инженер със английски на добро ниво(поне).
Мерси предварително

Instaliraj si SolidWorks, povqrvaj, shte se rodish!

Мерси за съвета
точно като се отвратих от SolidWorks реших
да намеря нещо наистина свястно и поразгледах
и други програмки.
Извинения за грубия тон но точно днес ми писаха оценка
на Solid и както можеш да предположиш не особенно добра:-)))