---

Hi Kolleg[innen]n,

AutoCAD bzw. AutoCAD ARchitecture hat ja für allen möglichen Kram Übersichtsdateien:
Für Farben die colorwh.dwg, für Linienstärken die Lineweights.dwg.
Gibt's so was auch für die Linientypen?
Ich finde um's verrecken nix...

------------------
Ciao,
Marc

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

---

Schreib dir n Prog, was die Linientypen durchläuft und ne Linie damit zeichnet .... du kannst es auch erweitern, das alle gefundenen lin-Dateien geladen werden usw.  .... evtl. kannst du noch Linientypfaktoren vergeben, damit die Leute Skalierungen richtig einschätzen können usw.

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hi Thomas,

ja, das ist kein Problem. Leider gerade keine Zeit für so 'ne Fingerübung.
Hätte ja sein können, das ich einfach eine Beispieldatei übersehen habe...

------------------
Ciao,
Marc

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

---

OK,

anbei meine Fingerübung...
Kann man ja doch immer mal wieder gebrauchen...

Code:

---

;|
Funktion erzeugt eine "Liste" aus AutoCAD Texten und Linien im Modellbereich der aktiven AutoCAD Zeichnung.
Dokumentiert werden die in der aktuellen Zeichnung geladenen Linientypen.
KEINE Überprüfung auf die Herkunft der Linientypdefinitionen (aus acad.lin oder acadiso.lin)
|;
(defun C:LINETYPEDOCUMENTATION (/    BASESIZE   CCELTSCALE
CLAYER    CLTSCALE   LO
LTNAME    PT-INIT    CDIMZIN
       )

  (setq ;; CLTSCALE   (getvar "ltscale")
CCELTSCALE (getvar "CELTSCALE")
CLAYER    (getvar "clayer")
CDIMZIN    (getvar "dimzin")
BASESIZE   1.0
  )
  (command "_.ucs" "_world")
  (if (setq PT-INIT
     (getpoint
       "\nDefine lower left point for linetype documentation objects: "
     )
      )
    (progn
      ;; (setvar "ltscale" 1.0)
      (setvar "CELTSCALE" 1.0)
      (setvar "clayer" "0")
      (setvar "dimzin" 0)
      (CREATE:SIMPLEX-STYLE)
      (setq PT-INIT (list (car PT-INIT)
  (- (cadr PT-INIT) BASESIZE)
  (caddr PT-INIT)
    )
      )
      (vlax-for ELEM (vla-get-linetypes
       (vla-get-activedocument (vlax-get-acad-object))
     )
(setq LTNAME (vla-get-name ELEM))
(DT:ADDDTEXT
  (setq PT-INIT (list (car PT-INIT)
      (+ (cadr PT-INIT) BASESIZE)
      (caddr PT-INIT)
)
  )
  (* BASESIZE 0.5)
  LTNAME
  0.0
  "Simplex"
)
(setq LO (vla-addline
   (vla-get-modelspace
     (vla-get-activedocument (vlax-get-acad-object))
   )
   (vlax-3d-point PT-INIT)
   (vlax-3d-point
     (list (+ (car PT-INIT) (* BASESIZE 25.0))
   (cadr PT-INIT)
   (caddr PT-INIT)
     )
   )
)
)
(vla-put-linetype LO LTNAME)
      )
      (DT:ADDDTEXT
(setq PT-INIT (list (car PT-INIT)
    (+ (cadr PT-INIT) BASESIZE)
    (caddr PT-INIT)
      )
)
(* BASESIZE 0.5)
(strcat
  "Current value for \"ltscale\"=%<\\AcVar ltscale \\f \"%lu2%pr8\">%, linetype scaling for objects was set to "
  (rtos (getvar "CELTSCALE") 2 16)
)
0.0
"Simplex"
      )
      (DT:ADDDTEXT
(setq PT-INIT (list (car PT-INIT)
    (+ (cadr PT-INIT) BASESIZE)
    (caddr PT-INIT)
      )
)
(* BASESIZE 0.5)
(strcat "Current value for \"measurement\"="
(rtos (getvar "measurement") 2 0)
"="
(if (zerop (getvar "measurement"))
  "british units=acad.lin"
  "metric units=acadiso.lin"
)
)
0.0
"Simplex"
      )
      ;; (setvar "ltscale" CLTSCALE)
      (setvar "CELTSCALE" CCELTSCALE)
      (setvar "clayer" CLAYER)
      (setvar "dimzin" CDIMZIN)
    )
  )
  (princ)
)

(defun CREATE:SIMPLEX-STYLE (/ STYLE-LIST)
  (if (not (tblsearch "STYLE" "SIMPLEX"))
    (progn
      (setq STYLE-LIST
     (list '(0 . "STYLE")
   '(100 . "AcDbSymbolTableRecord")
   '(100
     .
     "AcDbTextStyleTableRecord"
    ) '(2 . "SIMPLEX")
   '(70 . 0) '(40 . 0.0)
   '(41 . 1.0) '(50 . 0.0)
   '(71 . 0) '(42 . 2.5)
   '(3 . "simplex.shx") '(4 . "")
  )
      )
      (entmake STYLE-LIST)
    )
  )
  (tblsearch "STYLE" "SIMPLEX")
)

(defun DT:ADDDTEXT
   (LST-COORDINATE   REAL-TEXTSIZE    STR-TEXTVALUE
    REAL-ANGLE      STR-TEXTSTYLE    /
    TO
   )
  (setq TO (vla-addtext
     (vla-get-modelspace
       (vla-get-activedocument (vlax-get-acad-object))
     )
     STR-TEXTVALUE
     (vlax-3d-point LST-COORDINATE)
     REAL-TEXTSIZE
   )
  )
  (vla-put-rotation TO REAL-ANGLE)
  (if (tblsearch "STYLE" STR-TEXTSTYLE)
    (vla-put-stylename TO STR-TEXTSTYLE)
  )
  TO
)

(C:LINETYPEDOCUMENTATION) ;_ Autostart when loaded
(princ)

---

...

------------------
Ciao,
Marc
   

[Diese Nachricht wurde von marc.scherer am 03. Feb. 2010 editiert.]

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