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

Author Topic: OFFSET polylign 3D  (Read 1145 times)

0 Members and 1 Guest are viewing this topic.

clotho

  • Guest
OFFSET polylign 3D
« on: June 28, 2016, 07:21:32 AM »
Hi every body,

Please can any one give me a lisp to offset a 3D polylign.

Thank you in advance  :smitten:
Logged

ChrisCarlson

  • Guest
Re: OFFSET polylign 3D
« Reply #1 on: June 28, 2016, 07:56:58 AM »
Logged

rkmcswain

  • Swamp Rat
  • Posts: 978
Re: OFFSET polylign 3D
« Reply #2 on: June 28, 2016, 08:56:40 AM »
Logged

MSTG007

  • Gator
  • Posts: 2606
  • I can't remeber what I already asked! I need help!
Re: OFFSET polylign 3D
« Reply #3 on: June 28, 2016, 11:29:05 AM »
Logged
Civil3D 2020

ribarm

  • Gator
  • Posts: 3304
  • Marko Ribar, architect
Re: OFFSET polylign 3D
« Reply #4 on: June 28, 2016, 10:33:28 PM »
If nothing from above posted doesn't suit you, I'd convert 3d polyline to 3d spline and apply something from here :
https://www.theswamp.org/index.php?topic=51111.msg563254#msg563254

To convert 3d polyline to 3d spline, try something like this :

Code - Auto/Visual Lisp: [Select]
  1. (defun c:3p2spl ( / *error* line2spl loop pl e s ss sss )
  2.  
  4.  
  5.   (defun *error* ( msg )
  7.     (if msg (prompt msg))
  8.     (princ)
  9.   )
  10.  
  11.   (defun line2spl ( e / sp ep d )
  12.    
  13.     (setq sp (cdr (assoc 10 (entget e)))
  14.           ep (cdr (assoc 11 (entget e)))
  15.           d (distance sp ep)
  16.     )
  17.    
  18.     (entdel e)
  19.    
  20.     (entmakex
  21.       (list
  22.         '(0 . "SPLINE") '(100 . "AcDbEntity") '(100 . "AcDbSpline") '(210 0.0 0.0 1.0) '(71 . 1) '(73 . 2)
  23.         '(42 . 1.0e-010) '(43 . 1.0e-010) '(40 . 0.0) '(40 . 0.0) (cons 40 d) (cons 40 d) (cons 10 sp) (cons 10 ep)
  24.       )
  25.     )
  26.    
  27.   )
  28.  
  30.   (setq loop T)
  31.   (setq sss (ssget "_I"))
  32.   (if (and sss (eq (cdr (assoc 0 (entget (setq pl (ssname sss 0))))) "POLYLINE") (< 7 (cdr (assoc 70 (entget pl))) 10)) (setq loop nil))
  33.   (while loop
  34.     (setq pl (car (entsel "\nPick 3DPOLYLINE to convert it to SPLINE")))
  35.     (if (and pl (eq (cdr (assoc 0 (entget pl))) "POLYLINE") (< 7 (cdr (assoc 70 (entget pl))) 10)) (setq loop nil))
  36.   )
  37.   (setq e (entlast))
  38.   (command "_.EXPLODE" pl)
  39.   (while (> (getvar 'cmdactive) 0) (command ""))
  40.   (setq ss (ssadd))
  41.   (while (setq e (entnext e))
  42.     (if (eq (cdr (assoc 0 (entget e))) "LINE")
  43.       (progn
  44.         (setq s (line2spl e))
  45.         (ssadd s ss)
  46.       )
  47.     )
  48.   )
  49.   (command "_.JOIN" (ssname ss 0) ss)
  50.   (while (> (getvar 'cmdactive) 0) (command ""))
  51.   (*error* nil)
  52. )
  53.  

HTH, M.R.
Logged
Marko Ribar, d.i.a. (graduated engineer of architecture)

:)

M.R. on Youtube
Pages: [1] |   Go Up
« previous next »