Passing commands to a function
Posted: Wed Sep 14, 2016 12:22 am
Hello,
I have some Lisp code running in BricsCAD v11. After the upgrade to BricsCAD v16 I can't use my lisp code.
This is the part that causes the issue.
ERROR: error : invalid-identifier <NIL> ; expected <SYMBOL> at [LAMBDA]
I have some Lisp code running in BricsCAD v11. After the upgrade to BricsCAD v16 I can't use my lisp code.
This is the part that causes the issue.
Code: Select all
; COMMAND
(defun C:DASHEDLINEBLACK()
(Draw "line" '("0" "BYLAYER" "ISO02W100" -1 0.3))
(princ)
)
(defun Draw (drawType props / currentProps)
(setq currentProps (GetLayerProps))
(SetLayerProps props)
(ExecuteTillEsc
'(progn
(command drawType)
(while (> (getvar 'cmdactive) 0)
(command pause)
)
)
)
(SetLayerProps currentProps)
)
(defun ExecuteTillEsc(FunctionToExecute /)
(vl-load-com)
(while
(progn
(setq input (vl-catch-all-apply FunctionToExecute))
(cond
((vl-catch-all-error- input) nil )
t
)
)
)
)