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'.

Papiergrößen

Beschreibung:

Alle Papiergrößen des Plotgerätes ermitteln

Code:

(defun C:GetLocalMediaNamesOfConfigname( / ad cn oldcn al cmn) (setq *olderr* *error* *error* my-error) (vl-load-com) (setq ad (vla-get-activedocument (vlax-get-acad-object))) (setq al (vla-get-ActiveLayout ad)) (setq cn (vla-get-configname al)) (setq oldcn (vla-get-configname al)) (vla-put-configname al cn) (vla-RefreshPlotDeviceInfo al) (setq cmn (GetLocaleMediaNames ad)) (if (/= oldcn "None") (vla-put-configname al oldcn)) cmn ) ;;;Unterfunktionen: (defun GetCanonicalMediaNames ( ad /) (vla-RefreshPlotDeviceInfo (vla-get-activelayout ad)) (vlax-safearray->list (vlax-variant-value (vla-GetCanonicalMediaNames (vla-item (vla-get-layouts ad) "Model")))) ) (defun GetLocaleMediaNames (ad / mn mnl) (setq la (vla-item (vla-get-layouts ad) "Model")) (foreach mn (GetCanonicalMediaNames ad) (setq mnl (cons (vla-GetLocaleMediaName la mn) mnl)) ) (reverse mnl) )

Standarddrucker

Beschreibung:

Den aktuellen Systemdrucker ermitteln

Code:

(defun C:GetActivePlotDevice ( / ad active) (vl-load-com) (setq ad (vla-get-activedocument (vlax-get-acad-object))) (setq active (vla-get-ConfigName (vla-get-ActiveLayout ad))) )

Alle Drucker

Beschreibung:

Alle definierten Drucker ermitteln

Code:

(defun C:GetPlotDevices ( / ad prnlist) (vl-load-com) (setq ad (vla-get-activedocument (vlax-get-acad-object))) (vla-RefreshPlotDeviceInfo (vla-get-activelayout ad)) (setq prnlist (vlax-safearray->list (vlax-variant-value (vla-getplotdevicenames (vla-item (vla-get-layouts ad) "Model"))))) )

Papiergröße

Beschreibung:

Papiergröße des Plotters ermitteln:

Code:

(defun GetCanonicalMediaNames ( ad /) (vla-RefreshPlotDeviceInfo (vla-get-activelayout ad)) (vlax-safearray->list (vlax-variant-value (vla-GetCanonicalMediaNames (vla-item (vla-get-layouts ad) "Model")))) ) Hauptfunktion (defun C:GetLocaleMediaNames ( / ad mn mnl) (setq *olderr* *error* *error* my-error) (vl-load-com) (setq ad (vla-get-activedocument (vlax-get-acad-object))) (setq la (vla-item (vla-get-layouts ad) "Model")) (foreach mn (GetCanonicalMediaNames ad) (setq mnl (cons (vla-GetLocaleMediaName la mn) mnl)) ) (reverse mnl) )

Social Network

Facebook

Xing

About us

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

...mehr

 

CAD4FM

• Beratung
• Programmierung
• Umsetzung