i mean how do you calculate all those points.? how do you prepare your "graphics"?
k.
Ah ok
I think the parts of the circles aren't the problem? simple math...
The graphics are hardcoded...
The "graphics" I draw in acad using colored lines and then I use the code below to prepare them for (grvecs.
The "line-graphic" should be drawn near the WCS-origin, (0,0,0) will be the "InsertPoint"
In the main-code they are transformed (rotated, scaled) to fit in the circle-part-boundary (simple vector-math)
;;reading the start-/end-point and also the color of any selected line-object...
(defun C:CreateSymbol (/ s Out ent)
(princ "\nselect Lines")
(if (setq s (ssget '((0 . "LINE"))))
(foreach e (ssnamex s)
(if (= 'ename (type (cadr e)))
(setq ent (entget (cadr e))
Out (cons
(cons
( (lambda (c / )
(if c
c
7
)
)
(cdr (assoc 62 ent))
)
(mapcar
'(lambda (g / p)
(setq p (cdr (assoc g ent)))
(mapcar
'(lambda (a / )
(fix (* a 1000))
)
(list (car p) (cadr p))
)
)
'(10 11)
)
)
Out
)
)
)
)
)
(apply 'append Out)
)
for the text look at this thread
http://www.theswamp.org/index.php?topic=46966.0reltro