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 […]
Esta rotina eu uso muito nos meus programas… sei que em VL é mais rápido, mas para criar blocos com VL complica… via entmake acabe sendo melhor.Fica como exemplo de como criar polilinhas 2d e 3d via entmake: (defun draw-pline2 (pts lay close? / elev) (setq elev (caddar pts)) (dxf 5 (if (vl-every ‘(lambda (x)
lambda, lambda, lambda!!! meu caro nerd!!! hehehe alguem ja percebeu que as vezes uso a função LAMBDA para definir subrotinas? esta é uma das utilidades dela… porque: muitas vezes, quando temos um programa mais complexo, precisamos dividir o código, ou se temos uma seqüência de ações que devem ser executadas, por que não simplificar elas
