Routine to draw annotative center marks

[jpcadconsulting347236]

Hey gang,

trying to write a routine that pops an annotative center mark at the center of a given circle (AutoCAD only draws this if the radial dimension is OUTSIDE the circle)

Here is the code. It's not drawing anything and it's not throwing errors either so I'm a little stumped. Should be simple...

(defun c:Centermark (/ CM)
 
(setq CM "centermark.dwg")


(setq usersnaps (getvar "osmode"))
(setvar "osmode" 4)


(setq P1(getpoint "\nSelect Circle: "))


(command "-insert" CM P1 "1" "1" "0")


(setvar "osmode" usersnaps)
(setvar "clayer" layorig)


(princ)
)

Thanks as always...

[Opie]

Can the "centermark.dwg" file be found? You can try the findfile function.

(findfile "centermark.dwg")