No, not linetype. Maybe my first question was not clear enough. I want with single click on line to get centerline of a circle If my first line is inscribed in circle. So, when I draw a circle and one line inside (e.g. horizotal) I want to rotate and copy that line arround it's middle point with one click of a mouse. Actually the result of this action would be a cross.
Copy this, save it to a file called CL.LSP, in AutoCAD type (Load"CL") and it will run, asking you to pick a circle, then the length of the extension past the circle.
(defun clerr (s)
(if (/= s "Function cancelled") ; If an error (such as CTRL-C) occurs
(princ (strcat "\nError: " s)) ; while this command is active...
)
(if e (redraw e 4))
(command "_.UCS" "_P") ; Restore previous UCS
(setvar "BLIPMODE" sblip) ; Restore saved modes
(setvar "GRIDMODE" sgrid)
(setvar "HIGHLIGHT" shl)
(setvar "UCSFOLLOW" sucsf)
(command "_.UNDO" "_E")
(setvar "CMDECHO" scmde)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
;;; --------------------------- Main Program ---------------------------------;
I have some problems with this function. It works, but just for once. I go to TOOLS-LOADAPP and choose it, but it works only then. I can't call that function anymore but to go again to TOOLS-LOADAPP...
And if I type (Load"CL") this in acad's command line I get this as an answer:
Error: LOAD failed: "cl"
No previous coordinate system saved.
; error: An error has occurred inside the *error* functionFunction cancelled
Is there any help? Function is very good I would realy like to use it.
I dont know but I think that there is a mistake in the first row of a code: defun clerr
and because of that i can't recall function again.
Looking at the other lisp files I saw that the definition of function is like this:
Sorry to be annoying about this but this is very good function. There is no mistake in the code,that was my stupidity.
I have other macros that I'm using and I'm using them through icons on my customized toolbar. I put them all to the load application startup suite and they are allways on.
But this function (that is the most important to me) won't work.
I haven't tested it (make a backup first) but try to change these lines
(command "_.CHANGE" "_L" "" "_P" "_LT" "CENTER" "")
to
(command "_.CHANGE" "_L" "" "_P" "_LT" "BYLAYER" "")
Great.It works. But there is still the same problem from the begining. When I load app it can be run just once. Whenever I want to use this command I allways have to type appload, and then to choose lsp file. Beside that it works perfect.
