|
Inventor : Teilen
Schachinger am 31.01.2005 um 10:30 Uhr (0)
wie wärs mit einer anderen variante? macht aber nur sinn wenn keine nachfolgenden änderungen zu erwarten sind! also vorher gut überlegen! das bauteil über SAT raus in ACAD. dort den solid an den gwünschten trennflächen kappen. falls man z.b. alle 10mm in Z-achse einen schnitt haben will würde das mit einer einzigen lisp-zeile zu gewältigen sein!...(müsst ich mir kurz anschauen - falls interesse herrscht guck ich mal am abend) oder ein kleines macro das einen ebene+punkt auswhählen lässt und dort bricht... ...
|
| In das Form Inventor wechseln |
|
Inventor : ACAD-3d-Skizze in inventor V8
Schachinger am 18.10.2005 um 10:59 Uhr (0)
so - hab mal die lisp-datei rausgekramt...vorgehensweise:ss2pipe.lsp abspeichernim autocad auf "extras - anwendungen" (in MDT "hilfsmittel - anwendungen")die datei ss2pipe.lsp auswählen und laden"ss2pipe" in die befehlszeilejetzt wird man aufgefordert die objekte zu wählen die in rohre verwandelt werden sollen - "alle" eingeben um alle in der dwg enthaltenen objekte auszuwählendurchmesser für die rohre angeben, in deiner test-dwg würd ich so 0.01 nehmen da die abstände sehr gering sindfertigdabei wird jede ...
|
| In das Form Inventor wechseln |
|
Inventor : Schraffur aus IV nach ACAD-Mdellbereich
Schachinger am 17.05.2004 um 21:43 Uhr (0)
hallo lutz! wenn mich nicht alles täuscht ist es in IV6/7 ja noch so das der export direkt in den modellbereich ja sehr dürftig ist. d.h. ansichten schwirren wirr herum - rahmen etc. nicht enthalten, und ich denke sogar maße wurden nicht korrekt oder gar nicht in den modellbereich exportiert?! außerdem wurden unterschiedliche maßstäbe ignoriert - alles gleich skaliert - nur im papierbreich wurde alles korrekt dargestellt (hab zur zeit leider kein IV zur hand zur kontrolle - aber jedenfalls war da bei einig ...
|
| In das Form Inventor wechseln |
|
Rund um Autocad : Z-Werte ignorieren
Schachinger am 04.09.2003 um 13:05 Uhr (0)
ich hab noch immer nicht kappiert was du genau mit den linien vorhast jedenfalls hier ein code der alle linien (nur linien - nicht bögen etc) die ein delta-z aufweisen in einen auswahlsatz werfen den du mit !ssnew aufrufen kannst. bzw. wenn du gleich direkt nach dem lisp kopieren etc willst kannst du ihn mit dem v aufrufen. (defun c:deltaz () (setq ss (ssget X ((0 . Line )))) (setq x (sslength ss)) (setq z 0) (setq ssnew (ssadd)) (while (/= x z) (if (/= (cadddr (assoc 10 (entget (ssna ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Verschieben und löschen
Schachinger am 11.09.2003 um 20:22 Uhr (0)
ich vermute du machst einmal ein enter wo du einen punkt wählen solltest 1: mit dem ersten enter(oder RMT) bestätigst du das du fertig bist mit der objekte auswahl. 2: nicht wieder enter(oder RMT) drücken sondern einen punkt wählen (mit LMT)! 3: wieder punkt wählen um die richtung anzugeben (mit LMT) also bei mir funkts so.. wenns nicht geht einfach nochmal melden. P.s: hintergrund ist: wenn man einen winkel angeben will braucht mann ja immer noch 2 punkte um ihn zu definieren. ideal wäre natürlich den er ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Abstand
Schachinger am 13.09.2004 um 08:26 Uhr (0)
hallo RoyCAD. mal sehn ob ich dich richtig verstanden habe: du hast bereits 4 fertige lisproutinen und willst eine übergeordnete lisp damit du auswählen kannst welche davon angewendet wird? dann guck dir mal das an: Code: (defun xx1 () (princ 1tes Unterpr. ) ) (defun xx2 () (princ 2tes Unterpr. ) ) (defun c:xx () (initget A B ) (setq xy (getkword Teil wählen (A/B): )) (cond ((= xy A ) (xx1)) ((= xy B ) (xx2)) (t nil) ) (princ) ) ist nur mal ein beispielcode damit ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Was ist auf den Layouts?
Schachinger am 19.08.2004 um 14:00 Uhr (0)
nur mal so ein vorlschag: layer DEFPOINTS wird nicht gedruckt.. wenn du in den layouts bzw. im modellbereich texte auf diesem layer schreibst wie z.b. SCHNITT A-A ANSICHT C etc. ist es ein leichtes rauszufinden wo sich welcher text befindet. dieses lisp durchsucht die layouts und den modellbereich nach texten (NICHT mtext) die auf dem layer defpoints liegen und spuckt alle layoutnamen aus in die dieser text vorkommt (groß/kleinschreibung beachten!) Code: (defun c:search_text (/ s_string ss i) (s ...
|
| In das Form Rund um Autocad wechseln |
|
Inventor : IV8 und Datenimport -> ungenügend!
Schachinger am 09.01.2004 um 11:21 Uhr (0)
hi Leo! schön zu wissen das man nicht allein im regen steht noch was den DWG-Export betrifft: ich hab mir egendlich mehr erwartet. was nach wie vor nicht so funktioniert wie ich es mir eigendlich wünsche ist die erstellung von layergruppen. aus meiner sicht (ich denke mal auch für viele andere) wäre wünschenswert wenn layergruppen anhand der verbauten BG erstellt werden und nicht für die gesammte IAM. was nützt es mir wenn ich eine ansicht von x.iam mache (in der als unterbraugruppe y.iam und z.iam ...
|
| In das Form Inventor wechseln |
|
AutoLisp : Abstand
Schachinger am 08.09.2004 um 12:45 Uhr (0)
du hast überall die zeilen Code: (command bemlinear pt1 pt2 pt1 ) drinnen! erster punkt: anfangspunkt der bemaßung zweiter punkt: endpunkt der bemaßung dritter punkt: POSITON DER BEMASSUNG was wäre es wenn du diese zeile durch Code: (setq pt12 (polar pt1 (+ (angle pt1 pt2) (/ PI 2)) 10.0)) (command bemlinear pt1 pt2 pt12 ) ersetzt? das selbe spiel natürlich auch für die anderen bemaßungen! und natürlich nicht auf das ausschalten des ofangs vergessen! sonst springt dir die bemaßung ev. wie ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : textbearbeitung
Schachinger am 24.03.2003 um 12:32 Uhr (0)
zu 2tens: (defun c:explodetext () (setq text (getstring "Text eigeben: ")) (setq abstand (getreal "Abstand zw. Buchstaben: ")) (setq texth (getreal "Texthöhe: ")) (setq pt (getpoint "Punkt: ")) (setq x 1) (repeat (strlen text) (command "text" (list (+ (car pt) (* abstand (- x 1))) (cadr pt) (caddr pt)) texth "" (substr text x 1)) (setq x (+ x 1)) ) ) Funktioniert aber nur wenn du beim Textstil die Höhe 0 definiert hast... sollte das nicht der fall sein: (defun c:explodetext2 () ...
|
| In das Form Rund um Autocad wechseln |
|
Inventor : dwg export - layer farben!
Schachinger am 28.04.2003 um 12:21 Uhr (0)
(setq style (cdr(cadr(tblnext "style" t)))) (while style (cond ((= (cdr(assoc 3 (tblsearch "style" style))) "ARIAL.TTF") (command "_-style" style "ISOCP.SHX" "" "" "" "" "")) ((= (cdr(assoc 3 (tblsearch "style" style))) "TIMES.TTF") (command "_-style" style "ISOCP.SHX" "" "" "" "" "")) ) (setq style (cdr(cadr(tblnext "style")))) ) so das is der code der zum hinzufügen wäre.... wieder ist die zeile: ((= (cdr(assoc 3 (tblsearch "style" style))) "ARIAL.TTF") (command "_-style" st ...
|
| In das Form Inventor wechseln |
|
AutoLisp : String auf mehrere strings durch definierte trennzeichen aufteilen?
Schachinger am 22.02.2004 um 21:15 Uhr (0)
hallo forum - wieder mal eine sache wo mein bergrenztes lisp-wissen versagt... wenn ich mir mittels open und rline eine ascii-datei öffne bekomme ich ja wunderbar jede zeile als string raus... mein problem ist das in einer zeile z.b. steht: layer= test 0 12 colour= 1 wie kann ich diesen string am einfachsten zerlegen in einzelne strings die dann test_0 , 12 und 1 enthalten. also immer das als trennzeichen zu verstehen. leerzeichen als trennung geht leider nicht da manche daten die ich brauc ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : klammern in strings zählen bzw. vervollständigen?
Schachinger am 18.09.2003 um 10:24 Uhr (0)
hallo forum! wieder mal stoß ich mit meinen lisp-(un)wissen auf eine mauer. folgendes problem: ich lese von einer anderen (nicht auf meinem bescheidenen mist gewachsenen ) applikation xdata-werte die dieses in einzelne objekte schreibt aus. funkt noch alles wunderbar. der für mich wichtige teil sieht z.b. so aus: (1000 . "("5.0b" "0006C7" "ROHR" "EDELST.DAT" nil (((-1.0 0.0 0.0) (0.0 0.0 0.0) "DN100") ((1.0 0.0 0.0) (0.0 0.0 0.0) "DN100")) 39.4888)"))) das problem ist das bei manchen 1000er-einträgen di ...
|
| In das Form AutoLisp wechseln |
