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.

[Lee Mac]

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

Align your UCS with the surrounding geometry, and then use my program to calculate & create a point offset by 1,1 relative to the current UCS.

[BIGAL]

Following on from Lee's suggestion this is a roughy answer, it does depend on the end picked for +- y . You may need to look at what osnap settings need to be set no real dwg to test. Tested on lines. If picking plines must exit and redo as it depends on segment picked. Enter Enter not that hard.

Code: [Select]

; point at x y offset from line by AlanH Feb 2021

(defun c:test ( / pt xy )
(command "UCS" "World")
(setq xy (list  (getreal "\nEnter x ") (getreal "\nEnter Y ")))
(while (setq pt (getpoint "\nSpecify point: Enter to exit "))
(setq pt (list (car pt)(cadr pt) 0.0))
(command "UCS" "OB" pt)
(command "UCS" "Origin" (trans (list (car pt)(cadr pt) 0.0) 0 1))
(command "POINT" xy)
(command "UCS" "World")
)
(princ)
)
[code]

[Fabricio28]

Following on from Lee's suggestion this is a roughy answer, it does depend on the end picked for +- y . You may need to look at what osnap settings need to be set no real dwg to test. Tested on lines. If picking plines must exit and redo as it depends on segment picked. Enter Enter not that hard.

Code: [Select]

; point at x y offset from line by AlanH Feb 2021

(defun c:test ( / pt xy )
(command "UCS" "World")
(setq xy (list  (getreal "\nEnter x ") (getreal "\nEnter Y ")))
(while (setq pt (getpoint "\nSpecify point: Enter to exit "))
(setq pt (list (car pt)(cadr pt) 0.0))
(command "UCS" "OB" pt)
(command "UCS" "Origin" (trans (list (car pt)(cadr pt) 0.0) 0 1))
(command "POINT" xy)
(command "UCS" "World")
)
(princ)
)
[code]

Sorry for delay to answer you, BIGAL.

I've tested the code and worked like a charm!!!

Thank you very much all of you guys for the support. It is save me a lot of time.

Regards
Fabricio