Topic: Draw a point with especific distance

[Fabricio28]

Hi,
How are you?

I'm trying to find a lisp to create a point to 1x1 from specific point.

Anybody could help me please?

Thanks
Fabricio

[Tharwat]

One way with the use of polar function.

Code - Auto/Visual Lisp: [Select]

1. (defun c:Test (/ p)
2.   (or (not (zerop (getvar 'PDMODE))) (setvar 'PDMODE 3))
3.   (if (setq p (getpoint "\nSpecify a point : "))
4.     (entmake
5.       (list '(0 . "POINT")
6.             (cons 10 (polar (polar p 0.0 1.0) (* pi 0.5) 1.0))
7.       )
8.     )
9.   )
10.   (princ)
11. )
12.  

[Lee Mac]

Code - Auto/Visual Lisp: [Select]

1. (defun c:test ( / p )
2.     (if (setq p (getpoint "\nSpecify point: "))
3.         (entmake (list '(0 . "POINT") (cons 10 (trans (mapcar '+ p '(1 1)) 1 0))))
4.     )
5.     (princ)
6. )

[BIGAL]

Perhaps a bit more so X & Y can vary, could add default values if do all the time or as per image.

Code: [Select]

(defun c:test ( / p )
(setq xy (list  (getreal "\nEnter x ") (getreal "\nEnter Y ")))
    (if (setq p (getpoint "\nSpecify point: "))
        (entmake (list '(0 . "POINT") (cons 10 (trans (mapcar '+ p xy) 1 0))))
    )
    (princ)
)


[Fabricio28]

One way with the use of polar function.

Code - Auto/Visual Lisp: [Select]

1. (defun c:Test (/ p)
2.   (or (not (zerop (getvar 'PDMODE))) (setvar 'PDMODE 3))
3.   (if (setq p (getpoint "\nSpecify a point : "))
4.     (entmake
5.       (list '(0 . "POINT")
6.             (cons 10 (polar (polar p 0.0 1.0) (* pi 0.5) 1.0))
7.       )
8.     )
9.   )
10.   (princ)
11. )
12.  

Thank you very much!!!!

[Fabricio28]

Code - Auto/Visual Lisp: [Select]

1. (defun c:test ( / p )
2.     (if (setq p (getpoint "\nSpecify point: "))
3.         (entmake (list '(0 . "POINT") (cons 10 (trans (mapcar '+ p '(1 1)) 1 0))))
4.     )
5.     (princ)
6. )

Mr. Lee Mac
Fantastic!! thanks!!

[Fabricio28]

Perhaps a bit more so X & Y can vary, could add default values if do all the time or as per image.

Code: [Select]

(defun c:test ( / p )
(setq xy (list  (getreal "\nEnter x ") (getreal "\nEnter Y ")))
    (if (setq p (getpoint "\nSpecify point: "))
        (entmake (list '(0 . "POINT") (cons 10 (trans (mapcar '+ p xy) 1 0))))
    )
    (princ)
)


It is very nice!!
input the distance before!! Thanks

[Fabricio28]

Hi guys

How are you?

There is not anything wrong about the code.

It is insert a point to x=1 and y=1. But in some case ins't working properly, just like the example bellow:

Anybody could help me please?

Thanks
Fabricio

[Tharwat]

Code - Auto/Visual Lisp: [Select]

1. (defun c:Test (/ p d g)
2.   (or (not (zerop (getvar 'PDMODE))) (setvar 'PDMODE 3))
3.   (and (setq p (getpoint "\nSpecify a point : "))
4.        (setq d (getpoint "\nSpecify X direction : " p))
5.        (setq g (angle p d))
6.        (entmake
7.          (list '(0 . "POINT")
8.                (cons 10 (polar (polar p g 1.0) (+ g (* pi 0.5)) 1.0))
9.          )
10.        )
11.   )
12.   (princ)
13. )

[Fabricio28]

Code - Auto/Visual Lisp: [Select]

1. (defun c:Test (/ p d g)
2.   (or (not (zerop (getvar 'PDMODE))) (setvar 'PDMODE 3))
3.   (and (setq p (getpoint "\nSpecify a point : "))
4.        (setq d (getpoint "\nSpecify X direction : " p))
5.        (setq g (angle p d))
6.        (entmake
7.          (list '(0 . "POINT")
8.                (cons 10 (polar (polar p g 1.0) (+ g (* pi 0.5)) 1.0))
9.          )
10.        )
11.   )
12.   (princ)
13. )

Thank you very much for replay

But I have many situation to insert this point. Unfortunately not a default.

maybe if I set the measure x and y (negative or positive) will be great!

Could you help me please?

Thanks

[Tharwat]

If you have the list of coordinates then you can iterate through each point with angle and distance as I did in my last reply.

[Fabricio28]

If you have the list of coordinates then you can iterate through each point with angle and distance as I did in my last reply.

Sorry if I don't understand what you meant, but I  don't have a list of the coordinates. I'm inserting it manually.

Regards

[Tharwat]

If so then you can specify the angle in the routine as indicated in the codes below and change it to suit yours.

Code - Auto/Visual Lisp: [Select]

1. (defun c:Test (/ p g)
2.   (or (not (zerop (getvar 'PDMODE))) (setvar 'PDMODE 3))
3.   (and (setq p (getpoint "\nSpecify a point : "))
4.        (setq g (* pi 0.25)) ;; = 45 Degree
5.        (entmake
6.          (list '(0 . "POINT")
7.                (cons 10 (polar (polar p g 1.0) (+ g (* pi 0.5)) 1.0))
8.          )
9.        )
10.   )
11.   (princ)
12. )
13.  

[Fabricio28]

If so then you can specify the angle in the routine as indicated in the codes below and change it to suit yours.

Code - Auto/Visual Lisp: [Select]

1. (defun c:Test (/ p g)
2.   (or (not (zerop (getvar 'PDMODE))) (setvar 'PDMODE 3))
3.   (and (setq p (getpoint "\nSpecify a point : "))
4.        (setq g (* pi 0.25)) ;; = 45 Degree
5.        (entmake
6.          (list '(0 . "POINT")
7.                (cons 10 (polar (polar p g 1.0) (+ g (* pi 0.5)) 1.0))
8.          )
9.        )
10.   )
11.   (princ)
12. )
13.  

Great!! Thank very much!!

When I changed the angle worked fine!!

Regards

[Tharwat]

You're welcome anytime.

Good luck with your work.