|
Rund um AutoCAD : Standardsdatei über Makro laden
Proxy am 05.06.2007 um 08:49 Uhr (0)
Ich wüsste nicht warum es nicht gehen sollte ? Es ist zwar etwas Geprogge nötig, jedoch ist der Aufwand für einen Automatismus echt überschaubar.Entfernt aus allen aktiven Dokumenten die DWS-ZuordnungenCode:(defun DeleteStandards (/ cnt documents dicts) (setq cnt 0 documents (vla-get-documents (vlax-get-acad-object)) ) ;_ ende von setq (vlax-for doc documents (setq dicts (vla-get-dictionaries doc)) (if (not (vl-catch-all-error-p (setq dictobj (vl-catch-all-apply vla-item (list ...
|
|
Lisp : Default Drucker
Proxy am 02.05.2007 um 14:33 Uhr (0)
Wie kann ich prüfen, ob der Drucker aus der Variablen acad_plt überhaupt existiert ? - ListencheckCode: (defun DT:PLOTTER-GET () (vla-RefreshPlotDeviceInfo (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object) ) ) ) (vlax-safearray-list (vlax-variant-value (vla-getplotdevicenames (vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object) ) ) "Model" ) ) ) )) Code:(vla-get-defaultoutputdevice (vla-get-output (vla-get-preferences (vlax-get-acad-object)))) ...
|
|
Autocad VBA : Auslesen von Blockeigenschaften mittels VBA möglich?
Proxy am 08.11.2004 um 12:31 Uhr (0)
hehe back to the roots, viel Spass beim GCs auswendig lernen http://www.afralisp.com/lispa/dxf.htm http://www.autolisp-tutorial.mapcar.net/ und wenns kompliziert machen willst: http://www.autodesk.de/adsk/servlet/item?siteID=403786&id=4431887&linkID=3898014 ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Auto ...
|
|
Rund um Autocad : Schwerpunktberechnung
Proxy am 14.01.2005 um 11:08 Uhr (0)
Kleiner Nachtrag wegen Tool ... man kann die Befehle mit LISP kombinieren, sieht dann ungefähr so aus: Code: (defun REGKEY_R (/ KEY) (setq key (vl-registry-read (strcat HKEY_CURRENT_USER (vlax-product-key) Profiles (getvar CProfile ) General Configuration ) ;_ end of strcat TempDirectory ) ;_ end of vl-registry-read ) ;_ end of setq (eval key) ) ;_ end of defun (defun sichvar () (setq cmdakt (getvar cmdecho )) (setq osmakt (getvar osmode ...
|
|
Rund um Autocad : Gibt es noch LT-Extender !!???
Proxy am 10.02.2005 um 12:09 Uhr (0)
Wahr ist dass da eine Klage am laufen ist. Aber ich glaube dass keiner der Beteiligten eine verbindliche Aussage geben wird, sonst wäre eine ganze Flotte von Porschefahrern arbeitslos. Ich hoffe auf ein Redesign und Server -und Firmenadressenumzug nach Ecuador . http://www.caddepot.com/dcd1/Autodesk/LT/index-4.html http://www.caddigest.com/subjects/autocad/select/102203_grabowski_ltextender.htm http://www.autodesk.de/adsk/servlet/item?siteID=403786&id=3661735 Ich hoffe das es laut A ...
|
|
Rund um Autocad : Tabellen/Attribute/Schriftfelder
Proxy am 08.05.2005 um 00:31 Uhr (0)
so heftig wie in VBA ist es in ActiveX ist es ja auch nicht Code: (vl-load-com) ;; Spaltenüberschrift (setq tabelle_ueberschrift (list Spaltenüberschrift 1 Spaltenüberschrift 2 Spaltenüberschrift 3 Spaltenüberschrift 4 ) ) ;; Liste der Einträge unterhalb der Spaltenüberschrift (setq tabellen_liste (list (list 1.1 2.1 3.1 4.1 ) (list 1.2 2.2 3.2 4.2 ) (list 1.3 2.3 3.4 4.3 ) (list 1.4 2.4 3.5 4.4 ) ) ) ;; Tabe ...
|
|
AutoLisp : Text-Justify
Proxy am 02.03.2004 um 10:11 Uhr (0)
Habe ein kleines Problem. Versuche die Lisp und die DCL-Datei einzubinden jedoch bekomme ich die Fehlermeldung Abbruch : Ungeeignetes Objekt zum Binden: T bereits schon bei Start. Kann mir da einer auf die Sprünge helfen Code: ;//Elise Moss ;//Moss Designs ;//12/30/98 ;//www.mossdesigns.com ;// ; *** JUSTIFY.LSP *** ; ; Changes the justification of text to:- ; Left, Center, Right, Aligned, Middle, Fit, ; Bottom left, center or right, ; Middle left, center o ...
|
|
SolidWorks : SolidWorks slddrw/DWG
Proxy am 28.08.2006 um 12:57 Uhr (0)
Du hast ja AutoCAD 2005 ... somit steht dir AutoLisp als Programmiersprache zur Verfügung. Entweder kannst du die Layereigenschaften auf 0.15 ändern oder, global alle Strichstärken auf einen bestimmten Wert ändern: Zitat:[...] (vlax-for BLOCK (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))) (vlax-for ITEM BLOCK (if(member(strcase(vla-get-objectname ITEM))("ACDBPOLYLINE" "ACDB2DPOLYLINE")) (vla-put-ConstantWidth ITEM 0.15) ) ) )[...]Bei normalen Linien musst du IMHO dass über Layerma ...
|
|
Autocad VBA : Konturerkennung
Proxy am 31.01.2005 um 13:28 Uhr (0)
IMHO ist das in VBA zwar bestimmt möglich jedoch ist es mit hunderten von Codezeilen verbunden und wer hat schon grossartig Bock drauf. Code: Private Function Boundary(ByVal XYpoint As Variant) As AcadLWPolyline Const X As Byte = 0, Y As Byte = 1, Z As Byte = 2 Dim PrevTotal As Long Dim XYstring As String ThisDrawing.SetVariable NOMUTT , 1 PrevTotal = ThisDrawing.ModelSpace.Count XYstring = CStr(XYpoint(X)) & , & CStr(XYpoint(Y)) ThisDrawing.SendCommand ._-boundary & vbCr & A & vbCr & _Island ...
|
|
Rund um Autocad : WBlock speichern
Proxy am 02.02.2004 um 21:48 Uhr (0)
IMHO ist es ein negatives Feature dass sich über ein kleines lisp, vba Script umgehen lässt, denn AutoCAD speichert die Wblocks immer in der Version in der auch die aktuelle Zeichnung ist. Ich hab mir da ein VBA-Script chen auf Button gelegt, das mir den exportierten Block nochmal öffnet und eine Version tiefer Qsaved. Ehrlich gesagt, bin eigentlich nie diesem Verhalten näher auf den Grund gegangen. Auszug: Code: Dim strCMD As String Dim strFileName As String Private Sub AcadDocument_BeginCommand( ...
|
|
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 ...
|
|
Rund um Autocad : Was waren das für komische Punkte ?
Proxy am 02.02.2006 um 20:08 Uhr (0)
Ich hoffe es sind wirklich Punkte in AutoCAD, dann hilft die vielleicht das kleine Lisp:Code:(defun C:DEL_ALL-POINTS( / BLOCK ) (vl-load-com) (vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) (vlax-for ITEM (setq BLOCK (vla-get-Block LAYOUT)) (if (and (=(strcase(vla-get-objectname ITEM))(strcase "AcDbPoint")) ) (vl-catch-all-error-p (vl-catch-all-apply vla-delete (list ITEM) ) ...
|
|
Rund um Autocad : Benannte Ausschnitte extern ansprechen
Proxy am 09.08.2006 um 10:58 Uhr (0)
Ich habe ja keine Ahnung was du eigentlich in dieser DB abspeicherst, aber aktuell setzten kannst eine benannte Ansicht mit:Code:(vl-load-com) (setq ThisDrawing (vla-get-ActiveDocument (vlax-get-acad-object) ) ) (vla-SetView (vla-Get-ActiveViewport ThisDrawing) (vla-Item (vla-get-Views ThisDrawing) "Test") ) )Ansonsten wie wäre es mit der Möglichkeit dass du die "CAD-Daten" z.B. als JPG abspeicherst / Plot, um somit keinen Zwang hast ins AutoCAD reinzugehen. Die Daten der benannten Ansicht kann ...
|
