Divding two points into specifi width and height of rectangle

[ganeshgatkul1]

Please help me for lisp program 

If I select 2 points on screen and it's split int rectangles fo witdh 600 500 450 400 360 350 300 280 275 260 250 225 200 and specific height and widht and hight text into it

[Kent1Cooper]

---

@ganeshgatkul1 wrote:

how to reduce text height to 100 or 90 rotate 90 degree

---

The text height is defined as half the "box" height, in this line:

(cons 40 (/ h 2))

You can give it any constant height you want, e.g. for 100:

(cons 40 100.0)

or, if you prefer:

'(40 . 100.0)

On the rotation, would you always want all Text rotated 90°, or only if the box is narrower than a certain amount, or with some other criterion?

[ronjonp]

---

@ganeshgatkul1 wrote:

how to reduce text height to 100 or 90 rotate 90 degree

---

If you want the text height hard coded to 100 change this:

(cons 40 (/ h 2))

 to this:

'(40 . 100)

For 90 degrees rotation use the rotate command 😉

[ganeshgatkul1]

1. can you change the 1st and 2nd point as shown in image

2. their is problem when the distance between two point is 670 then rectanle of witdh 500 and 170 has to come but it draw 600 width rectangle 

3. if i have to draw rectangle paller to y axis but which is not working

[ganeshgatkul1]

for rotating text i have to change 

(50 . 0.)

to this 

(50 . 1.57.)

😅