Jump to content

Anyone know a lisp for....

tcolborn

By tcolborn
in AutoLISP, Visual LISP & DCL

 Share

Recommended Posts

tcolborn Rookie

tcolborn

Posted
Posted

I am doing landscape plans and I need a lisp routine that can help me with the plant quantities for polyline areas. I need it to take the square footage and have a multiplier for specified areas

 

i.e.

 

plants spaced on center multiplier

8" 2.60

12" 1.15

15" 0.64

18" 0.50

24" 0.28

30" 0.18

 

So if I had an area of 100sf that I was planting 12" on center plants

I would multiply 100 x 1.15 to get 11.5 plants

 

Is there a routine that can be written to select the polyline use it's area then I can enter the on center spacing and it will input the multiplier and give me my plant quantity?

 

Thanks:oops:

  • Replies 23
  • Created
  • Last Reply

Top Posters In This Topic

  • Lee Mac

    8

  • tcolborn

    8

  • ronjonp

    4

  • TimSpangler

    3

Popular Days

Top Posters In This Topic

Popular Days

Lee Mac Grand Master

Lee Mac

Posted
Posted

Just a quick one:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:plant [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] cEnt cArea Plnt ans[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] plnt:def [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] plnt:def [b][color=#ff00ff]"8"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cEnt [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entsel[/color][/b] [b][color=#ff00ff]"\nSelect Polyline: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]member[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]0[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] cEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                     [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"CIRCLE"[/color][/b] [b][color=#ff00ff]"ELLIPSE"[/color][/b] [b][color=#ff00ff]"LWPOLYLINE"[/color][/b] [b][color=#ff00ff]"POLYLINE"[/color][/b] [b][color=#ff00ff]"REGION"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cArea [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Area[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b] cEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#ff00ff]"8 12 15 24 30"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] Plnt [b][color=RED]([/color][/b][b][color=BLUE]getkword[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nArea is: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] cArea[b][color=RED])[/color][/b]
                                [b][color=#ff00ff]"\nSelect Center Spacing <"[/color][/b] plnt:def [b][color=#ff00ff]">: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] Plnt[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] plnt:def Plnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ans [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] cArea
                [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"8"[/color][/b]  plnt:def[b][color=RED])[/color][/b] [b][color=#009999]2.60[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"12"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]1.15[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"15"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.64[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"18"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.50[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"24"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.28[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"30"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.18[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nPlant No: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] ans[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

ronjonp Grand Master

ronjonp

Posted
Posted 
(defun c:unameit (/ e area)
 (vl-load-com)
 (if (setq e (ssget '((0 . "LWPOLYLINE"))))
   (progn (setq e (vlax-ename->vla-object (ssname e 0)))
          (setq area (vla-get-area e))
          (if (zerop area)
            (alert "Zero area!")
            (alert (strcat "\n08'' - "
                           (rtos (* area 2.6))
                           "\n12'' - "
                           (rtos (* area 1.15))
                           "\n15'' - "
                           (rtos (* area 0.64))
                           "\n18'' - "
                           (rtos (* area 0.50))
                           "\n24'' - "
                           (rtos (* area 0.28))
                           "\n36'' - "
                           (rtos (* area 0.18))
                   )
            )
          )
   )
 )
 (princ)
)

tcolborn Rookie

tcolborn

Posted
  • Author
Posted

ronjonp and lee mac both your codes worked great thank you so much. I was hoping it would label the area but the pop up and command line works just as good.

 

This is the code I used before when I only had to label sf and ac I tried to modify it myself to do what you all created but was unsuccessful I was trying to get it to label sf and then the qty of plants

 

(defun c:larea (/ hgt pt1 sf ac pt2)

(prompt " \nSelect Polygon: ")

(command "area" "e" pause)

(setq sf (getvar "area"))

(setq ac (/ sf 43560))

(setq sf (rtos sf))

(setq ac (rtos ac 2 2))

(setq sf (strcat sf " S.F."))

(setq ac (strcat ac " Ac."))

(setq pt1 (getpoint "\nEnter Text Insertion Point: "))

(command "text" "M" pt1 0 sf)

(command "text" "" ac)

)

Lee Mac Grand Master

Lee Mac

Posted
Posted

Just a quick modification, let me know if anything needs changing:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:plant [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] cEnt cArea Plnt ans[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] plnt:def [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] plnt:def [b][color=#ff00ff]"8"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cEnt [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entsel[/color][/b] [b][color=#ff00ff]"\nSelect Polyline: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]member[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]0[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] cEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                     [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"CIRCLE"[/color][/b] [b][color=#ff00ff]"ELLIPSE"[/color][/b] [b][color=#ff00ff]"LWPOLYLINE"[/color][/b] [b][color=#ff00ff]"POLYLINE"[/color][/b] [b][color=#ff00ff]"REGION"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cArea [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Area[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b] cEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#ff00ff]"8 12 15 24 30"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] Plnt [b][color=RED]([/color][/b][b][color=BLUE]getkword[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nArea is: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] cArea[b][color=RED])[/color][/b]
                                [b][color=#ff00ff]"\nSelect Center Spacing <"[/color][/b] plnt:def [b][color=#ff00ff]">: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] Plnt[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] plnt:def Plnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ans [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] cArea
                [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"8"[/color][/b]  plnt:def[b][color=RED])[/color][/b] [b][color=#009999]2.60[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"12"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]1.15[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"15"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.64[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"18"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.50[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"24"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.28[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"30"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.18[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
         tPt [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect Point for Area Text: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b]Make_Text tPt [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] cArea[b][color=RED])[/color][/b] [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b]Make_Text [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] tPt [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]3[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009999]2.0[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]TEXTSIZE[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] cArea [b][color=#009999]43560.0[/color][/b][b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nPlant No: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] ans[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] Make_Text  [b][color=RED]([/color][/b]pt val rot[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]entmake[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"TEXT"[/color][/b][b][color=RED])[/color][/b]
        [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]8[/color][/b] . [b][color=#ff00ff]"TEXT"[/color][/b][b][color=RED])[/color][/b]
        [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]62[/color][/b] . [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt[b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]40[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"TEXTSIZE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] val[b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]50[/color][/b] rot[b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]7[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"TEXTSTYLE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
        [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]71[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
        [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]72[/color][/b] . [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
        [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]73[/color][/b] . [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]11[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

tcolborn Rookie

tcolborn

Posted
  • Author
Posted

Lee Mac, it puts the same qty no matter what size I pick. I think it's only labeling the sf and acres I don't need acres just sf and plant qty. If you can tweek it can you also have it say sf after the square feet calc.

Lee Mac Grand Master

Lee Mac

Posted
Posted

I was just trying to follow the LISP you posted as best as possible:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:plant [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] cEnt cArea Plnt ans[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] plnt:def [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] plnt:def [b][color=#ff00ff]"8"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cEnt [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entsel[/color][/b] [b][color=#ff00ff]"\nSelect Polyline: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]member[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]0[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] cEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
                     [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"CIRCLE"[/color][/b] [b][color=#ff00ff]"ELLIPSE"[/color][/b] [b][color=#ff00ff]"LWPOLYLINE"[/color][/b] [b][color=#ff00ff]"POLYLINE"[/color][/b] [b][color=#ff00ff]"REGION"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cArea [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Area[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b] cEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#ff00ff]"8 12 15 24 30"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] Plnt [b][color=RED]([/color][/b][b][color=BLUE]getkword[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nArea is: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] cArea[b][color=RED])[/color][/b]
                                [b][color=#ff00ff]"\nSelect Center Spacing <"[/color][/b] plnt:def [b][color=#ff00ff]">: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] Plnt[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] plnt:def Plnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ans [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] cArea
                [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"8"[/color][/b]  plnt:def[b][color=RED])[/color][/b] [b][color=#009999]2.60[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"12"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]1.15[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"15"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.64[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"18"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.50[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"24"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.28[/color][/b][b][color=RED])[/color][/b]
                      [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"30"[/color][/b] plnt:def[b][color=RED])[/color][/b] [b][color=#009999]0.18[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
         tPt [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect Point for Area Text: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b]Make_Text tPt [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] cArea[b][color=RED])[/color][/b] [b][color=#ff00ff]" S.F."[/color][/b][b][color=RED])[/color][/b] [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b]Make_Text [b][color=RED]([/color][/b][b][color=BLUE]polar[/color][/b] tPt [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009900]3[/color][/b] pi[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] [b][color=#009999]2.0[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]TEXTSIZE[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] ans [b][color=#009900]2[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b] [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nPlant No: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] ans[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] Make_Text  [b][color=RED]([/color][/b]pt val rot[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]entmake[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"TEXT"[/color][/b][b][color=RED])[/color][/b]
        [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]8[/color][/b] . [b][color=#ff00ff]"TEXT"[/color][/b][b][color=RED])[/color][/b]
        [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]62[/color][/b] . [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt[b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]40[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"TEXTSIZE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] val[b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]50[/color][/b] rot[b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]7[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"TEXTSTYLE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
        [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]71[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
        [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]72[/color][/b] . [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
        [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]73[/color][/b] . [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]11[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

tcolborn Rookie

tcolborn

Posted
  • Author
Posted

Lee Mac, you are awesome worked perfectly. Thank you so much. This will help me out greatly.

 

Tiffany

ReMark Grand Master

ReMark

Posted
Posted

"Heavy is the head that wears the crown."

Lee Mac Grand Master

Lee Mac

Posted
Posted
Lee Mac, you are awesome worked perfectly. Thank you so much. This will help me out greatly.

 

Tiffany

 

Excellent :D

 

Glad it works for you :)

 

Lee

TimSpangler Collaborator

TimSpangler

Posted
Posted

Lee

 

What are you using to syntax color your code?

Lee Mac Grand Master

Lee Mac

Posted
Posted

Hey Tim,

 

I use a LISP that I modified (originally from David Bethel), that I run the code through to add the colour tags :D

TimSpangler Collaborator

TimSpangler

Posted
Posted

I think I remember seeing that somewhere.

TimSpangler Collaborator

TimSpangler

Posted
Posted

Thanks Lee, I'll check it out.....

tcolborn Rookie

tcolborn

Posted
  • Author
Posted

Okay so I ran into a snag with this lisp. It works perfect if I'm using decimal units but not so good if I'm using Architectural or Engineering Units. Is there anyway to make it work for the Engineering units in CAD?

tcolborn Rookie

tcolborn

Posted
  • Author
Posted

Okay so I ran into a snag with this lisp. It works perfect if I'm using decimal units but not so good if I'm using Architectural or Engineering Units. Is there anyway to make it work for the Engineering units in CAD?

ronjonp Grand Master

ronjonp

Posted
Posted

Add this: (if (> (getvar 'lunits) 2)

(setq carea (/ carea 144.))

)

 

Under this line:

 

(setq cArea (vla-get-Area

(vlax-ename->vla-object cEnt)))

 

To get area in feet (assuming your units are set correctly)

tcolborn Rookie

tcolborn

Posted
  • Author
Posted

I tried adding it in but end up with an error guess I'm not so good at modifying a lisp lol

 

Select Polyline: ; error: no function definition: VLAX-ENAME->VLA-OBJECT

 

Tiffany

ronjonp Grand Master

ronjonp

Posted
Posted

add this to the top of Lee's code:

 

(vl-load-com)

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing
×
×
  • Create New...