« previous next »
Pages: [1] |   Go Down

Author Topic: 3D Polyline Along a Surface  (Read 2355 times)

0 Members and 1 Guest are viewing this topic.

PM

  • Guest
3D Polyline Along a Surface
« on: December 23, 2020, 11:19:11 AM »
hI I am searching for a lisp to draw 3D Polyline Along a Surface.

Thanks
Logged

ribarm

  • Gator
  • Posts: 3279
  • Marko Ribar, architect
Re: 3D Polyline Along a Surface
« Reply #1 on: December 23, 2020, 11:33:10 AM »
You mean curve along Surface - look into PROJECTGEOMETRY command...
[EDIT : You also have SURFEXTRACTCURVE command that operates on SURFACE entity...]

Or you mean to project 3D POLYLINE on TIN surface made from triangular 3DFACES...
Then look into attachment in this post :
http://www.theswamp.org/index.php?topic=9042.msg576276#msg576276
« Last Edit: December 23, 2020, 11:39:51 AM by ribarm »
Logged
Marko Ribar, d.i.a. (graduated engineer of architecture)

:)

M.R. on Youtube

PM

  • Guest
Re: 3D Polyline Along a Surface
« Reply #2 on: December 25, 2020, 09:23:12 AM »
I want to draw a polyline over contours and become a 3d polyline. Because i want to use this 3dpolyline to create longsections

Thanks
Logged

ribarm

  • Gator
  • Posts: 3279
  • Marko Ribar, architect
Re: 3D Polyline Along a Surface
« Reply #3 on: December 25, 2020, 09:57:02 AM »
Quote from: PM on December 25, 2020, 09:23:12 AM
I want to draw a polyline over contours and become a 3d polyline. Because i want to use this 3dpolyline to create longsections

Thanks

Here is another link for you to look... It may be helpful...
https://www.cadtutor.net/forum/topic/63122-longitudinal-profile-from-3d-polyline/?do=findComment&comment=521325
Logged
Marko Ribar, d.i.a. (graduated engineer of architecture)

:)

M.R. on Youtube

PM

  • Guest
Re: 3D Polyline Along a Surface
« Reply #4 on: December 25, 2020, 10:07:25 AM »
Hi ribarm. I know this code. I use this but this code convert a polyline to 3dpolyline and create vertex on every contour.
The  problem is , if the vertex of the  polyline is between 2 contours skip it and didnt calculate elevetion for this vertex.  Is any way to calculate the elevetions from the previous and next contour elevetion ?

Thanks
Logged

BIGAL

  • Swamp Rat
  • Posts: 1417
  • 40 + years of using Autocad
Re: 3D Polyline Along a Surface
« Reply #5 on: December 25, 2020, 06:22:24 PM »
You need to look at VL intersectwith you need to use ssget F and get all the crossing contour lines in a selection set , you may need to sort the order so they are in correct sequence.

Code: [Select]
; obj is section line
; ob2 is the contour line

