|
Rund um Autocad : dateipfade in textfile
CADmium am 11.07.2005 um 09:11 Uhr (0)
oder du nutz folgendes Lisp, das du mit Export-support aufrufen kannst (defun c:Export-support(/ FILENAME FILE SUPPORT POS LISTE) (vl-load-com) (if(and(setq FILENAME(getfiled "SUPPORT-EXPORT" (strcat(getvar "LOGINNAME") "-" (vla-get-ActiveProfile (vla-get-profiles (vla-get-preferences(vlax-get-acad-object)) ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Zeichnung vom Modellbereich in den Layoutbereich verschieben
CADmium am 25.05.2009 um 08:49 Uhr (0)
nunja .... ich zitier malRetVal = object.CopyObjects(Objects[, Owner][, IDPairs]) Object : Database, Document The object or objects this method applies to. Objects: Variant (array of objects); input-onlyThe array of primary objects to be copied. All the objects must have the same owner, and the owner must belong to the database or document that is calling this method. ich staune , dass das mit Übergabe einer Lisp-Liste auch geht, konform ist das nicht!nochwas :wenn (setq asatz (ssget "X")) nix findet , ...
|
| In das Form Lisp wechseln |
|
Autocad VBA : DXF in Verbindung mit VBA zum Ändern von Zeichnungen geeignet?
CADmium am 10.11.2004 um 10:53 Uhr (0)
um dich nochmehr zu verwirren : kopier dir mal folgendes in die Befehlszeile, oder guck hier nach. (defun C:ROTATEINSERTS( / BLOCK ) (vl-load-com) (vlax-for BLOCK (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))) (vlax-for ITEM BLOCK (if(=(strcase(vla-get-objectname ITEM)) ACDBBLOCKREFERENCE ) (vl-catch-all-error-p (vl-catch-all-apply vla-put-Rotation (list ITEM 0.5) ) ) ...
|
| In das Form Autocad VBA wechseln |
|
AutoLisp : Nochmal Urheberecht..
CADmium am 30.07.2004 um 13:28 Uhr (0)
Hi, Nachdem hier schon sehr ausgiebig diskutiert wurde... und ich mir eigentlich nicht vorstellen kann, das wegen der hier geposteten Lisp s ein Rechtsstreit vom Zaun gebrochen wird ( Siehe Schöpfungshöhe ) schieb ich mal noch eine Frage nach : ..wie siehts eigentlich mit einem unbeabsichtigten Plagiat aus ? Auch wenn die Codes von mir aus meiner Feder stammen, kann ich mir nicht vorstellen, das sie einmalig wären. Irgendeiner hat bestimmt das gleiche Konzept/Ansatz und das Ergebnis ist mit Siche ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Attedit-Fenster
CADmium am 20.03.2007 um 13:23 Uhr (0)
Zitat:Original erstellt von newcad:kann man eigentlich das Atteditfenster so vergrößern/erweitern, das mehr wie Acht Attributsabfragen kommen?..hab ich schon mal mit ner Nachprogrammierung des Attedit-dialoges mittels Lisp und DCL realisieren müssen. Hatte damals aber einen andetren Grund als die Attributsanzahl. Hilft dir ja zwar jetzt nicht unbedingt weiter, soll dir aber zumindest eine Möglichkeit aufzeigen. Richtigen Sinn in einer NAchprogrammierung wegen der Attributsanzahl sehe ich zwar nicht, da m ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : LISP Hilfslinien erstellen (K_Linien) funzt nicht richtig
CADmium am 11.12.2008 um 09:14 Uhr (0)
nimm aus allen Funktionen die Zeile (command "_undo" "_m") raus oder bau dir die Funktionen so um:(defun c:hh() ;erzeugt eine horizontale Hilfslinie im gewählten Punkt (command "_undo" "_e") (command "_undo" "_m") (setq altlay (getvar "CLAYER")) (setq pt (getpoint "
Punkt für horizontsle Hilfslinie:")) (command "_layer" "_m" "hilfslin_018" "_p" "k" "hilfslin_018" "_c" "Magenta" "hilfslin_018" "_lw" "0" "hilfslin_018" "") (command "_xline" "_h" pt "") (setvar "CLAYER" altlay) (princ) (command "_undo" "_e ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Linientypen auslesen
CADmium am 08.02.2008 um 08:06 Uhr (0)
(entget(tblobjname "LTYPE" "amzigzag"))liefert dir ((-1 . Objektname: 7efa3ea8 ) (0 . "LTYPE") (330 . Objektname: 7efa3c28 ) (5 . "55") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLinetypeTableRecord") (2 . "Amzigzag") (70 . 0) (3 . "//-//-//-//-//-//") (72 . 65) (73 . 2) (40 . 11.0001) (49 . 0.0001) (74 . 4) (75 . 136) (340 . Objektname: 7efa5568 ) (46 . 0.04) (50 . 0.0) (44 . 0.0) (45 . 0.0) (49 . -11.0) (74 . 0))das, da wirst du in einigen GCs sicher ein paar Faktoren aus der LIN wiederfinden (zur not : ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LISP: Auslesen von Textkoordinaten im Block
CADmium am 20.09.2018 um 11:07 Uhr (1)
prinzpiell so(cdr(assoc 10(entget(car(nentsel "
Attribut wählen:")))))bzw. wenn es bloß 1 oder das erste Att ist(cdr(assoc 10(entget(entnext(car(entsel "
Blockref wählen:"))))))Das Attribut ist Bestandteil der Blockreferenz .. Das Wipeout soll sicher Bestandteil des Blockes werden .... Wenn du das so hinbekommst musst du auch immer die Zeichenreihenfolge ändern ... was dir vermutlich um die Ohren fliegt ...deshalb beschreib mal, was du letztendlich willst, vielleicht gibt es andere Wege .... oder soll der ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoCAD VBA : Herausforderung Mechanical Part
CADmium am 28.01.2008 um 14:20 Uhr (0)
Die Standardparts haben keine Subautocadelemente wie Linien usw !!! Diese entstehen erst nach _explode bzw. dxfexport, da die Methoden für diese Funktionen vom Programmierer der Standardparts so definiert wurden. Eine Methode wie GETSUBELEMENTS gibts leider nicht, oder ist zumindest nicht dokumentiert, oder ich kenn sie nicht. Für den Programmierer der Standardparts wäre es kein Problem diese zu implementieren ( für Explode usw. hat er es ja auch gemacht ), hat er aber nicht. Du kannst ja mal bei Adesk anf ...
|
| In das Form AutoCAD VBA wechseln |
|
Rund um AutoCAD : LISP, FIltern und kopieren v. P-Linien ab bestimmter Länge.
CADmium am 19.12.2012 um 10:46 Uhr (0)
ok .. was zum Lernen ( hoffentlich )(defun PSELECT(LAENGE LAYER / AWS) (vl-load-com) (if(and(setq AWS(ssget "_X" (list(0 . "*POLYLINE")(cons 410(getvar"CTAB"))))) (=(type LAYER)STR) (setq LISTE(vl-remove-if null (mapcar (lambda(X / OBJ L) (if(and(setq OBJ (cadr X)) (setq OBJ(vlax-ename-vla-object OBJ)) (setq L (vlax-curve-getdistatparam OBJ(vlax-curve-getendparam OBJ))) ( L 60.0) ) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : ErrorHandler
CADmium am 09.05.2009 um 09:29 Uhr (0)
Zitat:Original erstellt von rkauskh:Hallo Beim Export in ein DXF beendet sich mein LISP wenn die Zieldatei schon existiert. Für den Fall sollte *error* für einen sauberen Abgang suchen. Sollte vl-catch-all-error-p & Co den Fehler handlen und das Prog fortsetzen können, wäre das noch besser.da macht man dann sowas ... :(setvar "filedia" 0)(if(findfile "meine.dxf") (command "_saveas" "dxf" 16 "meine.dxf" "_y") (command "_saveas" "dxf" 16 "meine.dxf" ))(setvar "filedia" 1)oder probier mal (command "_dxfout" ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : alle Blöcke in Urprung und Bereinigen als Makro oder VBA?
CADmium am 25.06.2009 um 11:21 Uhr (0)
Zitat:Original erstellt von CADesign:Hallo Forum,wie bekomme ich eine Batch Routiene über einzelne oder mehrere mehrere Zeichnungen hin:1. Alle Elemente entsperren2. Alle Blöcke in Ursprung (Schnellauswahl - Blockreferenz)3. Datei Bereinigen (Purge)4. Punt 2. und 3. nochmal ausführenwie ist es sinnvoll dranzugehen, Makro oder VBA?Wir haben AutoCAD 2009 Mechanical drauf, leider ist der Aktionsrekorder deaktiviert???Danke im Voraus!Gruß...MichaelMachs als Lisp ..da gibts IMHO sogar schon was Fertiges .. im ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : CHT lisp Fehlermeldung texteval
CADmium am 16.12.2004 um 10:08 Uhr (0)
setz mal folgende Zeile noch mit rein : ... ;; Kern der Funktion ;; (if *error* ; Neue Fehlerroutine setzen (setq cht_oe *error* *error* cht_er) (setq *error* cht_er) ) ;; Setzen der ZURÜCK Gruppen mittels (eval(read U:G)) oder (eval(read U:E)) (setq U:G "(command "ZURÜCK" "gruppe")" U:E "(command "ZURÜCK" "ende")" ) (setq cht_oc (getvar "cmdecho")) (setq cht_oh (getvar "highlight")) (setq cht_ot (getvar "texteval")) (setvar "cmdecho" ...
|
| In das Form Rund um Autocad wechseln |
