[Randolph]

Hi Alan,

at last I had time to try your xyz.lsp together with the insertblock function. It works and makes me happy - thanxalot!

Concerning referencing, you said, I should "give it a shot". Sorry to say, my English isn't good enough to understand the meaning of that. It seems to mean, that xyz.lsp can't reference an old an a new length. This would be rather helpful, though.

I have here a little code which does this along all axis - quite simple. Could you please somehow insert this into your cool feature?

 
(DEFUN C:VB ()
(SETQ OBJEKTE (SSGET))
(SETQ MPUNKT (GETPOINT "\nBasispunkt :"))
(SETQ PUNKT1 (GETPOINT "\nBasis (ALT) :")) 
(SETQ PUNKT2 (GETPOINT "\nBasis (NEU) :"))
(COMMAND "_OSNAP" "")
(COMMAND "_SCALE" "_SI" OBJEKTE MPUNKT "_R" MPUNKT PUNKT1 PUNKT2)
(COMMAND "_OSNAP" "_END,_INT,_MID,_CEN,_INS,_PER")
(COMMAND "_REDRAW")
(SETQ OBJEKTE NIL)

)

PS: I also add the long promised "strange text" that won't be rotated by zerorotation.lsp.

[alanjt]

Originally Posted by Randolph

Hi Alan,

at last I had time to try your xyz.lsp together with the insertblock function. It works and makes me happy - thanxalot!

Concerning referencing, you said, I should "give it a shot". Sorry to say, my English isn't good enough to understand the meaning of that. It seems to mean, that xyz.lsp can't reference an old an a new length. This would be rather helpful, though.

I have here a little code which does this along all axis - quite simple. Could you please somehow insert this into your cool feature?

 
(DEFUN C:VB ()
(SETQ OBJEKTE (SSGET))
(SETQ MPUNKT (GETPOINT "\nBasispunkt :"))
(SETQ PUNKT1 (GETPOINT "\nBasis (ALT) :")) 
(SETQ PUNKT2 (GETPOINT "\nBasis (NEU) :"))
(COMMAND "_OSNAP" "")
(COMMAND "_SCALE" "_SI" OBJEKTE MPUNKT "_R" MPUNKT PUNKT1 PUNKT2)
(COMMAND "_OSNAP" "_END,_INT,_MID,_CEN,_INS,_PER")
(COMMAND "_REDRAW")
(SETQ OBJEKTE NIL)

)

PS: I also add the long promised "strange text" that won't be rotated by zerorotation.lsp.

What I meant was, I've spent quite a bit of time of this and you still want more. However, if I have time, I'll look at it. I'm pretty swamped this week.

Thanks for posting the object. It's not ZeroRotation, your block (not text) has the attributes rotated within the block definition. You would need to fix the block.

StrangeBlock.jpg

[Randolph]

"What I meant was, I've spent quite a bit of time of this and you still want more."

OK, I see that I am too greedy - I don't want to be an annoyance. I thought it was some kind of sport for you, shooting with creativity every time I came up with a problem. Please, if it is stress instead, just leave it. All these are "nice to haves", but nothing I'm depending on. Same goes for the other posts I submitted today. Thank you for all your help so far!

Concerning the block, I imported it from a drawing I got. I even think it originates from another application.

[alanjt]

Originally Posted by Randolph

"What I meant was, I've spent quite a bit of time of this and you still want more."

OK, I see that I am too greedy - I don't want to be an annoyance. I thought it was some kind of sport for you, shooting with creativity every time I came up with a problem. Please, if it is stress instead, just leave it. All these are "nice to haves", but nothing I'm depending on. Same goes for the other posts I submitted today. Thank you for all your help so far!

Concerning the block, I imported it from a drawing I got. I even think it originates from another application.

I'm not annoyed at all. I like working these out, it's a nice puzzle to ease my mind in the evenings (when I have time). More than anything, I want people to try it for themselves. I learned how to program so I wouldn't have to ask someone else. Believe me, I'll tell you if I'm annoyed.

[Randolph]

Yeah, I learned so many things, like geometry and statics and in earlier times also programming (but not lisp) ... at the time, I have 2 luxury houses to plan. But I always try to understand the lisp routines ... promise ;)