Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  bin anfänger brauche hilfe

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  bin anfänger brauche hilfe (656 mal gelesen)
ratzfatzmatz
Mitglied
WERKZEUGMACHER


Sehen Sie sich das Profil von ratzfatzmatz an!   Senden Sie eine Private Message an ratzfatzmatz  Schreiben Sie einen Gästebucheintrag für ratzfatzmatz

Beiträge: 10
Registriert: 05.11.2003

erstellt am: 05. Nov. 2003 09:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo wer kann mir helfen das ich auch cl als befehl habe so wie in der schule habe cl.lsp eingeladen unter extras anwendungen und habe auch die zeichnug dafür gespeichert unter position für zeichnungsvorlage datein aber es funtz nicht
habe wie lehrer mir gesagt hat auch in die Acad.mnl (Load "cL")
eingefügt aber es funtzt nicht wer kann mir helfen ???

------------------
THX FOR HELP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 05. Nov. 2003 09:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

Hallo erstmal,

Wir kennen das Lisp nicht - schonmal nicht so toll, aber
anscheinend benötigt es nocht eine dws/dwg/dxf ?

als nächstes hast du leider nicht beschrieben was nicht geht !

Also mit "appload" (extras/Anwendungen) die  cl.lsp laden,
kommt hier eine Fehlermeldung ?

Dann den Befehl Ausführen (wie in der Schule)...
Kommt hier eine Fehlermeldung ?

Es muß irgendwo eine Fehlermeldung kommen...
wenn ja , welche ?

(wenn keine kommt liegt der "Fehler" woanders...)

------------------
- Sebastian Mattis - CAD.de-User Treffen JEDEN Tag !

[Diese Nachricht wurde von cadffm am 05. November 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

marvin101010
Mitglied
ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)


Sehen Sie sich das Profil von marvin101010 an!   Senden Sie eine Private Message an marvin101010  Schreiben Sie einen Gästebucheintrag für marvin101010

Beiträge: 562
Registriert: 22.01.2003

Pentium 4
Windows XP
Autocad 2006
Autocad 2006LT + Extender
ADT 2007
ArchiCAD

erstellt am: 05. Nov. 2003 10:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

hast du sie unter extras -> anwendungen nur geladen
oder auch in die "startgruppe" gelegt???

------------------
  ...so long and thanx for the fish!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ratzfatzmatz
Mitglied
WERKZEUGMACHER


Sehen Sie sich das Profil von ratzfatzmatz an!   Senden Sie eine Private Message an ratzfatzmatz  Schreiben Sie einen Gästebucheintrag für ratzfatzmatz

Beiträge: 10
Registriert: 05.11.2003

erstellt am: 05. Nov. 2003 10:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

hmm wo muß ich das tuhen  bzw wo muß ich sie  hin kopieren ?
ich weiß ihr lacht bestimmt aber ich hab null ahnung von acad

------------------
THX FOR HELP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ratzfatzmatz
Mitglied
WERKZEUGMACHER


Sehen Sie sich das Profil von ratzfatzmatz an!   Senden Sie eine Private Message an ratzfatzmatz  Schreiben Sie einen Gästebucheintrag für ratzfatzmatz

Beiträge: 10
Registriert: 05.11.2003

erstellt am: 05. Nov. 2003 10:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

ahh habe die start gruppe gefunden da ist sie drin sagt er

------------------
THX FOR HELP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADwiesel
Moderator
CAD4FM UG




Sehen Sie sich das Profil von CADwiesel an!   Senden Sie eine Private Message an CADwiesel  Schreiben Sie einen Gästebucheintrag für CADwiesel

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 05. Nov. 2003 10:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

wahrscheinlich wird die Acad.mnl nicht geladen, denn sie wird nur geladen, den sie das auch soll :-)

acad.lsp mit jeder Zeichnung laden (Optionen/System)
Besser du schreibst deine Load anweisung in dei acad2000doc.lsp

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

marvin101010
Mitglied
ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)


Sehen Sie sich das Profil von marvin101010 an!   Senden Sie eine Private Message an marvin101010  Schreiben Sie einen Gästebucheintrag für marvin101010

Beiträge: 562
Registriert: 22.01.2003

Pentium 4
Windows XP
Autocad 2006
Autocad 2006LT + Extender
ADT 2007
ArchiCAD

erstellt am: 05. Nov. 2003 10:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

nicht so schlimm, wenn man keine ahnung hat...viel mehr als keine
habe ich auch nicht.
der unterschied...ich nutze die hilfe 

zitat hilfe:

Startgruppe
Enthält eine Liste mit Anwendungen, die bei jedem Start von AutoCAD geladen werden. Sie können Anwendungsdateien aus der Dateiliste oder aus einer anderen Anwendung in die Startgruppe ziehen (beispielsweise aus dem Windows-Explorer). Klicken Sie auf das Startgruppen-Symbol oder auf Inhalt, um das Dialogfeld Startgruppe zu öffnen. Sie können der Startgruppe auch Dateien hinzufügen, indem Sie mit der rechten Maustaste auf eine Anwendung in der Registerkarte Protokoll klicken und im Kontextmenü die Option Zur Startgruppe hinzufügen wählen.