(setq intpt1 (vlax-invoke obj2 'intersectWith obj acExtendThisEntity))
(537.634539233539 111.048606831557 10.0)
Logged
A man who never made a mistake never made anything

PM

  • Guest
Re: 3D Polyline Along a Surface
« Reply #6 on: December 26, 2020, 03:02:11 AM »
Can you fix it ?

Code - Auto/Visual Lisp: [Select]
  1. (defun c:flw23pel ;fencelwpoly23dpolyelevations
  2.  ( / *error* bbucs ucsf osm cec ss1 ss2 i lw pl sss ssl sspl e )
  3.  
  5.  
  6.  (defun *error* ( msg )
  7.    (if ucsf
  8.      (command "_.UCS" "_P")
  9.    )
  10.    (command "_.ZOOM" "_P")
  11.    (if osm
  12.      (setvar 'osmode osm)
  13.    )
  14.    (if cec
  15.      (setvar 'cecolor cec)
  16.    )
  17.    (if msg
  18.      (prompt msg)
  19.    )
  20.    (princ)
  21.  )
  22.  
  23.  (defun bbucs ( ss / UCS2WCSMatrix WCS2UCSMatrix n ent minpt maxpt minptlst maxptlst minptbbx minptbby minptbbz minptbb maxptbbx maxptbby maxptbbz maxptbb )
  24.  
  26.  
  27.    ;; Doug C. Broad, Jr.
  28.    ;; can be used with vla-transformby to
  29.    ;; transform objects from the UCS to the WCS
  30.    (defun UCS2WCSMatrix ()
  31.      (vlax-tmatrix
  32.        (append
  33.          (mapcar
  34.           '(lambda (vector origin)
  35.            (append (trans vector 1 0 t) (list origin))
  36.          )
  37.          (list '(1 0 0) '(0 1 0) '(0 0 1))
  38.          (trans '(0 0 0) 0 1)
  39.          )
  40.          (list '(0 0 0 1))
  41.        )
  42.      )
  43.    )
  44.    ;; transform objects from the WCS to the UCS
  45.    (defun WCS2UCSMatrix ()
  46.      (vlax-tmatrix
  47.        (append
  48.          (mapcar
  49.           '(lambda (vector origin)
  50.            (append (trans vector 0 1 t) (list origin))
  51.          )
  52.          (list '(1 0 0) '(0 1 0) '(0 0 1))
  53.          (trans '(0 0 0) 1 0)
  54.          )
  55.          (list '(0 0 0 1))
  56.        )
  57.      )
  58.    )
  59.  
  60.    (if ss
  61.      (progn
  62.        (repeat (setq n (sslength ss))
  63.          (setq ent (ssname ss (setq n (1- n))))
  64.          (vla-TransformBy (vlax-ename->vla-object ent) (UCS2WCSMatrix))
  65.          (vla-getboundingbox (vlax-ename->vla-object ent) 'minpoint 'maxpoint)
  66.          (vla-TransformBy (vlax-ename->vla-object ent) (WCS2UCSMatrix))
  67.          (setq minpt (vlax-safearray->list minpoint))
  68.          (setq maxpt (vlax-safearray->list maxpoint))
  69.          (setq minptlst (cons minpt minptlst))
  70.          (setq maxptlst (cons maxpt maxptlst))
  71.        )
  72.        (setq minptbbx (caar (vl-sort minptlst '(lambda (a b) (< (car a) (car b))))))
  73.        (setq minptbby (cadar (vl-sort minptlst '(lambda (a b) (< (cadr a) (cadr b))))))
  74.        (setq minptbbz (caddar (vl-sort minptlst '(lambda (a b) (< (caddr a) (caddr b))))))
  75.        (setq maxptbbx (caar (vl-sort maxptlst '(lambda (a b) (> (car a) (car b))))))
  76.        (setq maxptbby (cadar (vl-sort maxptlst '(lambda (a b) (> (cadr a) (cadr b))))))
  77.        (setq maxptbbz (caddar (vl-sort maxptlst '(lambda (a b) (> (caddr a) (caddr b))))))
  78.        (setq minptbb (list minptbbx minptbby minptbbz))
  79.        (setq maxptbb (list maxptbbx maxptbby maxptbbz))
  80.      )
  81.    )
  82.    (list minptbb maxptbb)
  83.  )
  84.  
  85.  (if (= 0 (getvar 'worlducs))
  86.    (progn
  87.      (command "_.UCS" "_W")
  88.      (command "_.PLAN" "")
  89.      (setq ucsf t)
  90.    )
  91.    (command "_.PLAN" "")
  92.  )
  93.  (setq osm (getvar 'osmode))
  94.  (setvar 'osmode 0)
  95.  (setq cec (getvar 'cecolor))
  96.  (setvar 'cecolor "3")
  97.  (prompt "\nSelect OPEN \"STRAIGHT\" LWPOLYLINES that lie in plane parallel to WCS - PROJECTION LWPOLYLINES (NOT ELEVATION)...")
  98.  (setq ss1 (ssget (list '(0 . "LWPOLYLINE") '(-4 . "<or") '(70 . 0) '(70 . 128) '(-4 . "or>") '(-4 . "<or") '(210 0.0 0.0 1.0) '(210 0.0 0.0 -1.0) '(-4 . "or>") '(-4 . "<not") '(-4 . "<>") '(42 . 0.0) '(-4 . "not>"))))
  99.  (while (or
  100.           (not ss1)
  101.           (vl-every '(lambda ( x ) (not (equal (caddar (bbucs (ssadd x))) (caddr (cadr (bbucs (ssadd x)))) 1e-6))) (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1))))
  102.         )
  103.    (prompt "\nEmpty sel.set... Please reselect again...")
  104.    (setq ss1 (ssget (list '(0 . "LWPOLYLINE") '(-4 . "<or") '(70 . 0) '(70 . 128) '(-4 . "or>") '(-4 . "<or") '(210 0.0 0.0 1.0) '(210 0.0 0.0 -1.0) '(-4 . "or>") '(-4 . "<not") '(-4 . "<>") '(42 . 0.0) '(-4 . "not>"))))
  105.  )
  106.  (prompt "\nSelect LWPOLYLINES that lie in plane parallel to WCS - ELEVATION LWPOLYLINES (NOT PROJECTION)...")
  107.  (setq ss2 (ssget (list '(0 . "LWPOLYLINE") '(-4 . "<or") '(210 0.0 0.0 1.0) '(210 0.0 0.0 -1.0) '(-4 . "or>"))))
  108.  (while (not ss2)
  109.    (prompt "\nEmpty sel.set... Please reselect again...")
  110.    (setq ss2 (ssget (list '(0 . "LWPOLYLINE") '(-4 . "<or") '(210 0.0 0.0 1.0) '(210 0.0 0.0 -1.0) '(-4 . "or>"))))
  111.  )
  112.  (repeat (setq i (sslength ss1))
  113.    (setq lw (ssname ss1 (setq i (1- i))))
  114.    (setq pl (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= (car x) 10)) (entget lw))))
  115.    (setq sss (ssget "_F" pl (list '(0 . "LWPOLYLINE") '(-4 . "<or") '(210 0.0 0.0 1.0) '(210 0.0 0.0 -1.0) '(-4 . "or>"))))
  116.    (setq ssl (ssnamex sss))
  117.    (setq ssl (vl-remove-if '(lambda ( x ) (eq (cadr x) lw)) ssl))
  118.    (setq sspl (mapcar 'cadr (apply 'append (mapcar '(lambda ( x ) (vl-remove-if-not 'listp x)) ssl))))
  120.    (command "_.3DPOLY")
  121.    (foreach p sspl
  122.      (if (vl-some '(lambda ( x ) (if (vlax-curve-getparamatpoint x (list (car p) (cadr p) (cdr (assoc 38 (entget x))))) (setq e x))) (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss2))))
  123.        (command "_non" (list (car p) (cadr p) (cdr (assoc 38 (entget e)))))
  124.      )
  125.    )
  126.    (command "")
  127.  )
  128.  (*error* nil)
  129. )
  130.  


Thanks
Logged

BIGAL

  • Swamp Rat
  • Posts: 1417
  • 40 + years of using Autocad
Re: 3D Polyline Along a Surface
« Reply #7 on: December 28, 2020, 01:09:01 AM »
I think you have over complicated the task, with no dwg to check if the contours are plain plines but at a elevation or are they true 3dpolylines. Using the fence ssget you get all the crossing contours then intersectwith for a point Z should be returned, a plain pline will return . I mentioned sort to make sure they are in correct order so make a list ((dist enttityname)(dist entityname)...)and sort on dist.

A pline using elev has just that a elevation property where as a 3dpoly does not have this property.
Logged
A man who never made a mistake never made anything

PM

  • Guest
Re: 3D Polyline Along a Surface
« Reply #8 on: December 28, 2020, 10:51:33 AM »
BIGAL . Hi Bigal. I upload a dwg file to see the results of the lisp code . With blue color is the 2d polyline i draw. With green is the 3d polyline from the lisp code.

I want 2 updates if you can help for this code

1) if it possible to understand the contours without select them (from the layer name)
2) The 3d polyline is shorter than the blue 2d polyline beause there no contours at the edges of the 2d polyline. Is it possible to calculate the elevetion between the polylines

Thanks
Logged
Pages: [1] |   Go Up
« previous next »