Help For Lisp Divide And Then Insert Block

[MR MAN]

I MAKE LISP DIVIDE OBJECT AND THEN INSERT BLOCK AS SHOWN BUT IT SOME TIME STOP AT INSERTION OF BLOCK I DON'T KNOW WHY ANY HELP:

 

 

(defun c:DDV()

(command "DIVIDE" PAUSE "BLOCK" "MRMAN25" "Y" PAUSE)

(princ)

)

 

 

 

THANKS

[stevsmith]

Why i there a smiley man in your lisp??

Was that deliberate?

[MR MAN]

no it doesn't i delete it from my thread but it return

iam sorry for this error

 

[flowerrobot]

Man that simly got me simling for about a min,

Try that

(defun c:dv (/
ss sectionno blockname
)
(setq blockname "[color=#ff0000]MRMAN25[/color]")
(if (or (tblsearch "block" blockname) (findfile blockname))
(progn 
(while (not ss)
(setq ss (ssget "_:S" )))
(initget 7)
(setq sectionno (getint "\nHow segments do you want? :"))
(command "DIVIDE" ss "BLOCK" blockname "Y" sectionno))
(Alert "The Block in not in the drawing please insert it")))

 

excuse the format, it never pastes well for me

[Lee Mac]

Flower, in VLIDE uncheck the option that says "Insert Tabs" and you might get better results in posting

[flowerrobot]

Had a look, i couldnt see it, I must admit i am a noob in vlide.

I only use it to run a line at a time debuging & see output of values

 

Tho i have done a work instruction for it

[Lee Mac]

see here: