AutoLisp Question

[alextu]

I am new in Autolisp, I am working on the autolisp,
Could anyone help me to put these two lisp to become one lisp?
Thank you for helping me
1.
(defun c:remark (/ CMOLD OSOLD DIMSC pt1)
(setq cmold (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq osold (getvar "osmode"))
(setq dimsc (getvar "dimscale"))
(setq pt1 (getpoint "\nPick insertion point: "))
(command "-insert" "remark" pt1 dimsc "" "" )
(setvar "cmdecho" cmold)
(setvar "osmode" osold)
(princ)
)

2.
(defun c:reline (/ CMOLD OSOLD DIMSC pt1 pt2)
(setq cmold (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq osold (getvar "osmode"))
(setvar "osmode" 16)
(setq dimsc (getvar "dimscale"))
(setq pt1 (getpoint "\nPick first point: "))
(setq pt2 (getpoint "\nPick second point: "))

(command "line" pt1 pt2 "" )
(setvar "cmdecho" cmold)
(setvar "osmode" osold)
(princ)
)

[David Bethel]

(defun c:rm ()
(c:remark)
(c:reline)
(prin1))


-David

[CADTutor]

Could anyone help me to put these two lisp to become one lisp?


Do you mean; how to include both functions in a single file or how to integrate the two functions in a single function?

[alextu]

Thank you

[alextu]

For CAD Tutor,
I would like to include both functions in a single file. I will more appreciate if you can show me in both way.

[CADTutor]

To include both functions in the same file, simply save them as you have listed them above in a single .LSP file. Once the file is loaded, the functions can be called independently.

To combine the two functions might look like this:


(defun c:reboth (/ CMOLD OSOLD DIMSC pt1 pt2 pt3)
(setq cmold (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq osold (getvar "osmode"))
(setvar "osmode" 16)
(setq dimsc (getvar "dimscale"))
(setq pt1 (getpoint "\nPick insertion point: "))
(command "-insert" "remark" pt1 dimsc "" "" )
(setq pt2 (getpoint "\nPick first point: "))
(setq pt3 (getpoint "\nPick second point: "))
(command "line" pt2 pt3 "" )
(setvar "cmdecho" cmold)
(setvar "osmode" osold)
(princ)
)

[alextu]

Thank's

David and CAd tutor