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:
add vertex in 3d polyline with distance
« previous
next »
Print
Pages: [
1
] |
Go Down
Author
Topic: add vertex in 3d polyline with distance (Read 1551 times)
0 Members and 1 Guest are viewing this topic.
reyas1123
Newt
Posts: 48
add vertex in 3d polyline with distance
«
on:
November 15, 2017, 02:34:24 AM »
Hello Friends,
Just want to ask does anybody has a code for adding vertex in 3d polylines with distance of each verteces.
Thanks
Logged
ahsattarian
Newt
Posts: 112
Re: add vertex in 3d polyline with distance
«
Reply #1 on:
July 28, 2021, 06:19:31 AM »
Try this :
Code - Auto/Visual Lisp:
[Select]
(
defun
c:a
(
)
(
setq
s1
(
car
(
entsel
"
\n
Select (S)Pline to Add Vertex : "
)
)
)
(
setvar
"osmode"
512
)
(
setq
po1
(
getpoint
"
\n
Select Point on (S)Pline : "
)
)
(
setq
po2
(
vlax-curve-getclosestpointto
s1 po1
)
)
(
command
"point"
po2
)
(
setq
point
(
entlast
)
)
(
command
"break"
(
list
s1 po2
)
"f"
po2 po2
)
(
setq
s2
(
entlast
)
)
(
setq
ss
(
ssadd
)
)
(
setq
s0 point
)
(
while
s0
(
cond
(
(
not
(
member
(
strcase
(
cdr
(
assoc
0
(
entget
s0
)
)
)
t
)
'
(
"vertex"
"seqend"
"point"
)
)
)
(
ssadd
s0 ss
)
)
)
(
setq
s0
(
entnext
s0
)
)
)
(
entdel
point
)
(
command
"join"
s1 s2 ss
""
)
(
princ
)
)
Logged
mhupp
Bull Frog
Posts: 250
Re: add vertex in 3d polyline with distance
«
Reply #2 on:
July 28, 2021, 08:20:58 AM »
Use join after this command
https://autocadtips1.com/2011/09/24/autolisp-break-at-distance/
Logged
Print
Pages: [
1
] |
Go Up
« previous
next »
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
add vertex in 3d polyline with distance