Double "Unknown command" After Routine

[stusic]

I've got this routine, and it runs fine, but after it executes, I get "Unknown command "IBN"" twice. I can't figure out why it's doing that. Can someone take a look and let me know what they think?

(defun c:insertbundlenumber (/ ss j mode)

(COMMAND "-INSERT" "f:/apps/CCS_CAD/LABEL/1TEN_L" "S" "96" PAUSE PAUSE)

(COMMAND "EXPLODE" "L" "")

(COMMAND "CHPROP" "L" "P" "" "LA" (getvar "clayer") "" "")

    (progn
     (setq ss (ssadd))
     (ssadd (entlast) ss)
     (setq mode 0)
     (setvar "highlight" 0)
     (setq j (bns_trot ss mode))
    );progn
     (setvar "highlight" 1)

(princ);exit quietly

);defun

;;; SHORTCUT

(DEFUN C:IBN () (C:insertbundlenumber))

Thanks you all,

[tedg]

I've got this routine, and it runs fine, but after it executes, I get "Unknown command "IBN"" twice. I can't figure out why it's doing that. Can someone take a look and let me know what they think?

(defun c:insertbundlenumber (/ ss j mode)

(COMMAND "-INSERT" "f:/apps/CCS_CAD/LABEL/1TEN_L" "S" "96" PAUSE PAUSE)

(COMMAND "EXPLODE" "L" "")

(COMMAND "CHPROP" "L" "P" "" "LA" (getvar "clayer") "" "")

    (progn
     (setq ss (ssadd))
     (ssadd (entlast) ss)
     (setq mode 0)
     (setvar "highlight" 0)
     (setq j (bns_trot ss mode))
    );progn
     (setvar "highlight" 1)

(princ);exit quietly

);defun

;;; SHORTCUT

(DEFUN C:IBN () (C:insertbundlenumber))

Thanks you all,

Why don't you just make your shortcut the command?
If you can't, did you try adding (princ) after it?

[stusic]

I don't think the shortcut's the problem, as I've tried "insertbundlenumber" and it still gives me the error: "Unknown command "insertbundlenumber"" twice. Lemme comment it out and see what it does...

[tedg]

I don't think the shortcut's the problem, as I've tried "insertbundlenumber" and it still gives me the error: "Unknown command "insertbundlenumber"" twice. Lemme comment it out and see what it does...

Hemm, I don't know. I couldn't test your routine, but just for giggles I added a similar shortcut to one of my routines, and it worked fine with no "unknown command".

Sorry, I don't have an answer. I have seen that before (unknown command) but I don't know what caused it. I think it must be within the main routine.

[stusic]

Yep, still gives the error...

Any other ideas? I'm stumped -- there's only so much code...

[stusic]

Okay, the trimmed code:

(defun c:insertbundlenumber (/ ss j mode)

(COMMAND "-INSERT" "f:/apps/CCS_CAD/LABEL/1TEN_L" "S" "96" PAUSE PAUSE)

(COMMAND "EXPLODE" "L" "")

(COMMAND "CHPROP" "L" "P" "" "LA" (getvar "clayer") "" "")

    (progn
     (setq ss (ssadd))
     (ssadd (entlast) ss)
     (setq mode 0)
     (setvar "highlight" 0)
     (setq j (bns_trot ss mode))
    );progn
     (setvar "highlight" 1)

(princ);exit quietly

);defun

[tedg]

I tried running your routine with a drawing I created.

(defun c:IBN (/ ss j mode)

(COMMAND "-INSERT" "c:/lumber" "S" "96" PAUSE PAUSE)

(COMMAND "EXPLODE" "L" "")

(COMMAND "CHPROP" "L" "P" "" "LA" (getvar "clayer") "" "")

    (progn
    (setq ss (ssadd))
    (ssadd (entlast) ss)
    (setq mode 0)
    (setvar "highlight" 0)
    (setq j (bns_trot ss mode))
     );progn
     (setvar "highlight" 1)
(princ);exit quietly
);defun

What version of AutoCAD are you using?

It returned: "Command: no function definition: BNS_TROT"

Also I get:
Unknown command "LA". Press F1 for help.
Unknown command "0". Press F1 for help.
Unknown command "IBN". Press F1 for help.
Unknown command "IBN". Press F1 for help.

It did, however insert the drawing, what are you trying to achieve with this routine?

[stusic]

I'm using 2000, so that may be why you aren't getting the BNS_TROT, but LA should work (it's LAYER, after all).

I'm trying to insert this block, then rotate the text in it to horizontal, no matter what the rotation of the block is. It's a stripped-down version of the express tool's "TORIENT" lisp

[d_m_hopper]

I'm using 2000, so that may be why you aren't getting the BNS_TROT, but LA should work (it's LAYER, after all).

I'm trying to insert this block, then rotate the text in it to horizontal, no matter what the rotation of the block is. It's a stripped-down version of the express tool's "TORIENT" lisp

I can't solve your main issue but if add the * it will explode the block after it is inserted

(COMMAND "-INSERT" "*c:/lumber" "S" "96" PAUSE PAUSE)

then you can remove this line

(COMMAND "EXPLODE" "L" "")

[ccowgill]

I've got this routine, and it runs fine, but after it executes, I get "Unknown command "IBN"" twice. I can't figure out why it's doing that. Can someone take a look and let me know what they think?

(defun c:insertbundlenumber (/ ss j mode)

(COMMAND "-INSERT" "f:/apps/CCS_CAD/LABEL/1TEN_L" "S" "96" PAUSE PAUSE)

(COMMAND "EXPLODE" "L" "")

(COMMAND "CHPROP" "L" "P" "" "LA" (getvar "clayer") "" "")

    (progn
     (setq ss (ssadd))
     (ssadd (entlast) ss)
     (setq mode 0)
     (setvar "highlight" 0)
     (setq j (bns_trot ss mode))
    );progn
     (setvar "highlight" 1)

(princ);exit quietly

);defun

;;; SHORTCUT

(DEFUN C:IBN () (C:insertbundlenumber))

Thanks you all,

what's the progn for? you only need to use it for an if statement