I want this lisp to insert the block to dimscale and set the rotation to 0. The insertion works with the scale but I am prompted for a rotation rather than defaulting me to 0 rotation. Could use a more advanced users help. Thanks in advanced!
Code:
;;; Lisp for Symbol-Blocks insertion
; Uses insert command to insert selected Symbol Blocks
(defun symblkinsertscale (/ NAME)
(setq NAME (strcat "Z:/_ACAD Library/2014 Custom Menu/stdlib/" symblkname))
(setq LTSCA (getvar "dimscale"))
(command "insert" NAME pause LTSCA "" PAUSE "")
)
;;
; Sets BLOCK name (SYMBLKname)
(defun c:drop () (setq symblkname "Concrete Drop") (SYMBLKINSERTSCALE)) ;;;;;;;; SCALE
(defun c:mc () (setq symblkname "mc") (SYMBLKINSERTSCALE)) ;;;;;;;; SCALE
(defun c:vbarrow () (setq symblkname "vb-arrow") (SYMBLKINSERTSCALE)) ;;;;;;;; SCALE
(defun c:slmk () (setq symblkname "slmk") (SYMBLKINSERTSCALE)) ;;;;;;;; SCALE
(defun c:ctrln () (setq symblkname "ctrln_stl ln") (SYMBLKINSERTSCALE)) ;;;;;;;; SCALE