Help! nofunction definition:RTD

Anonymous — Tue, 30 Jan 2018 21:42:38 GMT

I have always used this LISP. However, after installing 2018 map3D it will not work. Can anyone help me?

(defun C:LBRK ()
(setq OLDCE (getvar "cmdecho"))
(setq OLDERR *ERROR*)
(setq os (getvar "osmode"))
(setq scl (getvar "userr2"))
(setvar "cmdecho" 1)
(defun *ERROR* (errmes)
    (princ (strcat "\nExecution of LBRK halted by the following error: " ERRMES))
    (setvar "cmdecho" OLDCE)
    (setq *ERROR* OLDERR)
    (prin1)
)
;(setq *ERROR* nil)
;to turn error handling off, erase the semicolon in the line above.
(setq clay (getvar "CLAYER"))
(setvar "CMDECHO" 0)
(command "osnap" "nea")
(setq INSPT (getpoint "\npick insertion point for line break..."))
(setq line (ssget inspt))
(setq l1 (entget (ssname line 0)))
(setq lay (cdr (assoc 8 l1)))
(command "LAYER" "S" lay "")
(setq ANG1 (getangle inspt "\npick rotation angle..."))
(setq ANG2 (* (+ (rtd ang1) 360) -1)) ;*if survey units are used
; (setq ANG2 (rtd ang1)) ;*if ACAD units are used
(command "circle" inspt (* 1.875 scl))
(setq circl (entlast))
(command "trim" circl "" inspt "" "erase" circl "" "insert" "linebrk" inspt scl scl ang2)
(command "osnap" os)
(command "LAYER" "S" clay "")
(setvar "CMDECHO" OLDCE)
(setq *ERROR* OLDERR)
(prin1)
(princ)
)

Re: Help! nofunction definition:RTD

Ranjit_Singh — Tue, 30 Jan 2018 21:49:17 GMT

As the error reads, you are missing the rtd function. Add this to your lisp

(defun rtd (x)
(* 180.0 (/ x pi)))

Re: Help! nofunction definition:RTD

Anonymous — Tue, 30 Jan 2018 22:31:00 GMT

Thank you! Although it rotates 90 degrees to the line, not parallel with the line.....

Re: Help! nofunction definition:RTD

Ranjit_Singh — Tue, 30 Jan 2018 22:41:58 GMT

You should try to look for your original rtd function. I am just guessing at what it might contain.

topic Re: Help! nofunction definition:RTD in Visual LISP, AutoLISP and General Customization Forum

Help! nofunction definition:RTD

Re: Help! nofunction definition:RTD

Re: Help! nofunction definition:RTD

Re: Help! nofunction definition:RTD