want lisp Subdivide land to equal areas by equal frontage length on road

[mohamed_kamel_cad]

hi all

i want lisp can  Subdivide land to equal areas by equal frontage length on road .

lisp ask me the frontage the i choose from drawing 

then lisp ask me the length on frontage and i write the number

then ask about angel i choose from drawing start of line and end of line or write number

then ask me the area i want . 

then finish subdivide to equal areas and equal frontage ,if found  last land not equal to the number i insert ,make it as it found

[m_salazarEYAVY]

---

@mohamed_kamel_cad wrote:

then ask me the area i want . 

---

Is that the place where dimension will be located? 

[m_salazarEYAVY]

try this [ minimally tested of hey ]

(defun c:Demo ( / frontage frontageLength firstPoint secondPoint frontageAngle startOfFrontage endOfFrontage nextPoint)
  (if (and
	;;	lisp ask me the frontage the i choose from drawing
	(setq frontage (car (entsel "\nSelect Frontage")))
	;;	then lisp ask me the length on frontage and i write the number
	(setq frontageLength (getdist "\nEntger Frontage length: "))
	;;	then ask about angel i choose from drawing start of line and end of line or write number
	(setq firstPoint (getpoint "\First point for angle"))
	(setq secondPoint (getpoint firstPoint "\Second point for angle"))
	(setq frontageAngle (angle firstPoint secondPoint))
	;;	then ask me the area i want .
	(setq dimensionLocation (getpoint "\nPick point for location of dimension"))
	)
    (progn
      (setq startOfFrontage (vlax-curve-getDistAtPoint frontage firstPoint)
	     endOfFrontage (vlax-curve-getDistAtPoint frontage secondPoint))
      (setq endOfFrontage (if (zerop endOfFrontage) (vlax-curve-getDistAtParam frontage (vlax-curve-getEndParam frontage)) endOfFrontage  ))
      
      (repeat (fix ( /  ( - endOfFrontage startOfFrontage) frontageLength))      
      	(setq nextPoint  (vlax-curve-getPointAtDist frontage (+ frontageLength  (vlax-curve-getDistAtPoint frontage firstPoint))))
	(command "_dimaligned" "_non"  firstPoint "_non" nextPoint dimensionLocation)
	(setq firstPoint nextPoint)
	)      
     	(command "_dimaligned" "_non"  firstPoint "_non" secondPoint dimensionLocation)
      )
    )
  (princ)
  )

[mohamed_kamel_cad]

thank you for your help

i need divided the land to parts and draw polygon ,

lisp ask me what area i need . and then

what frontage i length i need

then make calculations and divided it to to parts and draw polygon every land area equal to the other one  

[john.uhden]

@mohamed_kamel_cad ,

You mention nothing about the rear property line or depth.

You must have a closed figure to have an area.

Or do you mean to solve for the rear property line?

But is the rear line supposed to be parallel to or concentric with the front line/arc?

I've designed a lot of subdivisions over my career, and I've created hundreds of AutoLisp routines to replace tedious methods, but in my region (NJ, USA) there are a lot of other geometric requirements that are not all the same for every town.  It requires manual manipulation to meet all the criteria while trying to maximize the density.

[john.uhden]

@mohamed_kamel_cad ,

I finally looked at your image.

I see your example provides 25m of frontage, but a computed depth of only 11.2m.  That seems like a very short distance to fit a dwelling on.  What are your typical house dimensions?  What is the front setback requirement?

[Sea-Haven]

Like John there are subdivision tools for lot creation, having used them like Frontage & Area, Frontage & angle swing, to mention a couple. As john pointed out need a 2nd rule you have frontage so depth would equal / area frontage, but that is a simple calc what happens when a corner is not 90 ? You can still have 25 front but side boundary has to be a swing bearing till area matches desired, the next lot is impacted and so on. When you get a court bowl you have to use a swing bearing extending to a rear boundary which can involve going to an extra rear line when comparing area.

Agree John Area is small 280 sq m.

Lastly did you google ? Has been asked for before, there are calc polygon to match area, some one may post a link.

[diagodose2009]

Your drawinf are line-to-slope , too obligqu on internal lines.

All 3 internal lines are obliglue too much?