Explodir Spline

Tá eu sei que não dá pra explodir spline, mas dá pra imitar o traçado dela, certo? vejam:


;SPP -> “explodir” spline para polyline
(defun c:spp (/ ss dist ent comp compt c)
(
tbn:error-init (list (list “cmdecho” 0) T))
(
vl-load-com)
(
prompt “nSelecione os objetos…n”)
(
setq ss (ssget ((0 . “ARC,*[~M]LINE,LINE”)))
dist (getdist
“Entre com a distância entre os pontos:n”)
lay (getstring t “qual o nome do layer?<0>“)
lay (if (/= “” lay) lay “0”))
(
repeat (if ss (sslength ss) 0)
(
setq ent (ssname ss 0)
compt (vlax-curve-getDistAtParam ent
(vlax-curve-getEndParam ent))
pts nil
comp 0)
(
ssdel ent ss)
(
while (<= comp compt)
(
setq pts (append pts
(list (vlax-curve-getPointAtDist
ent comp)))
comp (if (and (> (+ comp dist) compt)
(
< comp compt))
compt
(+ comp dist))))
(
draw-pline2 pts lay (if (setq c (dxf 70 ent))
(
= 1 (logand c 1)))))
(
tbn:error-restore))


Esta rotina é util para aqueles que recebem desenhos com curvas de nível desenhadas com spline e precisa delas como polilinhas (quem trabalha com topografia por exemplo… o próprio CIVIL 3D só aceita breaklines se ñão forem splines)

2 comentários em “Explodir Spline”

  1. Thanks in compensation this right accumulation of remark on forms. There are some arrant ideas representing the next redesign.
    [IMG]http://www.sedonarapidweightloss.com/weightloss-diet/34/b/happy.gif[/IMG]

  2. Pretty gear post. I honest stumbled upon your blog and wanted to guess that I have really enjoyed reading your blog posts. Any conduct I' ll be subscribing to your maintain and I hope you despatch again soon.
    [IMG]http://www.sedonarapidweightloss.com/weightloss-diet/34/b/happy.gif[/IMG]

Deixe um comentário

Carrinho de compras
Rolar para cima