Joining 2 Auto Lisp together please

[janthonylo]

I have these 2 autolisp

(defun c:18BK (/ pt rad)
  (if (and (setq pt (getpoint "\nPoint: "))
           (setq rad "12.0"))
    (CirBrk pt rad))
  (princ)
)

and this one:

(DEFUN c:ivfrt	(/ sc clay)
  (setvar "cmdecho" 0)
  (COMMAND "INSERT"
	   "*ivfrt.dwg"
	   "S"
	   (SETQ sc (GETVAR "dimscale"))
	   (GETPOINT) pause)
	   pause
  ) ;_ end of command

into a single Autolisp call "ivfrt"

but I can make them work together 18bk first then ivfrt next in the same autolisp
the idea is once I type "ivfrt" I select the line to break as soon as I finish this command the insert block command is next.

Please any body can help me in this one

Thank you very much

[BIG-AL]

A C: defun can be called the same way as a defun in your code (C:18Bk) no need to type it.

[Tom Beauford]

When posting code click [Go Advanced] button on bottom right then click the # button in the toolbar up top and paste the code inside.

The function "CirBrk" isn't defined anywhere, odd that it uses a string "12.0" rather than a real 12.0?
If you're going with "12.0" anyway I'd simplify to

(CirBrk pt "12.0")

and

(if (setq pt (getpoint "\nPoint: "))(COMMAND "._INSERT" "*ivfrt.dwg" pt (GETVAR "dimscale")))

[janthonylo]

I am sorry, BIG-AL
I need to type so I can insert a symbols "18bk" is an action to break the line 1'-6", then the Insert "ivfrt" the Valve Flange right side in the same area (18bk) open before insert.
I can do this in 2 separated times with typing this 2 separate AutoLISP, but I would like to put it together where I type only one time ivfrt and to 18bk any more.
I add the file I call ALAN2.LSP where if I type Alan2, then the 2 autolisp work as one.
can you make them work please feel free to download it and test it
I hope I made my self understandable, thanks

- - - Updated - - -

Tom.
Thanks for your response see my last comment with the file attached see if it can be modify to make it work that way need it

[Tom Beauford]

Try (assuming the function "CirBrk" is defined someplace we haven't seen):

(defun c:18BK (/ pt rad)
  (if(setq pt(getpoint "\nPoint: "))(CirBrk pt "12.0"))
  (princ)
)
(DEFUN c:ivfrt	(/ sc clay)
  (setvar "cmdecho" 0)
  (if (setq pt (getpoint "\nPoint: "))
	(COMMAND "._INSERT" "*ivfrt.dwg" pt (GETVAR "dimscale"))
  )
  (C:18Bk); what BIG-AL means
) ;_ end of command

[rkmcswain]

When posting code click [Go Advanced] button on bottom right then click the # button in the toolbar up top and paste the code inside.

Or you can just surround your code text with [CODE] [/CODE] tags. For example:

[CODE]
(defun c:fun ()
(subfunction arg1 arg2)
(more_code)
(princ)
)
[/CODE]

...will render like this:

(defun c:fun ()
 (subfunction arg1 arg2)
 (more_code)
 (princ)
)

[janthonylo]

it just doesn't work, it insert the symbol but it doesn't break the line,
thank you any way