---

Hallo

Ich möchte in AutoCAD 2006 per Lisp einstellen, daß bei einer Führung bzw. einer Schnellführung ein Spline anstatt einer Geraden gezeichnet wird. Leider kann ich die Systemvariable dazu nicht finden - eine Vorlage verwende ich nicht, somit scheidet das auch aus.
Hat vielleicht hierzu jemand eine Idee?

danke

Daniel

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

---

das Objekt "Leader" ist vom Aufbau ähnlich einer LW-Polylinie, IMHO auch davon abgeleitet .. also nix mit Spline!!!

Was Autodesk -nicht du per Lisp !!! - beim Spline und auch 2D-Polylinienobjekt , welche ja ihre Stützpunkte in extra "VERTEX"-Objekten speichern , erweitern könnte , wäre eine Art "Punktstil", der die Darstellung des Stützpunktes ( und des nächsten Segmentes) steuert .. z.B. als Pfeil .. oder nächstes Segment unsichtbar usw. .. Solche Erweiterung sollte auch relativ kompatibel zu Vorgängerversionen realisierbar sein

------------------
      - 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,

die Art der Führungslinie und auch alle anderen Formatierungen von QLEADERN, die du in der Dialogbox "Einstellungen" vornehmen kannst, werden in einem Dictionary gespeichert. So holst du's dir:

Code:

---

(dictsearch (namedobjdict) "AcadDim"))

---

Der Gruppencode 65 ist für die Splineform der Führungslinie zuständig.

Gruß
CADchup

------------------
CADmaro.de

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

---

Danke, genau das hab ich gesucht

gruß

daniel

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

---

 

Zitat:

---

Original erstellt von CADchup:

die Art der Führungslinie und auch alle anderen Formatierungen von QLEADERN, die du in der Dialogbox "Einstellungen" vornehmen kannst, werden in einem Dictionary gespeichert. So holst du's dir:

Code:

---

(dictsearch (namedobjdict) "AcadDim"))

---

Der Gruppencode 65 ist für die Splineform der Führungslinie zuständig.

---

Uppps, Thx Roter für die Korrekturupps, war das im 2000'er auch schon so ??? Ich mach wohl so selten was mit Führungen <schäm>

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

---

@Schwermetall,

Zitat:

---

war das im 2000'er auch schon so ???

---

Jupp. Gerade getestet.
Bin auch erst drüber gestolpert, als eine App. den Führungstext immer nur auf die Führungslinie schrieb. Das störte mein ästhetisches Empfinden.

Gruß
CADchup

------------------
CADmaro.de

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

---

Hallo,
kann mir bitte jemand einen Tipp geben, wie ich dann die gewünschten Werte übergeben muss (bei mir sind es Gruppencode 64, 69 und 72)
Tschüss Britt

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

---

mal ein BSP mit dem GC65

(setq DICT (dictsearch (namedobjdict) "AcadDim"))
(Setq DICT (subst (cons 65 1)(assoc 65 DICT)DICT))
(entmod DICT)

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

---

Hallo Thomas,
Super! Vielen Dank für die schnelle Hilfe!
(Endlich ist das lästige Umstellen vorbei!)

Tschüss Britt

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

---

Ich hab mir folgendes aus den hier geposteten Infos und aus dem Internet zusammengebastelt:

Code:

---

(defun kgmk:setqleader (mode / DicLst)
  ;(kgmk:setqleader nil)
(dictremove (namedobjdict) "AcadDim")
(setq DicLst
    '((0 . "XRECORD") (100 . "AcDbXrecord") (90 . 990106)
      (3 . "")    ; User arrowhead block name (default="")
      (40 . 0.0)  ; Default text width (default=0.0)
      (60 . 0)    ; Annotation type (default=0):
                  ;  0=MText
                  ;  1=Copy object
                  ;  2=Tolerance
                  ;  3=Block
                  ;  4=None
      (61 . 0)    ; Annotation reuse (default=0):
                  ;  0=Off
                  ;  1=On
      (62 . 1)    ; Left attachment point (default=1):
                  ;  0=Top of top line
                  ;  1=Middle of top line
                  ;  2=Middle of multiline text
                  ;  3=Middle of bottom line
                  ;  4=Bottom of bottom line
      (63 . 3)    ; Right attachment point (default=3):
                  ;  0=Top of top line
                  ;  1=Middle of top line
                  ;  2=Middle of multiline text
                  ;  3=Middle of bottom line
                  ;  4=Bottom of bottom line
      (64 . 0)    ; Underline bottom line (default=0):
                  ;  0=Off
                  ;  1=On
      (65 . 1)    ; Use splined leader line (default=0):
                  ;  0=Off
                  ;  1=On
      (66 . 1)    ; No limit on points (default=0):
                  ;  0=Off
                  ;  1=On
      (67 . 3)    ; Maximum number of points (default=3)
      (68 . 1)    ; Prompt for MText width (word wrap) (default=1):
                  ;  0=Off
                  ;  1=On
      (69 . 0)    ; Always left justify (default=0):
                  ;  0=Off
                  ;  1=On
      (70 . 0)    ; Allowed angle, first segment (default=0):
                  ;  0=Any angle
                  ;  1=Horizontal
                  ;  2=90°
                  ;  3=45°
                  ;  4=30°
                  ;  5=15°
      (71 . 1)    ; Allowed angle, second segment (default=0):
                  ;  0=Any angle
                  ;  1=Horizontal
                  ;  2=90°
                  ;  3=45°
                  ;  4=30°
                  ;  5=15°
      (72 . 0)    ; Frame text (default=0):
                  ;  0=Off
                  ;  1=On
      (170 . 0)    ; Active tab for settings (default=0):
                  ;  0=Annotation
                  ;  1=Leader Line & Arrow
                  ;  2=Attachment
      ;(340 . ID)  ; Object ID for annotation reuse
    )
)
(dictadd (namedobjdict) "AcadDim" (entmakex DicLst))
(princ)
)

---

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