Leaderboard

FWIW, vl-filename-base should still perform as expected even if the filename in question contains periods, observe: _$ (vl-filename-base "179062-0000018159-Fa. Martin.dwg") "179062-0000018159-Fa. Martin" Hence the code could be written: (defun c:todo ( / d f ) (if (or (findfile (setq f (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) ".txt"))) (and (setq d (open f "w")) (not (close d))) ) (startapp "write" (strcat "\"" f "\"")) ) (princ) )

Try this (defun c:todo ( / dname todoname ) (setq todoname (strcat (getvar 'dwgprefix) (substr (setq dname (getvar 'dwgname)) 1 (- (strlen dname) 4)) ".txt")) (cond ( (/= (findfile todoname) nil) (startapp "write" (strcat "\"" todoname "\"")) ) ( (setq fp (open todoname "w")) (close fp) (startapp "write" (strcat "\"" todoname "\"")) ) ) ) Bookmark this page for startapp reference purposes. HERE

I would start with a helix but then because the ends are splayed a bit I would trace over the helix to make a spline with 4 fit points. I would then move the end point out radially a bit to make room for the sphere. You can then use polar array to make the 3 legs. For the model below I set the helix height to 60 and the number of turns to 0.5. The circle I swept could be a bit larger.