CADwiesel - Das Original

F A Q

Häufig gestellte Fragen

Downloads

PLines Filter

Beschreibung:

Filterliste um alle geschlossenen Polylinien in der Zeichnung zu ermitteln. Der Auswahlsatz kann dann z.B. dem Befehl schieben übergeben werden: _move !pl-zu ...

Code:

;;Bilden eines Auswahlsatzes von allen geschlossenen LWPolylinien und 2D Polylinien

  (setq pl-zu (ssget '((-4 . "<OR")
                       (-4 . "<AND")
                       (0 . "LWPOLYLINE")
                       (-4 . "<OR")
                       (70 . 129)
                       (70 . 128)
                       (70 . 1)
                       (-4 . "OR>")
                       (-4 . "AND>")
                       (-4 . "<AND")
                       (0 . "POLYLINE")
                       (-4 . "<OR")
                       (70 . 129)
                       (70 . 1)
                       (-4 . "OR>")
                       (-4 . "AND>")
                       (-4 . "OR>")
                       )
                     ) ;_ end of ssget
        )  ;ende setq

Layerliste

Beschreibung:

Erstellen einer Liste aller in der Zeichnung definierten Layer

Code:

;;;**************Layerliste erstellen***************

(defun md_liste (  / md_layer_0 md_layerliste md_layer_next)
(setq md_layer_0 (tblnext "layer" "0"))
(setq md_layer_0 (cdr (assoc 2 md_layer_0)))
(setq md_layerliste nil)
(setq md_layerliste (list md_layer_0))
(setq md_layer_next (tblnext "layer"))
(setq md_layer_next (cdr (assoc 2 md_layer_next)))
 (while (/= md_layer_next nil)
    (progn
      (setq md_layer_next (list md_layer_next))
      (setq md_layerliste (append md_layerliste md_layer_next))
      (setq md_layer_next (tblnext "layer"))
      (setq md_layer_next (cdr (assoc 2 md_layer_next)))
    );ende progn
 );ende while
(setq md_layerliste (acad_strlsort md_layerliste))
);ende defun md_liste

Block Filter

Beschreibung:

auflisten aller in der Zeichnung definierten Blöcke

Code:

;;;*********liste aller insert's erstellen***************

(defun C:md_liste (  / md_insert_0 md_insertliste md_insert_next)
(setq md_insert_0 (tblnext "BLOCK"))
(setq md_insert_0 (cdr (assoc 2 md_insert_0)))
(setq md_insertliste nil)
(setq md_insertliste (list md_insert_0))
(setq md_insert_next (tblnext "BLOCK"))
(setq md_insert_next (cdr (assoc 2 md_insert_next)))
 (while (/= md_insert_next nil)
    (progn
      (setq md_insert_next (list md_insert_next))
      (setq md_insertliste (append md_insertliste md_insert_next))
      (setq md_insert_next (tblnext "BLOCK"))
      (setq md_insert_next (cdr (assoc 2 md_insert_next)))
    );ende progn
 );ende while
(setq md_insertliste (acad_strlsort md_insertliste))
);ende defun md_liste

F A Q

Downloads

PLines Filter

Layerliste

Block Filter

Suche