Se alguem já usou o CAR, CADR, CAADR, etc, deve ter sentido falta de recuparar uma lista de elementos no meio da lista, exemplo: ( 1 2 3 4 5 6 ) se eu querer pegar os elementos do 2º ao 4º, temos (3 4 5), mas como fazê-lo?pode ser assim: (defun sub-list (lst a […]
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)
