|
AutoLisp : Bemaßung (Überschreibung)
Proxy am 03.03.2004 um 07:37 Uhr (0)
Hallo, hat da ein Webfund und wollte diesen etwas meinen Wünschen entsprechend anpassen. Code: ; Dim2asoc.Lsp - This routine changes all ASSOCIATIVE dimensions ; that have had their values changed by the user ; and resets them all to their default values. ; Warning - works on all layers, whether frozen or not. ; (defun c:dim2asoc( / ss e ent n spin c ) (defun spin( c ) (cond ((= c | ) / ) ((= c / ) - ) ((= c - ) ) ((= c ) | ) ) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Erzeugung von Hoehenkoten nach Definition eines Nullpunktes
Proxy am 04.05.2004 um 20:49 Uhr (0)
Ich habe die Beiträge hier mindestens 3x durchgelesen, habe eigentlich aber immer noch nicht so direkt verstanden was Kleiner_pally will. Vermutung: 1. Eine assiziative Bemassung die den Wert, welche auch immer als Attribut in einem freidefinierbaren Block vorliegen soll. Die Attributsgrösse soll je nach eingestellten Ansichtsfensterskalierungsfaktor sich ändern. Eigentlich wäre es womöglich sinnvoll direkt mehrere Attribute Layerbezogen einzufügen und diese dann je nach Faktor sichtbar bzw. unsichtb ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Datei wird immer grösser
Proxy am 07.02.2005 um 20:21 Uhr (0)
Zitat: Original erstellt von hengesa: Das Bereinig war recht erfolgreich. Hat mein File von 169 MB auf nur 73,5 MB schrumpfen lassen!!! Thanks!! Oben schreibst du unteranderem ca. 20 kreise und 20 Linien , Das Ausgangsfile hat eine grösse von ca. 50 MB mit über 1000 Layern ... 1000 Layer ... ähmmm das erinnert mich an die Diskussion Ähmmm ich kenne auch so 150 MB dwgs .. die stellen jedoch ein grosses Gebäude mit Elekto, Sani, Wasser&Gas uns Sonstiges und alles in 3D ... aber für ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Höhenkote Lisp Code 3 Fragen
Proxy am 07.05.2004 um 14:31 Uhr (0)
So etwa: Code: (defun c:HKATTS (/ ) (princ
H koten setzen. Starten mit HKATTS ) ;FEHLERBEHANDLUNGSROUTINE..................................................... (defun-q *error* (msg) (setvar osmode aosm) (setvar blipmode abli) (setvar luprec alup) (setvar dimzin azin) (setvar attdia attdiaold) (setvar clayer oldlayer) (setq p1 nil p2 nil p3 nil p4 nil c1 nil cy nil cym nil txt nil) (setq hkmz nil o_str nil n_str nil o_slen nil n_slen nil si nil st nil dx nil me nil cmmm nil cm1 ni ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : AutoCad-Standard-Plugins
Proxy am 11.03.2004 um 10:41 Uhr (0)
Code: (defun c:text2style (/ mt) (setvar cmdecho 0) (command _.undo _G ) (setq mt (f:select (list MTEXT ))) (if mt (del_mtf mt) ) (command _.undo _END ) (princ) (setvar cmdecho 0) ) (defun del_mtf (obj / schalter ntext text) (setq text (f:str-in-list (cdr (assoc 1 (setq objd (entget obj))))) schalter T ntext (apply strcat (apply append (mapcar (lambda (Z / tmp) (if (and schalter (not (member Z (list { } ))) ) ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : FlexLM Lizenz freigeben
Proxy am 30.05.2006 um 09:13 Uhr (0)
Aus der adsk_nlg.pdf CD-ROM-LaufwerkBinacadFeuidocsEinrichten der Lizenz-ZeitsperreDie Lizenz-Zeitsperre wird in der Optionsdatei festgelegt, um zu bestimmen, wie lange eine Produktsitzung inaktiv sein darf, bevor die Lizenz vom Lizenzserver zurückgenommen wird. Wenn Sie dieses Flag in der Optionsdatei festlegen, wird eine Benutzerlizenz vom Lizenzserver zurückgenommen, wenn das Produkt auf der Arbeitsstation länger als die festgelegte Zeitsperre inaktiv ist.Wenn aufgrund der Zeitsperre eine Benutzerlizenz ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Mass-Reihe nach Excel auslesen
Proxy am 08.03.2005 um 12:50 Uhr (0)
Mit VBa könnte es ungefähr so aussehen: Code: Sub DimValue2Excel() Dim doc As AcadDocument Dim sel As AcadSelectionSet Dim mode As Integer Dim groupCode As Variant, dataCode As Variant Dim gpCode(0) As Integer Dim dataValue(0) As Variant Dim i As Long Dim cad As Object Dim acad As AcadApplication Dim autocad_gestartet As Boolean autocad_gestartet = True On Error Resume Next Set cad = GetObject(, AutoCAD.Application ) If Err.Number 0 Then Err.Clear MsgBox AutoCAD ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Plot mit Dialog über Script aufrufen
Proxy am 02.06.2004 um 10:36 Uhr (0)
Ergebniss der Suchfunktion: (defun c:freigabe (/ p1 p2 File) (setq p1 (getpoint
Untere linke Ecke des Fensters angeben: )) (setq p2 (getpoint
Obere rechte Ecke des Fensters angeben: )) (setq File (strcat c:/cad/ (Dateiname PLT ))) (DateiPlot2000 p1 p2 File) (princ (strcat
Datei (strcase file) erfolgreich gespeichert. )) (princ) ) (defun DateiPlot2000 (p1 p2 File) (setvar filedia 0) (command _.-plot ) (command _y ) ; detailliert? (command Model ) ; Layoutnamen eingeb ...
|
| In das Form Rund um Autocad wechseln |
|
SolidWorks : DWG Editor von SolidWorks wirklich brauchbar?
Proxy am 07.12.2004 um 22:44 Uhr (0)
Also ich hatte auch schon das Vergnügen sich mit SW2k5 SP0 DWG -Editor auseinander setzen zu dürfen (Wortwahl beabsichtigt) 1. Er ist IMHO für einen Endanwender der aus der AutoCAD-Ecke kommt intuitiv bedienbar und bereits in SP0 (engische Version) durchaus als stabiler gegenüber einem vollgepatchtem/upgedatetem AutoCAD 2002-2005 anzusehen. 2. Lisp und ActiveX Anpassungen funktionieren fast tadellos (Ausnahme sind zwar da, vorhanden jedoch bassieren Sie meistens aus bereits schlampiger Programmierun ...
|
| In das Form SolidWorks wechseln |
|
Anwendungen : Bitte um konstruktive Kritik - Leitfaden
Proxy am 12.12.2003 um 23:35 Uhr (0)
Hallo 1. Die ersten paar Seiten sind eher etwas für bwl er, und es ist natürlich auch sehr MUM-lastig 2. Die ganze Liste der Überprüfungen bringt theoretisch garnix wenn keinerlei Praxis-Werte vor der Umstallung existieren, Wie die zustande kommen ist eher eine Angelegenheit eines BOFHs, der z.B. eine kontrolierte/abgesicherte Simulation durchführt. 3. Ich hab noch nie eine Software auf dem Profi -Markt gesehen die am Ende nicht in einer höheren Rechnung und mehr Problemen endet und das z.B. alle 4-5 ...
|
| In das Form Anwendungen wechseln |
|
Autocad VBA : Rechteck zeichen
Proxy am 25.11.2004 um 19:23 Uhr (0)
Alle "Objekte" wie Rechteck gibt es genauso weinig wie es überhaupt den Löffel nicht gibt den ich gerade mittels Gedankenkraft ohne Ergebnisse verbiegen möchte, ergo = Code: Public Sub Rectangle() Dim objPL As AcadLWPolyline Dim objUtil As Object Dim objSpace As AcadBlock Dim dblPnts(7) As Double Dim varPnt1 As Variant Dim varPnt2 As Variant Dim varPnt3 As Variant Dim varPnt4 As Variant Dim strPrmt As String On Error GoTo Err_Control Set objUtil = ThisDrawin ...
|
| In das Form Autocad VBA wechseln |
|
Rund um AutoCAD : _laytrans
Proxy am 05.07.2007 um 14:59 Uhr (0)
Ich weiss, es ist Asbach-Uralt, aber ich poste mal trotzdem da ich es vor 5 Minuten im W W W gefunden habe. Somit dürfte ich möglicherweise zur eigenen alten Anfängerfrage, einen Beitrag (vielleicht sogar die Antwort) auch fachlich kompetent Stellung bezogen haben. @ CADmium. Zitat:If you want to use the Layer Translator command Laytrans in a script file (SCR) or an AutoLISP file (LSP) here is how it can be done.The use of the LISP function requires that you have already created and saved a layer transl ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : ***POP **OBJECT_INSTERT und Attribute
Proxy am 16.03.2004 um 20:22 Uhr (0)
Zitat: Original erstellt von marc.scherer: Hi Proxy, solche IMHO kruden Wünsche lassen immer auf IMHO merkwürdige Arbeitsweisen schließen. Da aber mit ActiveX so ziemlich nix unmöglich scheint, glaube ich schon das so etwas machbar ist. (aber dann bestimmt nicht mit $(getvar,block_hat_attribute) ) Hmm, wie soll es sonst gehen ? Ich habe Blöcke die möglicherweise Attribute besitzen und wenn ich (oder ein Endanwender dem es echt sche** egel ist was Attribute sind) den _explode Befehl anwendet dan ...
|
| In das Form AutoLisp wechseln |
