Jump to content

altitude by color - hypsomtric gradient

teknomatika

By teknomatika
in AutoLISP, Visual LISP & DCL

 Share

Recommended Posts

teknomatika Rising Star

teknomatika

Posted
Posted

I found an interesting routine that allows coloring 3Dfaces a survey, according to altitude.

By chance, someone knows a similar routine but which takes into account the contours/curves?

 

(See image with the results of routine indicated)

cadtutor_exp2.jpg

  • Replies 20
  • Created
  • Last Reply

Top Posters In This Topic

  • teknomatika

    9

  • Lee Mac

    4

  • irneb

    4

  • BIGAL

    2

Popular Days

Top Posters In This Topic

Popular Days

Posted Images

Lee Mac Grand Master

Lee Mac

Posted
Posted

Are the curves LWPolylines with elevation, or 3D Polylines with varying elevation?

teknomatika Rising Star

teknomatika

Posted
  • Author
Posted
Are the curves LWPolylines with elevation, or 3D Polylines with varying elevation?

 

Lee, LWPolylines with elevation.

BIGAL Grand Master

BIGAL

Posted
Posted

Civ 3d will let you make rainbows of surfaces one of its display style options is colour rather than lines you make the choice of how many "bands" you want.

irneb Mentor

irneb

Posted
Posted
Lee, LWPolylines with elevation.
Then the idea is to obtain each LWPoly's elevation Z value: Various ways, but IMO simplest way would be to use entget to extract the PL's DXF codes, then use assoc with code 38 on that.

 

Then you'll need to figure out how the colours are to be varying from level to level:

 

  1. What are the lowest & highest?
  2. How will the colours change between these?
  3. Are there certain levels where a new algorithm for the colour becomes effective?
  4. Will you use colour gradients - i.e. RGB colours instead of ACI?

After that you modify the DXF data list (using entmod) adding the ACI colour to code 62, or the RGB colour to 420.

BIGAL Grand Master

BIGAL

Posted
Posted

Something like this has been asked before here. Take your max min then divide by a step size this gives increment of colour if you use the simple by color approach colours 10-250 then its pretty easy to work out a colour number for the object. RGB is better shades but a bit harder to work out.

teknomatika Rising Star

teknomatika

Posted
  • Author
Posted
Then the idea is to obtain each LWPoly's elevation Z value: Various ways, but IMO simplest way would be to use entget to extract the PL's DXF codes, then use assoc with code 38 on that.

 

Then you'll need to figure out how the colours are to be varying from level to level:

 

  1. What are the lowest & highest?
  2. How will the colours change between these?
  3. Are there certain levels where a new algorithm for the colour becomes effective?
  4. Will you use colour gradients - i.e. RGB colours instead of ACI?

After that you modify the DXF data list (using entmod) adding the ACI colour to code 62, or the RGB colour to 420.

 

Yes, I believe the solution is to get the z value of each lwpolylinha and assign that value a color gradient, eventually leaving a light tone to the lowest values ​​for a dark tone to the highest values​​.

Following the example of the routine that I mentioned, it would be great to have options for various color palettes.

Eventually, there may be an option to set intervals between the maximum and minimum Z Z, where each interval would apply one color.

irneb Mentor

irneb

Posted
Posted

Here's an extremely simplistic version just using ACI colour numbers starting from 10 to 199 - placed from lowest to highest.

