v2005 to 2008: Insert Block issue

I've recently upgraded from 2005 to 2008. And I've only one issue that I'm a bit stuck on. It involves inserting my Symbols.

I do electrical design and have lots of symbols. I use a combination of PopUp menus and Lisp to insert my symbols. When I insert a symbol, I pick my insert point, rotate it, and press Return (or Spacebar) and then continue on with multiple inserts.

Under 2005, I had no issues. In 2008, the issue (minor that it is), is that Periodically I only insert One symbol.

When this happens, a 2nd (unwanted) symbol gets added to the drawing way off in the distance. This never occured in 2005 and my Lisp hasn't changed.

My Lisp code is:

(prompt "Pick insert point ...") (Command "-Insert" Fgr "S" FigScal pause pause) (Command "Copy" "L" "" "M" (getvar "Lastpoint"))

It's the 2nd Copy Last command that appears to create my unwanted 2nd symbol. I've tried a few ideas with different code, but can not get around this.

I know that if I press ESC instead of Return (or Spacebar), the 2nd symbol does NOT get inserted.

Any suggestions?



Reply to
Mr. B
Loading thread data ...

I'm not exactly sure why this is a problem, but the rotation prompt doesn't like the pause statement. I dropped the last pause statement and got this code to work. Maybe autodesk changed the way the insert command works in regards to the rotate function that it uses. I know that in 2007 they introduced some automatic rotate3d functions when in a 3d view, that may have caused a rewrite of the functions insert refers to get the job done? Anyway I think its a pretty good find.

(defun c:insroco (/ inspt) (command "-insert" "test" (setq inspt (getpoint "\nSpecify Insertion Point: ")) pause pause ) (command "copy" "l" "" "m" (getvar "lastpoint")) )

Reply to

Hmm... I'll try that.

Who knows, eh?



Reply to
Mr. B

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.