Hi
Check this code:
{code}
;
; -- Get Qleader Dictionary
;
(defun MeGetQleader ( / CurDic CurItm RetVal)
(if (setq CurDic (dictsearch (namedobjdict) "AcadDim"))
(progn
(foreach memb '(3 40 60 61 62 63 64 65 66 67 68 69 70 71 72 170 340)
(if (setq CurItm (assoc memb CurDic))
(setq RetVal (cons CurItm RetVal))
)
)
(reverse RetVal)
)
'((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 . 2) ; 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 . 2) ; 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 . 0) ; Use splined leader line (default=0):
; 0=Off
; 1=On
(66 . 0) ; No limit on points (default=0):
; 0=Off
; 1=On
(67 . 2) ; Maximum number of points (default=3)
(68 . 0) ; 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
)
)
)
;
; -- Set Qleader Dictionary
;
(defun MeSetQleader (Lst / DicLst)
(dictremove (namedobjdict) "AcadDim")
(setq DicLst (append
'((0 . "XRECORD") (100 . "AcDbXrecord") (90 . 990106))
Lst
)
)
(dictadd (namedobjdict) "AcadDim" (entmakex DicLst))
(princ)
)
{code}
Cheers
------
Jürg Menzi
MENZI ENGINEERING GmbH, Switzerland
http://www.menziengineering.ch
coffeeTwitch schrieb:
> I'm trying to locate where AutoCAD keeps the default settings for Qleader so I can change them as part of a startup routine. I understand that they are not stored in the dimstyle. Are the settings stored in a dictionary or the registry?