Getting points locations at devided distance

[Michaels]

Suppose that I have a room and I want to divide it into specific points.
My codes are running well up to the crossing points. I mean How can I support
the X and Y for the divided points at X and Y as well ?

(defun c:cen (/ pt1 pt3 pt2 pt4 XLen YLen Xnum Ynum)
  (setq pt1 (getpoint"\n Specify The Left corner: ")
	pt3 (getcorner pt1 "\n Specify the Right corner: ")
	)
  ;; ******** the rest of rectangl points ****************
  (setq pt2 (list (car pt3)(cadr pt1))
	pt4 (list (car pt1)(cadr pt3))
	)
  ;; ****** Lengths of X and Y **************
  (setq XLen (distance pt1 pt2)
	YLen (distance pt1 pt4)
	)
  ;; ****** divide the X and Y **************
  (setq Xnum (getint "\n Specify Number of X elements: ");; for instance 5
	Ynum (getint "\n Specify Number of Y elements: ");; for instance 4
	)

[JohnM]

Could you explain in more detail?
Do you just want to collect the point of the intersections of the x’s and y’s?
Use the polar function and the repeat function

[BIGAL]

Can not see any problem you just need a loop within a loop

(repeat Xnum
(repeat ynum
( do your thing here)
)
(setq xnum (+ xnum Xlen))
)

[Michaels]

The crosses in RED are what I would like to get. Although these points
are would be changed according to user input.

Many thanks

Michaels

[fixo]

I wrote this lisp for enforcements some moons ago
Looks like this is exactly what you looking for
Change to suit

~'J'~

[Michaels]

I wrote this lisp for enforcements some moons ago
Looks like this is exactly what you looking for
Change to suit~'J'~

Thanks fixo,

I have two questions about your codes ,
- Why did you use the following since you didn't use it later in the routine ?
- And what does it mean?

pc (mapcar (function (lambda (x y)(* (+ x y) 0.5)))

It is really works fine, But I am looking forward to learing how codes are running and should be built with according to user inputs.

Any suggestion from any one would be highly appreciated.

Regards

[fixo]

Sorry,
I can't to expalin the things good because of my english level
and by this reason I'm afraid to mix something
Feel free to change the code to your suit

~'J'~

[Michaels]

Sorry,
I can't to expalin the things good because of my english level
and by this reason I'm afraid to mix something
Feel free to change the code to your suit
~'J'~

Thank you so much for your reply.

I do understand.

Best Regards,

[Michaels]

Hello,

I still worndering how to get the intersection points in the pose.

Any idea ?

Best regards,

[JohnM]

what are you not understanding?
do you know how to use the polar and repeat functions?