Uma rotina que complementa a função VL-MKDIR: (defun mkdir2 (path / pos lst drive f);limpa a string: (while (vl-string-search “” path) (setq path (vl-string-subst “/” “” path)));remove a barra do final, se ela existir: (setq path (vl-string-right-trim “/” path));desmonta a string numa lista: (while (setq pos (vl-string-search “/” path)) (setq pasta (substr path 1 pos)

Creio que faltou esta rotina na MJ4: (defun get-lpt (q r pt / l n) (setq l nil n 1) (repeat q (setq l (append l (list (polar pt (/ (* n 2 pi) q) r))) n (1+ n))) l) get-lpt (q r pt) -> gera uma lista de pontos de um poligono com (q)