Topic: Grread Problem

[shaymin]

When I use Grread + grvecs to create a rectangular from point to another point. I can't snap perpendicular. Hope Someone help me solve it

[dexus]

One of the disadvantages of grread is that it doesn't have snap at all.
It is possible to make custom snap functions inside of the grread loop and your code seems to have implemented that in some way, but apparently without implementing the perpendicular snap.

You will have to post the code for anyone to see where this goes wrong.

[kozmos]

When I use Grread + grvecs to create a rectangular from point to another point. I can't snap perpendicular. Hope I help me solve it

During grread loop, add (setq pt (osnap pt "_per")) when you have point from grread.

[shaymin]

One of the disadvantages of grread is that it doesn't have snap at all.
It is possible to make custom snap functions inside of the grread loop and your code seems to have implemented that in some way, but apparently without implementing the perpendicular snap.

You will have to post the code for anyone to see where this goes wrong.

Thank your comment. I used Lee'grnap and it help me catch point like osnapmode but when I use grread it just return a point then it can't catch a penperdicular point so I get here to find a solution

When I use Grread + grvecs to create a rectangular from point to another point. I can't snap perpendicular. Hope I help me solve it

During grread loop, add (setq pt (osnap pt "_per")) when you have point from grread.

Thank your cmt. That my lisp draw a duct I don't know write that code where in my lisp if you have time check it for me

[BIGAL]

Do you really need to draw the rectang ? Why not a line ? Then draw the rectang. Or even mline will draw 2 lines. Can make mlines using entmake.

Code: [Select]

(setq pt1 (getpoint "\start point "))
(setvar 'osmode 128)
(setq pt2 (getpoint pt1 "Point 2"))

[shaymin]

Do you really need to draw the rectang ? Why not a line ? Then draw the rectang. Or even mline will draw 2 lines. Can make mlines using entmake.

Code: [Select]

(setq pt1 (getpoint "\start point "))
(setvar 'osmode 128)
(setq pt2 (getpoint pt1 "Point 2"))

I did that man. If u use my lisp above u will understand. I just want to up size and down size when I draw so I use grread to do that

[dexus]

The perpendicular snap is based on the lastpoint system variable.
So you want to do

Code - Auto/Visual Lisp: [Select]

1. (setvar 'lastpoint pt1)

before your grread loop.