Welcome,
Guest
. Please
login
or
register
.
1 Hour
1 Day
1 Week
1 Month
Forever
Login with username, password and session length
News:
Home
Help
Login
Register
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
OFFSET polylign 3D
« previous
next »
Print
Pages: [
1
] |
Go Down
Author
Topic: OFFSET polylign 3D (Read 1175 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
Logged
ChrisCarlson
Guest
Re: OFFSET polylign 3D
«
Reply #1 on:
June 28, 2016, 07:56:58 AM »
No
http://lmgtfy.com/?q=AutoLISP+3D+Polyline+Offset
Logged
rkmcswain
Swamp Rat
Posts: 978
WWW
Re: OFFSET polylign 3D
«
Reply #2 on:
June 28, 2016, 08:56:40 AM »
Take a look:
http://www.cadtutor.net/forum/showthread.php?5322-How-do-I-offset-3d-Polyline
Logged
R.K. McSwain
|
twitter
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 »
Quote from: ChrisCarlson on June 28, 2016, 07:56:58 AM
No
http://lmgtfy.com/?q=AutoLISP+3D+Polyline+Offset
That IMGTFY.com is pretty cool.
Logged
Civil3D 2020
ribarm
Gator
Posts: 3313
Marko Ribar, architect
WWW
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]
(
defun
c:3p2spl
(
/
*error*
line2spl loop pl e s ss sss
)
(
vl-load-com
)
(
defun
*error*
(
msg
)
(
vla-endundomark
(
vla-get-activedocument
(
vlax-get-acad-object
)
)
)
(
if
msg
(
prompt
msg
)
)
(
princ
)
)
(
defun
line2spl
(
e
/
sp ep d
)
(
setq
sp
(
cdr
(
assoc
10
(
entget
e
)
)
)
ep
(
cdr
(
assoc
11
(
entget
e
)
)
)
d
(
distance
sp ep
)
)
(
entdel
e
)
(
entmakex
(
list
'
(
0
.
"SPLINE"
)
'
(
100
.
"AcDbEntity"
)
'
(
100
.
"AcDbSpline"
)
'
(
210
0.0
0.0
1.0
)
'
(
71
.
1
)
'
(
73
.
2
)
'
(
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
)
)
)
)
(
vla-startundomark
(
vla-get-activedocument
(
vlax-get-acad-object
)
)
)
(
setq
loop T
)
(
setq
sss
(
ssget
"_I"
)
)
(
if
(
and
sss
(
eq
(
cdr
(
assoc
0
(
entget
(
setq
pl
(
ssname
sss
0
)
)
)
)
)
"POLYLINE"
)
(
<
7
(
cdr
(
assoc
70
(
entget
pl
)
)
)
10
)
)
(
setq
loop
nil
)
)
(
while
loop
(
setq
pl
(
car
(
entsel
"
\n
Pick 3DPOLYLINE to convert it to SPLINE"
)
)
)
(
if
(
and
pl
(
eq
(
cdr
(
assoc
0
(
entget
pl
)
)
)
"POLYLINE"
)
(
<
7
(
cdr
(
assoc
70
(
entget
pl
)
)
)
10
)
)
(
setq
loop
nil
)
)
)
(
setq
e
(
entlast
)
)
(
command
"_.EXPLODE"
pl
)
(
while
(
>
(
getvar
'cmdactive
)
0
)
(
command
""
)
)
(
setq
ss
(
ssadd
)
)
(
while
(
setq
e
(
entnext
e
)
)
(
if
(
eq
(
cdr
(
assoc
0
(
entget
e
)
)
)
"LINE"
)
(
progn
(
setq
s
(
line2spl e
)
)
(
ssadd
s ss
)
)
)
)
(
command
"_.JOIN"
(
ssname
ss
0
)
ss
)
(
while
(
>
(
getvar
'cmdactive
)
0
)
(
command
""
)
)
(
*error*
nil
)
)
HTH, M.R.
Logged
Marko Ribar, d.i.a.
(graduated engineer of architecture)
M.R. on Youtube
Print
Pages: [
1
] |
Go Up
« previous
next »
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
OFFSET polylign 3D