Anwendungen, die mit dem Web-Browser aus AutoCAD geladen werden, können nicht zur Startgruppe hinzugefügt werden.

------------------
  ...so long and thanx for the fish!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ratzfatzmatz
Mitglied
WERKZEUGMACHER


Sehen Sie sich das Profil von ratzfatzmatz an!   Senden Sie eine Private Message an ratzfatzmatz  Schreiben Sie einen Gästebucheintrag für ratzfatzmatz

Beiträge: 10
Registriert: 05.11.2003

erstellt am: 05. Nov. 2003 10:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

_appload CL.LSP erfolgreich geladen. sagt er
und dann
Fehler: Fehlerhafter Lesevorgang für Zeichen (Oktal): 0
hmm was auch immer das heißen mag

------------------
THX FOR HELP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


Sehen Sie sich das Profil von cadwomen an!   Senden Sie eine Private Message an cadwomen  Schreiben Sie einen Gästebucheintrag für cadwomen

Beiträge: 2966
Registriert: 26.08.2002

ACAD R11 - 2022
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
3x Dell TV100 88P Monitore

erstellt am: 05. Nov. 2003 10:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

was macht cl.lsp ??

cw

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ratzfatzmatz
Mitglied
WERKZEUGMACHER


Sehen Sie sich das Profil von ratzfatzmatz an!   Senden Sie eine Private Message an ratzfatzmatz  Schreiben Sie einen Gästebucheintrag für ratzfatzmatz

Beiträge: 10
Registriert: 05.11.2003

erstellt am: 05. Nov. 2003 10:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

cl ist für centerlines mit überstand

------------------
THX FOR HELP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

StephanJP
Mitglied
CAD-Admin


Sehen Sie sich das Profil von StephanJP an!   Senden Sie eine Private Message an StephanJP  Schreiben Sie einen Gästebucheintrag für StephanJP

Beiträge: 829
Registriert: 09.11.2000

AutoCAD ,MAP 3D, Civil 3D, P&ID, VehicleTracking alles bis 2022, BBSoft, Win 10 Enterprise, Canon PlotClient
Canon TX2000, TX3000

erstellt am: 05. Nov. 2003 10:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich


cl => C(enter)L(ine) also zeichnet eine Mittellinie in Kreisen

war (oder ist?) mal bei A12,13,14 dabei?

------------------

gruß
Stephan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

marvin101010
Mitglied
ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)


Sehen Sie sich das Profil von marvin101010 an!   Senden Sie eine Private Message an marvin101010  Schreiben Sie einen Gästebucheintrag für marvin101010

Beiträge: 562
Registriert: 22.01.2003

Pentium 4
Windows XP
Autocad 2006
Autocad 2006LT + Extender
ADT 2007
ArchiCAD

erstellt am: 05. Nov. 2003 10:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

hallo ratzfatzmatz...
poste das ding doch einfach mal

------------------
  ...so long and thanx for the fish!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ratzfatzmatz
Mitglied
WERKZEUGMACHER


Sehen Sie sich das Profil von ratzfatzmatz an!   Senden Sie eine Private Message an ratzfatzmatz  Schreiben Sie einen Gästebucheintrag für ratzfatzmatz

Beiträge: 10
Registriert: 05.11.2003

erstellt am: 05. Nov. 2003 11:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

******************************************************************
;                          CL.LSP

;    By Simon Jones    Autodesk Ltd , London      March 1987

;  Dieses Macro erzeugt zwei sich kreuzende Linien im Mittelpunkt
;  eines Kreises. Die Linien befinden sich auf dem Layer "CL".
;  (geändert auf LinienTyp Strichpunkt im Layer HILF)
;  Pietr. 10.05.90, Anpassung an WINNT 2.5.96 / 25.8.00
; ******************************************************************

(defun clerr (s)
  (if (/= s "Function Cancelled")    ; Wenn ein Fehler (z.B.CTRL-C)
      (princ (strcat "\nFehler: " s)) ; auftritt waehrend der Befehl
                                      ; aktiv ist...
  )
;  (command "BKS" "V")              ; altes BKS holen
  (setvar "BLIPMODE" sblip)        ; alte Modi holen
  (setvar "GRIDMODE" sgrid)
  (setvar "HIGHLIGHT" shl)
  (setvar "UCSFOLLOW" sucsf)
  (command "LAYER" "S" clay "")
  (command "zurück" "e")
  (setvar "CMDECHO" scmde)
  (setq *error* olderr)            ; alte Fehlerroutine holen
  (princ)
)

