Help To Make Qleader Setting Lisp

Can Any One Help Me In This Lisp

I Need Lisp Make That:

Qleader-----setting

Annaotation Type (block Reference)

Annaotation Reuse (none)

Leader Line (straight)

Arrowhead (closed Fill)

Number Of Points (no Limit)

Angle Constraints

First Segment (60)

Second Segment (60)

(defun test (/)
 (dictremove (namedobjdict) "ACADDIM")
 (entmod
   (append (entget (namedobjdict))
    (list (cons 3 "ACADDIM")
	  (cons	350
		(entmakex '((0 . "XRECORD")
			    (100 . "AcDbXrecord")
			    (280 . 1)
			    (90 . 990106)
			    (3 . "")
			    (60 . 3)
			    (61 . 0)
			    (62 . 1)
			    (63 . 3)
			    (64 . 0)
			    (65 . 0)
			    (66 . 1)
			    (67 . 3)
			    (68 . 1)
			    (69 . 0)
			    (70 . 3) ;45
			    (71 . 3) ;45
			    (72 . 0)
			    (40 . 0.0)
			    (170 . 0)
			   )
		)
	  )
    )
   )
 )
)

sorry about 'Angle Constraints', it seems that only predefined values are possible (acad2005)

search for qlsettings.lsp

that should give you everything you need.

You can change system variables with DIM-prefix:

DIMADEC DIMALT DIMALTD DIMALTF DIMALTRND DIMALTTD DIMALTTZ DIMALTU DIMALTZ DIMAPOST DIMASO DIMASSOC DIMASZ DIMATFIT DIMAUNIT DIMAZIN DIMBLK DIMBLK1 DIMBLK2 DIMCEN DIMCLRD DIMCLRE DIMCLRT DIMDEC DIMDLE DIMDLI DIMDSEP DIMEXE DIMEXO DIMFIT DIMFRAC DIMGAP DIMJUST DIMLDRBLK DIMLFAC DIMLIM DIMLUNIT DIMLWD DIMLWE DIMPOST DIMRND DIMSAH DIMSCALE DIMSD1 DIMSD2 DIMSE1 DIMSE2 DIMSHO DIMSOXD DIMSTYLE DIMTAD DIMTDEC DIMTFAC DIMTIH DIMTIX DIMTM DIMTMOVE DIMTOFL DIMTOH DIMTOL DIMTOLJ DIMTP DIMTSZ DIMTVP DIMTXSTY DIMTXT DIMTZIN DIMUNIT DIMUPT DIMZIN

here is example:

(defun c:scaleleader ()

(setq scale (getreal "Input current scale : "))

(setvar "osmode" 0) ; osnap off

(setvar "DIMCLRE" ;Color

(setvar "DIMCLRD" ;Color

(setvar "DIMCLRT" ;Color

(setvar "DIMZIN" 0) ;Trailing

(command "STYLE" "2D" "vnsimple" "0" "0.9" "0" "N" "N" "N")

(setvar "DIMEXE" (* 0.75 scale)) ;Extension above line

(setvar "DIMEXO" (* 0.5 scale)) ;Feature offset

(setvar "DIMASZ" (* 1 scale)) ;Arrow size

(setvar "DIMBLK" ".")

(setvar "DIMBLK2" ".")

(setvar "DIMLDRBLK" ".")

(setvar "DIMTSZ" 0) ;= 0 Draws arrowheads

;(setvar "DIMTSZ" (* 0.75 scale)) ;= 0 Draws arrowheads

; >0 Draws oblique strokes instead of arrowheads

;(setvar "DIMTSZ" (* 0.5 scale)) ;Tick size 0.7

(setvar "DIMTXT" (* 2.0 scale)) ;Text height 2.5

(setvar "DIMTAD" 1) ;Verical (defauft)

(setvar "DIMTIH" 0) ;Horizontal

(setvar "DIMTOH" 0) ;Horizontal

(setvar "DIMTIX" 1) ;Force text inside

(setvar "DIMSOXD" 0) ;Force text inside

(setvar "DIMDEC" 2) ;

(setvar "DIMSCALE" 0) ;

(setvar "DIMGAP" (* 1 scale)) ;

;(setvar "DIMTXSTY" "2D")

(setvar "DIMLFAC" 1)

(setvar "DIMFIT" 5) ;No Leader

(setvar "DIMSE1" 0) ;Suppress

(setvar "REGENMODE" 1)

(setvar "DIMAUNIT" 1) ;Degrees/minutes/seconds

)