|
Rund um AutoCAD : Schnellauswahl mit einem Klick
xem am 10.08.2009 um 16:51 Uhr (0)
Zitat:Original erstellt von xem:Hallo,habe mir jetzt folgendes zusammengebasteltCode:(defun c:test ( / as) ; lokale Variable(setq as (ssget "_X" ((-4 . "OR") (2 . "SOLID") (0 . "DIMENSION") (-4 . "OR"))))(if as (command "._erase" as ""))(setq as nil) ; as wird freigeben(princ))Wenn ich jetzt noch das LISP:Code:(defun c:testt ( / as) ; lokale Variable(setq as (ssget "_X" ((-4 . "OR") (0 . "Hatch") (-4 . "OR"))))(if as ( ...
|
| In das Form Rund um AutoCAD wechseln |
 |
Rund um AutoCAD : Layout mit dyn. Block einrichten
xem am 14.04.2016 um 14:29 Uhr (15)
Hallo,wir verwenden für unsere Layouts einen dyn. Block als Rahmen, bei dem wir vorgegebene Höhen / Breiten auswählen können.Jetzt bin ich am überlegen, wie man die Größe des Rahmens in das Layout bekommt.Der Block müsste ausgewählt und dann die zwei Werte für die Höhe und Breite ausgelesen werden.Diese Werte lasse ich mir schon in einem Schriftfeld anzeigen und wären die Werte für "Abrufen" und "Abrufen1" (im Block sind zwei Abruf-Tabellen um die Höhe und Breite auszuwählen).Wie kann ich in LISP mir diese ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Schnellauswahl mit einem Klick
xem am 07.08.2009 um 14:12 Uhr (0)
Zitat:Original erstellt von charlieBV:Und Tubas Beitrag hat dir warum nicht gefallen? ich geht mal davon aus du meinst Zitat:Original erstellt von tunnelbauer:Für Solids:Code:_erase;(ssget "X" ((2 . "SOLID")))Für Bemaßungen:Code:_erase;(ssget "X" ((0 . "DIMENSION")))Habe kein Plan wie ich es verwenden soll Zitat:Original erstellt von xem:Danke tunnelbauer,aber wie bekomme ich die Befehle jetzt auf einen Button oder in einen Befehl?Darum habe ich weiter gesucht und eine LISP gefunden was schon in die Ric ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : dynamischer Block zu statischen Block
xem am 19.03.2013 um 09:32 Uhr (0)
Hallo,ich habe mal ein Lisp gefunden um einen dynamischer Block zu einem statischen Block zu machen. Das läuft auch soweit. Jetzt habe ich aber festgestellt, dass alle Linien im Block enthalten bleiben. Dadurch ist der Block unnötig groß und bläst die Zeichnung auf.Leider weiß ich nicht mehr woher ich das Lisp habe und frage da mal hier ob man das ändern könnte?DankeCode:(defun c:UnDynamic ( / _get_item _right _make_key _dynamic-static_block _get_locked _get_dynamic_inserts _main ) ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoCAD VBA : Elemente auf Layer durchlaufen und exploden
xem am 07.06.2013 um 12:00 Uhr (0)
Auf die Schnelle im LISP:Code:(defun c:exb ( / as) ; lokale Variable;alle Blöcke auf Layer Raum auflösen(setq as (ssget "_X" (list(-4 . "OR") (-4 . "AND") (8 . "Raum") (0 . "AEC_MVBLOCK_REF") (-4 . "AND") (-4 . "OR") (cons 410 (getvar "CTAB")))))(if as (command "_explode" as ""))(setq as nil) ; as wird freigeben(princ)(setq as (ssget "_X" (list(-4 . "OR") (-4 . "AND") (8 . "Raum") (0 . "INSERT") ...
|
| In das Form AutoCAD VBA wechseln |
|
Rund um AutoCAD : PDF erzeugen mit nur einem Klick
xem am 29.01.2009 um 17:24 Uhr (0)
Zitat:Original erstellt von tunnelbauer:Also zum Zuschneiden denke ich an eine eigene Software - weiß jetzt allerdings nicht wie sie heisst - steht daheim im Chip. Kann ich aber nachliefern...Naja - eine eigene Software - ich wollte ein PDF mit einem Klick. Geht das dann auch noch?Mit demCode:(defun c:xxx () (command "_-plot" "ja" "" "PDFCreator.pc3" "" "millimeter" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""))geht es ja schon. Nur muß man mal kurz in das Plottfenster, dann schließen, damit die richti ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : intelligente / automatische Nummerierung
xem am 21.03.2014 um 13:36 Uhr (1)
Zitat:Original erstellt von jörg.jwd:Immerhin kann man im AutoCAD selber basteln. Probier das doch mal mit einem "billig"-Programm. Ich bin froh dass es geht. Das DraftSight Professional Pack enthält:DraftSight APIs (Application Programming Interfaces) und API-Updates: Mit APIs können Sie DraftSight benutzerdefiniert anpassen und automatisieren. Vor allem Unternehmen, die ihre aktuellen DWG-basierten CAD-Systeme mithilfe von LISP oder anderen Makros automatisiert, benutzerdefiniert angepasst oder integrier ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : PDF erzeugen mit nur einem Klick
xem am 03.02.2009 um 17:17 Uhr (0)
Also PDFs bekomme ich jetzt raus.Nur....- Die Blattgröße paßt nicht mehr - könnte mit der richtigen pmp Datei funzen.- Die Drehung paßt nicht mehr - müßte man je nach Zeichung einstellen. (zu umständlich)- PDFs werden riesig - kann man sicher auch einstellen- Die Quallität ist nicht die beste - darum nehme ich den PDFCreator- Bei jedem speichern wird ein PDF erzeugt - unnötig und dauert länger (nur etwas aber länger)Für einige sicher was feines - für mich aber nicht. Wenn ich mal wieder Zeit habe werd ich ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : AutoCAD 2016
xem am 02.04.2015 um 17:45 Uhr (15)
Zitat:Original erstellt von tunnelbauer:Nur weil eine neue Version rauskommt, heißt das nicht, dass du diese auch installieren musst (die Lizenzen liegen nach wie vor lokal oder in einem lokalen Netzwerk)Meinst du erst kaufen und dann nicht nutzen? Denn ich muss ja kaufen und aktuell zu bleiben. Updates gibt es nicht mehr.@Bernd PEs geht nicht um z.B. die 750€ sondern um das dafür gelieferte und den Zwang zu kaufen.Ich möchte selber entscheiden was und wann ich kaufe. Ich möchte Updates mit Funktionen die ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Textfarbe durch Auswahl ändern
xem am 12.05.2010 um 13:07 Uhr (0)
Hallo,mit dem LISP kannst du alle MTexte auf Farbe VONLAYER legen. Code:(defun c:ftext (/ aws n string) (princ "
Bitte Mtexte wählen:") (setq aws (ssget (list (cons 0 "MTEXT")))) (if aws (progn (setq n 0) (repeat (sslength aws) (setq string (cdr (assoc 1 (entget (ssname aws n))))) (while (vl-string-search "C" string) (setq string (strcat (substr string 1 (vl-string-search "C" string)) (substr (substr string (+ 4 (vl-string-search "C" string)) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LOGFILEPATH
xem am 06.03.2020 um 08:43 Uhr (1)
Ok noch einmal.Fehler: Logdatei wird im Ordner der DWG erstellt und nicht im angegebenen Ordner auf C:Dieser Fehler tritt aber nur bei der ersten geöffneten DWG nach einem Systemstart auf. Alle weiteren Logdateien werden richtig erstellt.D. h. ich bekomme pro Systemstart eine Logdatei die nicht am gesetzten Ablageort gespeichert ist.Versucht habe ich schon:In der acad.lsp - (setvar "LOGFILEMODE" 0)und mit der DWG - (setvar "LOGFILEMODE" 1)Dann wird keine Logdatei bei der DWG erstellt, aber auch keine auf C ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : MTEXT Farbe VONLAYER
xem am 11.03.2009 um 13:05 Uhr (1)
Zitat:Original erstellt von wronzky:Hi,auf die Schnelle würde ich sagen: tausche "c:ftext" mit "c:tctext", "C" mit "c" und "4" mit "8" und speichere es unter "tctext.lsp".Stellt dann alle truecolor-Farben zurück.Grüsse, HenningDanke - funzt auch soCode:(defun c:fctext ( / aws n string) (princ "
Bitte Mtexte wählen:") (setq aws (ssget (list (cons 0 "MTEXT")))) (if aws (progn (setq n 0) (repeat (sslength aws)(setq string (cdr(assoc 1 (entget (ssname aws n)))))(while (vl-string-search "c" string) (setq ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Blockattribute so einfach wie dtext bearbeiten
xem am 26.06.2009 um 12:05 Uhr (0)
Ich habe noch mal gesucht und ein LISP gefunden, mit dem man Text mit einem Doppelklick ändern kann ohne den Text nach dem Doppelklick auswählen zu müssen.Code:(defun c:func (/ selset loc:get_txt_point) (defun loc:get_txt_point (ent) (if (/= (cdr (assoc 72 (entget ent))) 0) (cdr (assoc 11 (entget ent))) (cdr (assoc 10 (entget ent))) ) ;_ end of if ) ;_ end of defun (if (setq selset (ssget "_:L" ((0 . "TEXT")))) (foreach txt (vl-sort (vl-remove-if listp (mapcar cadr (ssnamex selset))) ...
|
| In das Form Rund um AutoCAD wechseln |