(defun C:CL (/ olderr clay sblip scmde sgrid shl sucsf e cen rad d ts xx)
  (setq olderr  *error*
        *error* clerr)
  (setq scmde (getvar "CMDECHO"))
  (command "zurück" "gruppe")
  (setq clay  (getvar "CLAYER"))
  (setq sblip (getvar "BLIPMODE"))
  (setq sgrid (getvar "GRIDMODE"))
  (setq shl  (getvar "HIGHLIGHT"))
  (setq sucsf (getvar "UCSFOLLOW"))
  (setvar "CMDECHO" 0)
  (setvar "GRIDMODE" 0)
  (setvar "UCSFOLLOW" 0)
  (setq e nil xx "Ja")
  (setq ts (tblsearch "LAYER" "HILF"))
  (if (null ts)
      (prompt "\nErstelle neuen Layer - HILF. ")
      (progn
        (if (= (logand 1 (cdr (assoc 70 ts))) 1)
            (progn
            (prompt "\nLayer HILF ist gefroren. ")
            (initget  "Ja Nein")
            (setq xx (getkword "\nWeiterfahren? <N>: "))
            (if (= xx "Ja")
                (command "LAYER" "Tau" "HILF" "")
            )
            )
        )
      )
  )

  (if (= xx "Ja")
      (progn
      (while (null e)
          (setq e (entsel "\nBogen oder Kreis waehlen: "))
          (if e
              (progn
              (setq e (car e))
              (if (and
                    (/= (cdr (assoc 0 (entget e))) "ARC")
                    (/= (cdr (assoc 0 (entget e))) "CIRCLE")
                  )
                  (progn (prompt "\nElement ist ein")
                          (princ (cdr (assoc 0 (entget e))))
                          (setq e nil)
                  )
              )
              )
          )
      )
      (setq uc (getvar "UCSNAME"))
      (command "BKS" "_e" e)
      (setq cen (trans (cdr (assoc 10 (entget e))) e 1))
      (print cen)
      (setq rad (cdr (assoc 40 (entget e))))
      (prompt "\nRadius ist ")
      (princ (rtos rad))
      (initget 7 "Laenge")
      (setq d (getdist "\nLaenge/<Ueberstand>: "))
      (if (= d "Laenge")
        (progn
        (initget 7)
        (setq d (getdist c                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "4" "" "")

      (command "LAYER" "SE" clay "")
      )
  )
  (command "BKS" uc)              ; altes BKS holen
  (setvar "BLIPMODE" sblip)        ; alte Modi holen
  (setvar "GRIDMODE" sgrid)
  (setvar "HIGHLIGHT" shl)
  (setvar "UCSFOLLOW" sucsf)
  (command "zurück" "e")
  (setvar "CMDECHO" scmde)
  (setq *error* olderr)            ; alte Fehlerroutine holen
  (princ)
)

****das ist das ding***

------------------
THX FOR HELP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ratzfatzmatz
Mitglied
WERKZEUGMACHER


Sehen Sie sich das Profil von ratzfatzmatz an!   Senden Sie eine Private Message an ratzfatzmatz  Schreiben Sie einen Gästebucheintrag für ratzfatzmatz

Beiträge: 10
Registriert: 05.11.2003

erstellt am: 05. Nov. 2003 11:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

und hier noch mla die  acad.mnl


;;;    ACAD.MNL
;;;    Copyright (C) 1992 - 1997 by Autodesk, Inc.
;;;
;;;    Permission to use, copy, modify, and distribute this software
;;;    for any purpose and without fee is hereby granted, provided
;;;    that the above copyright notice appears in all copies and
;;;    that both that copyright notice and the limited warranty and
;;;    restricted rights notice below appear in all supporting
;;;    documentation.
;;;
;;;    AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS. 
;;;    AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;;    MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
;;;    DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;;    UNINTERRUPTED OR ERROR FREE.
;;;
;;;    Use, duplication, or disclosure by the U.S. Government is subject to
;;;    restrictions set forth in FAR 52.227-19 (Commercial Computer
;;;    Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;;    (Rights in Technical Data and Computer Software), as applicable.
;;;
;;;    AutoLISP routines used by the AutoCAD Standard Menu.
;;;
;;;    This file is loaded automatically following the menu ACAD. 

(princ "\nAutoCAD Menü-Dienstprogramme ")


;;;=== Icon Menu Functions ===

;;;  View -> Layout -> Tiled Viewports...

(defun ai_tiledvp_chk (new)
  (setq m:err *error* *error* *merrmsg*)

  (if (= (getvar "TILEMODE") 0)
    (progn
      (princ "\n** Befehl im Layout nicht zulässig **")
      (princ)
    )
    (progn
      (if new
        (menucmd "I=ACAD.IMAGE_VPORTI")
        (menucmd "I=IMAGE_VPORTI")
      )
      (menucmd "I=*")
    )
  )
  (setq *error* m:err m:err nil)
  (princ)
)

(defun ai_tiledvp (num ori / ai_tiles_g ai_tiles_cmde)
  (setq m:err *error* *error* *merrmsg*
        ai_tiles_cmde (getvar "CMDECHO")
        ai_tiles_g (getvar "GRIDMODE")
  )
  (ai_undo_push)
  (setvar "CMDECHO" 0)
  (setvar "GRIDMODE" 0)
  (cond ((= num 1)
        (command "_.VPORTS" "_SI")
        (setvar "GRIDMODE" ai_tiles_g)
        )
        ((< num 4)
        (command "_.VPORTS" "_SI")
        (command "_.VPORTS" num ori)
        (setvar "GRIDMODE" ai_tiles_g)
        )
        ((= ori nil)
        (command "_.VPORTS" "_SI")
        (command "_.VPORTS" num)
        (setvar "GRIDMODE" ai_tiles_g)
        )
        ((= ori "_L")
        (command "_.VPORTS" "_SI")
        (command "_.VPORTS" "2" "")
        (setvar "CVPORT" (car (cadr (vports))))
        (command "_.VPORTS" "2" "")
        (command "_.VPORTS" "_J" "" (car (cadr (vports))))
        (setvar "CVPORT" (car (cadr (vports))))
        (command "_.VPORTS" "3" "_H")
        (setvar "GRIDMODE" ai_tiles_g)
        (setvar "CVPORT" (car (cadddr (vports))))
        (setvar "GRIDMODE" ai_tiles_g)
        (setvar "CVPORT" (car (cadddr (vports))))
        (setvar "GRIDMODE" ai_tiles_g)
        (setvar "CVPORT" (car (cadddr (vports))))
        (setvar "GRIDMODE" ai_tiles_g)
        )
        (T
        (command "_.VPORTS" "_SI")
        (command "_.VPORTS" "2" "")
        (command "_.VPORTS" "2" "")
        (setvar "CVPORT" (car (caddr (vports))))
        (command "_.VPORTS" "_J" "" (car (caddr (vports))))
        (setvar "CVPORT" (car (cadr (vports))))
        (command "_.VPORTS" "3" "_H")
        (setvar "GRIDMODE" ai_tiles_g)
        (setvar "CVPORT" (car (cadddr (vports))))
        (setvar "GRIDMODE" ai_tiles_g)
        (setvar "CVPORT" (car (cadddr (vports))))
        (setvar "GRIDMODE" ai_tiles_g)
        (setvar "CVPORT" (car (cadddr (vports))))
        (setvar "GRIDMODE" ai_tiles_g)
        )
  )
  (ai_undo_pop)
  (setq *error* m:err m:err nil)
  (setvar "CMDECHO" ai_tiles_cmde)
  (princ)
)


;;;=== General Utility Functions ===

;;; ai_popmenucfg -- retrieve parameter from cfg settings
;;; <param> is a string specifiying the parameter

(defun ai_popmenucfg (param)
  (set (read param) (getcfg (strcat "CfgData/Menu/" param)))
)

;;; ai_putmenucfg -- store parameter in cfg settings
;;; <param> is a string specifiying the parameter
;;; <cfgval> is the value for that parameter

(defun ai_putmenucfg (param cfgval)
  (setcfg (strcat "CfgData/Menu/" param) cfgval)
)

(defun *merr* (msg)
  (ai_sysvar nil) ;; reset system variables
  (setq *error* m:err m:err nil)
  (princ)
)

(defun *merrmsg* (msg)
  (princ msg)
  (setq *error* m:err m:err nil)
  (princ)
)


(defun ai_showedge_alert ()
  (alert "Unsichtbare Kanten werden nach Regenerierung angezeigt.")
  (princ)
)

(defun ai_hideedge_alert ()
  (alert "Unsichtbare Kanten werden nach Regenerierung VERDECKT sein.")
  (princ)
)

(defun ai_viewports_alert ()
  (princ "** Befehl ist auf der Registerkarte Modell nicht zulässig **")
  (setq *error* m:err m:err nil)
  (princ)
)

(defun ai_refedit_alert ()
  (princ "\n** Befehl nur zulässig, wenn eine Referenz mit dem Befehl REFBEARB entnommen wird. **")
  (setq *error* m:err m:err nil)
  (princ)
)

(defun ai_support_assistance_alert ()
  (alert "Support Assistance konnte nicht gestartet werden.")
  (princ)
)

(defun la_support_assistance_alert ()
  (alert "Learning Assistance konnte nicht gestartet werden.")
  (princ)
)

;;; --- ai_sysvar ------------------------------------------
;;; Change system variable settings and save current settings
;;; (Note: used by *merr* to restore system settings on error.)
;;;
;;; The <vars> argument is used to...
;;;  restore previous settings (ai_sysvar NIL)
;;;  set a single sys'var (ai_sysvar  '("cmdecho" . 0))
;;;  set multiple sys'vars (ai_sysvar '(("cmdecho" . 0)("gridmode" . 0)))
;;;
;;; defun-q is needed by Visual Lisp for functions which redefine themselves.
;;; it is aliased to defun for seamless use with AutoLISP.

(defun-q ai_sysvar (vars / savevar pair varname varvalue varlist)

  (setq varlist nil)  ;; place holder for varlist

  (defun savevar (varname varvalue / pair)
      (cond
            ;; if new value is NIL, save current setting
        ((not varvalue)
            (setq varlist
              (cons
                  (cons varname (getvar varname))
                    varlist
              )
            )
            )
                ;; change sys'var only if it's different
        ((/= (getvar varname) varvalue)
                ;; add current setting to varlist, change setting
            (setq varlist
                (cons
                  (cons varname (getvar varname))
                    varlist
                )
            )
            (setvar varname varvalue)
            )
                (T nil)
          )
  )

  (cond
          ;; reset all values
      ((not vars)
        (foreach pair varlist
            (setq  varname (car pair) 
                  varvalue (cdr pair)
            )
            (setvar varname varvalue)
                )
        (setq varlist nil)
          )

          ((not (eq 'LIST (type vars)))
              (princ "\nAI_SYSVAR: Falscher Argumenttyp.\n")
          )

          ;; set a single system variable
      ((eq 'STR (type (car vars)))
        (savevar (car vars) (cdr vars))

          )

          ;; set multiple system variables
      ((and
                (eq 'LIST (type (car  vars)))
            (eq 'STR  (type (caar vars)))
          )
        (foreach pair vars
            (setq  varname (car pair) 
                  varvalue (cdr pair)
            )
            (if (not (eq 'STR (type varname)))
                (princ "\nAI_SYSVAR: Falscher Argumenttyp.\n")
                (savevar varname varvalue)
            )
                )
          )
     
      (T (princ "\nAI_SYSVAR: Fehler im ersten Argument.\n"))
 
  );cond
 
  ;; redefine ai_sysvar function to contain the value of varlist
  (setq ai_sysvar
      (cons (car ai_sysvar)
              (cons (list 'setq 'varlist (list 'quote varlist))
                        (cddr ai_sysvar)
                  )
          )
  )

  varlist  ;; return the list

);sysvar


;;; return point must be on an entity
;;;
(defun ai_entsnap (msg osmode / entpt)
  (while (not entpt)
          (setq entpt (last (entsel msg)))
  )
  (if osmode
      (setq entpt (osnap entpt osmode))
  )
  entpt
)

;;;
;;; These UNDO handlers are taken from ai_utils.lsp and copied here to
;;; avoid loading all of ai_utils.lsp. Command echo control has also
;;; been added so that UNDO commands aren't echoed everywhere.
;;;
;;; UNDO handlers.  When UNDO ALL is enabled, Auto must be turned off and
;;; GROUP and END added as needed.
;;;
(defun ai_undo_push()
  (ai_sysvar '("cmdecho" . 0))
  (setq undo_init (getvar "undoctl"))
  (cond
    ((and (= 1 (logand undo_init 1))  ; enabled
          (/= 2 (logand undo_init 2))  ; not ONE (ie ALL is ON)
          (/= 8 (logand undo_init 8))  ; no GROUP active
    )
      (command "_.undo" "_group")
    )
    (T)
  ) 
  ;; If Auto is ON, turn it off.
  (if (= 4 (logand 4 undo_init))
      (command "_.undo" "_auto" "_off")
  )
  (ai_sysvar NIL)
)

;;;
;;; Add an END to UNDO and return to initial state.
;;;
(defun ai_undo_pop()
  (ai_sysvar '("cmdecho" . 0))
  (cond
    ((and (= 1 (logand undo_init 1))  ; enabled
          (/= 2 (logand undo_init 2))  ; not ONE (ie ALL is ON)
          (/= 8 (logand undo_init 8))  ; no GROUP active
    )
      (command "_.undo" "_end")
    )
    (T)
  ) 
  ;; If it has been forced off, turn it back on.
  (if (= 4 (logand undo_init 4))
    (command "_.undo" "_auto" "_on")
  ) 
  (ai_sysvar NIL)
)

;;;=== Menu Functions ======================================

(defun ai_rootmenus ()
  (setq T_MENU 0)
  (menucmd "S=S")
  (menucmd "S=ACAD.S")
  (princ)
)

(defun c:ai_fms ( / fmsa fmsb)
  (setq m:err *error* *error* *merr*)
  (ai_undo_push)
  (if (getvar "TILEMODE") (setvar "TILEMODE" 0))
  (setq fmsa (vports) fmsb (nth 0 fmsa))
  (if (member 1 fmsb)
    (if (> (length fmsa) 1)
      (command "_.mspace")
      (progn
        (ai_sysvar '("cmdecho" . 1))
        (command "_.mview")
        (while (eq 1 (logand 1 (getvar "CMDACTIVE")))
          (command pause)
        )
        (ai_sysvar NIL)
        (command "_.mspace")
      )
    )
  )
  (ai_undo_pop)
  (setq *error* m:err m:err nil)
  (princ)
)

(defun ai_onoff (var)
  (setvar var (abs (1- (getvar var))))
  (princ)
)

;;; go to paper space
(defun c:ai_pspace ()
  (ai_undo_push)
  (if (/= 0 (getvar "tilemode"))
    (command "_.tilemode" 0)
  )
  (if (/= 1 (getvar "cvport"))
    (command "_.pspace")
  )
  (ai_undo_pop)
  (princ)
)

;;; go to tilemode 1
(defun c:ai_tilemode1 ()
  (ai_undo_push)
  (if (/= 1 (getvar "tilemode"))
    (command "_.tilemode" 1)
  )
  (ai_undo_pop)
  (princ)
)

;;; Pop menu Draw/ Dim/ Align Text/ Centered
;;; Toolbar Dimensions/ Align Text/ Centered

(defun ai_dim_cen (/ ai_sysvar ai_dim_ss)
  (setq ai_sysvar (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (cond
    ((setq ai_dim_ss (ssget  "_P" '((0 . "DIMENSION"))))
      (command "_.dimoverride" "_dimjust" 0 "" ai_dim_ss ""
              "_.dimtedit" ai_dim_ss "_h")
    )
    (T nil)
  )
  (setvar "cmdecho" ai_sysvar)
  (princ)
)

;;; Shortcut menu for Dimension Text Above

(defun c:ai_dim_textabove (/ ss)
  (ai_sysvar '("cmdecho" . 0))
  (if (setq ss (ssget "_I"))
    (command "_.dimoverride" "_dimtad" 3 "" ss "")
    (if (setq ss (ssget))
      (command "_.dimoverride" "_dimtad" 3 "" ss "")
    )
  )
  (ai_sysvar NIL)
  (princ)
)

;;; Shortcut menu for Dimension Text Center

(defun c:ai_dim_textcenter (/ ss)
  (ai_sysvar '("cmdecho" . 0))
  (if (setq ss (ssget "_I"))
    (command "_.dimoverride" "_dimtad" 0 "" ss "")
    (if (setq ss (ssget))
      (command "_.dimoverride" "_dimtad" 0 "" ss "")
    )
  )
  (ai_sysvar NIL)
  (princ)
)

;;; Shortcut menu for Dimension Text Home

(defun c:ai_dim_texthome (/ ss)
  (ai_sysvar '("cmdecho" . 0))
  (if (setq ss (ssget "_I"))
    (command "_.dimedit" "_h")
    (if (setq ss (ssget))
      (command "_.dimedit" "_h" ss)
    )
  )
  (ai_sysvar NIL)
  (princ)
)


;;; Screen menu item for CIRCLE TaTaTan option.
;;;    first, get points on entities
(defun ai_circtanstart()
  (setq m:err *error* *error* *merr*)
  (ai_sysvar
      (list '("cmdecho" . 0)
        ;; make sure _tan pick for CIRCLE gets same entity
        (cons "aperture"  (getvar "pickbox"))
          )
  )
  ;; prompts are the same as CIRCLE/TTR command option
  (setq pt1 (ai_entsnap "\nEingabe der Tangentenspezifikation: "  nil))
  (setq pt2 (ai_entsnap "\nEingabe der zweiten Tangentenspezifikation: " nil))
  (setq pt3 (ai_entsnap "\nEingabe der dritten Tangentenspezifikation: "  nil))
)
;;; Command-line version
(defun c:ai_circtan (/ pt1 pt2 pt3)
  (ai_circtanstart)

  (ai_sysvar '("osmode" . 256))
  (command "_.circle" "_3p" "_tan" pt1 "_tan" pt2 "_tan" pt3)
 
  (ai_sysvar nil)
  (setq *error* m:err m:err nil)
  (princ)
)
;;; Use this if CMDNAMES == CIRCLE
(defun ai_circtan (/ pt1 pt2 pt3)
  (ai_circtanstart)

  (ai_sysvar '("osmode" . 256))
  (command "_3p" pt1  pt2  pt3)
 
  (ai_sysvar nil)
  (setq *error* m:err m:err nil)
  (princ)
)

;;;=== Make Object's Layer Current =============================

;; Makes the layer of the selected object current.  If there is one
;; object in the pickfirst set, it's layer is made current without
;; prompting for an object.  Else a prompt is issued.
(defun c:ai_molc(/ old_error end_undo old_cmdecho set1 ent undo_control)
 
  ;; Simple error handling.
  (defun molc_error (s)
    ;; Reset error handling.
(if old_error (setq *error* old_error))
;; End undo if we started one.
(if (eq end_undo 1) (command "_.undo" "_end"))
;; Reset command echo
(if old_cmdecho (setvar "cmdecho" old_cmdecho))
;; Silent exit.
(princ)
  )
 
  ;; Save current error function.
  (setq old_error *error*)
 
  ;; Set error handling to molc's error function.
  (setq *error* molc_error)
 
  ;; Save cmdecho setting.
  (setq old_cmdecho (getvar "cmdecho"))
 
  ;; Turn off cmdecho
  (setvar "cmdecho" 0)
 
  ;; If Pickfirst is on and the selction set contains
  ;; one object, then use it, else prompt for one.
  (if (and (eq 1 (logand 1 (getvar "pickfirst")))
            (setq set1 (ssget  "_i"))
        (eq 1 (sslength set1))
  )
    (progn
  (setq ent (entget (ssname set1 0))) 
      (sssetfirst nil nil)
)
(progn
  (sssetfirst nil nil)
  (setq ent (entget (car (entsel "\nObjekt wählen, dessen Layer der aktuelle Layer wird: "))))
)
  )
 
  ;; Get undo setting.
  (setq undo_control (getvar "undoctl"))
 
  ;; Initialize flag to to end undo.
  (setq end_undo 0)
 
  ;; Begin Undo group if need be.
  (if (and (= 1 (logand 1 undo_control))  ; undo on
          (/= 2 (logand 2 undo_control))  ; not single undo
        (/= 8 (logand 8 undo_control))  ; no active group
  )
  (progn
    ;; Begin a new one
(command "_.undo" "_begin")
  ;; Set flag so that we know to end undo.
    (setq end_undo 1)
      )
  )

  ;; Make object's layer current.
  (setvar "clayer" (cdr (assoc '8 ent)))
 
  ;; Print message
  (princ (strcat "\n" (getvar "clayer") " ist jetzt der aktuelle Layer."))
   
  ;; Undo end
  (if (eq 1 end_undo)
    (command "_.undo" "_end")
  )
 
  ;; Turn on cmdecho
  (setvar "cmdecho" old_cmdecho)
 
  ;; Reset error function.
  (setq *error* old_error)
 
  ;; Silent exit.
  (princ)
)

;;; Shortcut menu Deselect All item.

(defun ai_deselect ()
  (if (= (getvar "cmdecho") 0) ;start if
      (command "_.select" "_r" "_all" "")
      (progn ;start progn for cmdecho 1
          (setvar "cmdecho" 0)
          (command "_.select" "_r" "_all" "")
          (setvar "cmdecho" 1)
      ) ;end progn for cmdecho 1
  ) ;end if
  (terpri)
  (prompt "Es wurde bereits alles deaktiviert.")
  (princ)
)

;;;
;;; Enable Draworder to be called from a menu
;;; Checks for Pickfirst selected objects
;;;

(defun ai_draworder (option / ss )

  (setq m:err *error* *error* *merr*)
  (ai_sysvar '("cmdecho" . 0))

  (if (setq ss (ssget "_I"))
    (command "_.draworder" option)
    (if (setq ss (ssget))
      (command "_.draworder" ss "" option)
    )
  )
  (ai_sysvar NIL)
  (setq *error* m:err m:err nil)

  (princ)
)

(load "cl")

(defun c:vlisp ()
  (if (/= nil c:vlide) (c:vlide))
)

(princ "geladen.")
(princ)

------------------
THX FOR HELP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Blacke Eagle
Mitglied
Elektro Zeichner


Sehen Sie sich das Profil von Blacke Eagle an!   Senden Sie eine Private Message an Blacke Eagle  Schreiben Sie einen Gästebucheintrag für Blacke Eagle

Beiträge: 81
Registriert: 30.10.2003

Pentium 2,6 GHz
512 MB DDR Ram
AutoCAD 2004
Windows 2000
DSL

erstellt am: 05. Nov. 2003 11:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

Nur mal so als Frage.
du weißt nicht wirklich was das alles heißen soll oder???????

------------------
Nichtstun ist besser als mit Mühe nichts schaffen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

AsSchu
Ehrenmitglied
Konstrukteur


Sehen Sie sich das Profil von AsSchu an!   Senden Sie eine Private Message an AsSchu  Schreiben Sie einen Gästebucheintrag für AsSchu

Beiträge: 1632
Registriert: 27.06.2003

ACAD 2012

erstellt am: 05. Nov. 2003 11:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von Blacke Eagle:
Nur mal so als Frage.
du weißt nicht wirklich was das alles heißen soll oder???????


Nee, das weiß er nicht; hat doch geschrieben, dass er Anfänger ist.
Aber die .lsp ist von 1987, wird wohl R12 sein.

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Zeichenfritze
Mitglied
Ex-Student und hoffentlich bald Berufstätig


Sehen Sie sich das Profil von Zeichenfritze an!   Senden Sie eine Private Message an Zeichenfritze  Schreiben Sie einen Gästebucheintrag für Zeichenfritze

Beiträge: 43
Registriert: 22.10.2003

erstellt am: 05. Nov. 2003 12:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

          
Hallo
Wahnsinn ich hab zwar mit Autocad nicht viel am Hut aber dieser kilometerlange Makropost der hat schon was.
Da sind wohl die Programmierer unter uns gefragt.
Was für ein Autocad habt ihr den drauf ?
Also nicht das ich davon Ahnung hätte dafür mache ich viel zu wenig mit Autocad, aber vielleicht kann deine Version dieses Makro nicht interpretieren ?
Wenn das wirklich schon so alt ist ( siehe oben )will das vielleicht mit dem neuen nicht funzen ?
Vielleicht nimmt der irgendwelche Informationen die in neueren Versionen nicht an der Stelle stehen wie es vor vielen Jahren bei der alten Version war oder benutzt Befehle die jetzt ein wenig anders sind.
Also ich muß ehrlich zugeben ich kann mir das Makro angucken und bis auf ein paar Befehle sagt mir das überhaupt nix und selbst wenn wie will man darin den Auslöser für den Fehler finden ?
Mit was schreibt man eigentlich solche Makros ?

Da fällt mir ein ich muß weg. *g*

Mahlzeit

[Diese Nachricht wurde von Zeichenfritze am 05. November 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

fuchsi
Mitglied
Programmierer c#.net Datawarehouse


Sehen Sie sich das Profil von fuchsi an!   Senden Sie eine Private Message an fuchsi  Schreiben Sie einen Gästebucheintrag für fuchsi

Beiträge: 1201
Registriert: 14.10.2003

AutoCad Version 2012 deu/enu
<P>Windows 7 64bit

erstellt am: 05. Nov. 2003 12:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

also das prog so wie du es gepostet hast, ist unvollständig
und teilweise auch fehlerhaft !!!
z.B.: in der error routine
(command "LAYER" "S" clay "")
kann nicht funktionieren, muss heissen
(command "LAYER" "SE" clay "") ; ab 14 gibts die optionen SEtzen SPerren STatus. da heisst er weiss nicht was er tun soll

und ab
(if (= d "Laenge")
        (progn
          (initget 7)
          (setq d (getdist c    ??????????????????????
??????????????????????????????????????????????????????
                    "4" "" "") )


fehlt einiges, nämlich das eigentliche erstellen der linien

------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ratzfatzmatz
Mitglied
WERKZEUGMACHER


Sehen Sie sich das Profil von ratzfatzmatz an!   Senden Sie eine Private Message an ratzfatzmatz  Schreiben Sie einen Gästebucheintrag für ratzfatzmatz

Beiträge: 10
Registriert: 05.11.2003

erstellt am: 05. Nov. 2003 17:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

danke schön dann ist bestimmt beim kopiern  auf disk was schiefgeangen weil konnte erst die cl datei nicht lesen bzw kopieren von disk aber trotzdem herzlichen dank an alle für die schnelle hilfe  werde morgen in der schule noch mla die cl.lsp kopiren und dann hoffe ich das es funtzt thx too all

------------------
THX FOR HELP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

marvin101010
Mitglied
ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)


Sehen Sie sich das Profil von marvin101010 an!   Senden Sie eine Private Message an marvin101010  Schreiben Sie einen Gästebucheintrag für marvin101010

Beiträge: 562
Registriert: 22.01.2003

Pentium 4
Windows XP
Autocad 2006
Autocad 2006LT + Extender
ADT 2007
ArchiCAD

erstellt am: 05. Nov. 2003 17:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

also, dass es jemand versteht, versteh ich....
nur lesen würde ichs nie!!!

------------------
  ...so long and thanx for the fish!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

startrek
Mitglied
Architekt


Sehen Sie sich das Profil von startrek an!   Senden Sie eine Private Message an startrek  Schreiben Sie einen Gästebucheintrag für startrek

Beiträge: 1361
Registriert: 13.02.2003

.

erstellt am: 05. Nov. 2003 19:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich

Hi ratzfatz 

vielleicht wärs morgen besser, Du hängst die *.lisp gleich gezippt
als Anlage bei, oder noch einfacher  einfach in *.txt umbenennen

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

otterloh
Mitglied



Sehen Sie sich das Profil von otterloh an!   Senden Sie eine Private Message an otterloh  Schreiben Sie einen Gästebucheintrag für otterloh

Beiträge: 188
Registriert: 27.06.2001

AutoCAD 2012, 2013, 2019
Win8.1

erstellt am: 06. Nov. 2003 09:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ratzfatzmatz 10 Unities + Antwort hilfreich


CL.zip

 
ratzfatzmatz,
nimm mal dieses programm CL.lsp
Zeichnet Systemlinien-Kreuz für gewählten Bogen oder Kreis
auf dem Layer CL.
Maßstabsgerechter Überstand 1,5mm

------------------
Gruß Werner
http://Meyer-Werner.bei.T-Online.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz