Häufig gestellte Fragen

Sie glauben nicht, was programmtechnisch alles möglich ist...

Dabei ist es völlig egal in welchem Bereich sie Autocad, Bricscad oder ZWCAD einsetzen!

Haben sie besonders aufwändige Aufgaben oder nur immer wiederkehrende einfache Handgriffe, die aber in der Summe sehr zeitaufwändig sind?

Rufen sie uns an oder mailen sie uns - wir können ihnen sicher helfen!
Von kleinen Tools über ausgewachsene Programme bis hin zum
'Mach fertig Button'.

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

Social Network

Facebook

Xing

About us

Die Geschichte von CADwiesel -
oder wie alles begann...

...mehr

 

CAD4FM

• Beratung
• Programmierung
• Umsetzung