(vl-load-com)
(setq *PLColor:ACI_Range* '(10 . 199)
     *PLColor:Z_Range* '(0.0 . 100.0))
(defun PLColour:CalcColour (elevation / z aci)
 (setq z (- (cdr *PLColor:Z_Range*) (car *PLColor:Z_Range*) -1.0)
       z (/ (rem elevation z) z))
 (+ (car *PLColor:ACI_Range*) (fix (* (- (cdr *PLColor:ACI_Range*) (car *PLColor:ACI_Range*)) z))))

(defun c:PLColour (/ ss eList minZ maxZ)
 (if (and (ssget '((0 . "LWPOLYLINE")))
          (setq ss (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))))
   (progn (setq minZ 1.7976931348623158e308 maxZ -1.7976931348623158e308)
     (vlax-for eo ss
       (setq eList (cons eo eList)
             minZ (min (vla-get-Elevation eo) minZ)
             maxZ (max (vla-get-Elevation eo) maxZ)))
     (setq *PLColor:Z_Range* (cons minZ maxZ))
     (foreach eo eList (vla-put-Color eo (PLColour:CalcColour (vla-get-Elevation eo))))
     (vla-Delete ss)))
 (princ))

teknomatika Rising Star

teknomatika

Posted
  • Author
Posted

irneb, tanks for the help.

 

Unfortunately it seems not to be working. Reports the following error:

; error: An error has occurred inside the *error* functionAutoCAD variable

setting rejected: "cmdecho" nil

 

Also this:

; error: Automation Error. Invalid argument color in IAcadEntity::put_Color

 

Am I doing something wrong?:oops:

irneb Mentor

irneb

Posted
Posted

Which version of ACad are you using? Or is it a vertical / clone?

teknomatika Rising Star

teknomatika

Posted
  • Author
Posted
Which version of ACad are you using? Or is it a vertical / clone?

 

autocad 2009 licensee

irneb Mentor

irneb

Posted
Posted

I'm actually having an issue here. On my 2012 it works perfectly fine with those VLA methods, but when I use entmod - nothing happens at all. See if this command-call works on yours:

(defun c:PLColour  (/ ss n ed z eList minZ maxZ)
 (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   (progn (setq minZ 1.7976931348623158e308
                maxZ -1.7976931348623158e308)
          (repeat (setq n (sslength ss))
            (setq eList (cons (setq ed (entget (ssname ss (setq n (1- n))))) eList)
                  z (cond ((cdr (assoc 38 ed))) (0.0))
                  minZ  (min z minZ)
                  maxZ  (max z maxZ)))
          (setq *PLColor:Z_Range* (cons minZ maxZ))
          (foreach ed eList
            (setq z (cond ((cdr (assoc 38 ed))) (0.0)))
            (entmod (list (assoc -1 ed) (cons 62 (PLColour:CalcColour z)))))))
 (princ))

Just replace the other c:PLColour defun.

teknomatika Rising Star

teknomatika

Posted
  • Author
Posted 

(vl-load-com)
(setq *PLColor:ACI_Range* '(10 . 199)
     *PLColor:Z_Range* '(0.0 . 100.0))
(defun PLColour:CalcColour (elevation / z aci)
 (setq z (- (cdr *PLColor:Z_Range*) (car *PLColor:Z_Range*) -1.0)
       z (/ (rem elevation z) z))
 (+ (car *PLColor:ACI_Range*) (fix (* (- (cdr *PLColor:ACI_Range*) (car *PLColor:ACI_Range*)) z))))


(defun c:PLColour  (/ ss n ed z eList minZ maxZ)
 (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   (progn (setq minZ 1.7976931348623158e308
                maxZ -1.7976931348623158e308)
          (repeat (setq n (sslength ss))
            (setq eList (cons (setq ed (entget (ssname ss (setq n (1- n))))) eList)
                  z (cond ((cdr (assoc 38 ed))) (0.0))
                  minZ  (min z minZ)
                  maxZ  (max z maxZ)))
          (setq *PLColor:Z_Range* (cons minZ maxZ))
          (foreach ed eList
            (setq z (cond ((cdr (assoc 38 ed))) (0.0)))
            (entmod (list (assoc -1 ed) (cons 62 (PLColour:CalcColour z)))))))
 (princ))

 

Still does not work.

In order to understand better, I attached the file that was being tested.

cadforum_test.dwg

David Bethel Grand Master

David Bethel

Posted
Posted (edited)

Maybe:

 

[b][color=BLACK]([/color][/b]defun c:clbyz [b][color=FUCHSIA]([/color][/b]/ ss i en ed vl minz maxz delt ev pc el[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"LWPOLYLINE"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq i [b][color=MAROON]([/color][/b]sslength ss[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]minusp [b][color=BLUE]([/color][/b]setq i [b][color=RED]([/color][/b]1- i[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
           [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b]
                 ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]
                 vl [b][color=GREEN]([/color][/b]cons [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 38 ed[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] vl[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq minz [b][color=MAROON]([/color][/b]apply 'min vl[b][color=MAROON])[/color][/b]
          maxz [b][color=MAROON]([/color][/b]apply 'max vl[b][color=MAROON])[/color][/b]
          delt [b][color=MAROON]([/color][/b]- maxz minz[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    (not (zerop delt))
    [b][color=NAVY]([/color][/b]setq i [b][color=MAROON]([/color][/b]sslength ss[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]minusp [b][color=BLUE]([/color][/b]setq i [b][color=RED]([/color][/b]1- i[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
           [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b]
                 ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]
                 ev [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 38 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                 pc [b][color=GREEN]([/color][/b]/ [b][color=BLUE]([/color][/b]- maxz ev[b][color=BLUE])[/color][/b] delt[b][color=GREEN])[/color][/b]
                 cl [b][color=GREEN]([/color][/b]- 250 [b][color=BLUE]([/color][/b]1+ [b][color=RED]([/color][/b]fix [b][color=PURPLE]([/color][/b]* 238 pc[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
           [b][color=MAROON]([/color][/b]entmod [b][color=GREEN]([/color][/b]append ed [b][color=BLUE]([/color][/b]list [b][color=RED]([/color][/b]cons 62 cl[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
           [b][color=MAROON]([/color][/b]princ [b][color=GREEN]([/color][/b]strcat [color=#2f4f4f]"\n"[/color] [b][color=BLUE]([/color][/b]rtos cl 2 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

 

 

-David

Edited by David Bethel
teknomatika Rising Star

teknomatika

Posted
  • Author
Posted

David,

tanks for the help.

 

In basic objective works perfectly.

However, in the selection, i would appreciate that in addition to LWPOLYLINES, it was also possible to consider the LINES

Lee Mac Grand Master

Lee Mac

Posted
Posted

Here is another variation:

[color=GREEN];; Elevation Colour Map  -  Lee Mac[/color]
([color=BLUE]defun[/color] c:emap ( [color=BLUE]/[/color] cmax cmin elv elm enx evl inc lst sel )
   ([color=BLUE]setq[/color] cmin 130
         cmax 170
   )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] sel ([color=BLUE]ssget[/color] [color=MAROON]"_:L"[/color] '((0 . [color=MAROON]"LWPOLYLINE"[/color]))))
       ([color=BLUE]progn[/color]
           ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] inc ([color=BLUE]sslength[/color] sel))
               ([color=BLUE]setq[/color] enx ([color=BLUE]entget[/color] ([color=BLUE]ssname[/color] sel ([color=BLUE]setq[/color] inc ([color=BLUE]1-[/color] inc))))
                     elv ([color=BLUE]cdr[/color]  ([color=BLUE]assoc[/color] 38 enx))
                     lst ([color=BLUE]cons[/color] ([color=BLUE]cons[/color] elv enx) lst)
                     evl ([color=BLUE]cons[/color] elv evl)
               )
           )
           ([color=BLUE]setq[/color] elm ([color=BLUE]apply[/color] '[color=BLUE]min[/color] evl)
                 inc ([color=BLUE]/[/color] ([color=BLUE]-[/color] ([color=BLUE]apply[/color] '[color=BLUE]max[/color] evl) elm) ([color=BLUE]-[/color] cmax cmin))
           )
           ([color=BLUE]foreach[/color] itm lst
               ([color=BLUE]entmod[/color] ([color=BLUE]append[/color] ([color=BLUE]cdr[/color] itm) ([color=BLUE]list[/color] ([color=BLUE]cons[/color] 62 ([color=BLUE]+[/color] cmin ([color=BLUE]fix[/color] ([color=BLUE]/[/color] ([color=BLUE]-[/color] ([color=BLUE]car[/color] itm) elm) inc)))))))
           )
       )
   )
   ([color=BLUE]princ[/color])
)

Specify the colour range at the top of the code (colours must be between 1-255 [inclusive] and cmin cannot equal cmax).

David Bethel Grand Master

David Bethel

Posted
Posted
David,

tanks for the help.

 

In basic objective works perfectly.

However, in the selection, i would appreciate that in addition to LWPOLYLINES, it was also possible to consider the LINES

 

Not without a lot of work. I'd try to PEDIT the lines prior to calling the routine. -David

teknomatika Rising Star

teknomatika

Posted
  • Author
Posted

Lee, thanks for the help.

It also works perfectly.

 

The option to set the range of colors is equally interesting.

As I said in relation to the code of David, would be also interesting to extend the selection lines.

 

Tanks!

Lee Mac Grand Master

Lee Mac

Posted
Posted
However, in the selection, i would appreciate that in addition to LWPOLYLINES, it was also possible to consider the LINES

 

Lines are not planar objects and hence do not define an elevation. As David suggests, I would convert any lines to LWPolylines using the PEDIT command with the option to Join lines with coincident endpoints to form continuous planar LWPolylines.

teknomatika Rising Star

teknomatika

Posted
  • Author
Posted

Lee and David.

 

I appreciate the explanation.

However, your work now matches what I needed.

 

Thank you for your availability and interest shown.

Tanks also to irneb.

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...