connection-pt.lsp error

[td70509]

I have a lisp routine which returns a error message since my upgrade from AutoCad MEP 2008 to AutoCad MEP 2012. New to reading code and very eager to learn.

[BlackBox]

Perhaps if you post your code, we'd have a better chance of being able to help you.

[Edit] When you do (post your code), please be sure to use [CODE ] Tags

[td70509]

I made a attempt to attach the routine and it did not send. Company IT department has a filter block on uploads. I will try again once permission is granted. Must think this is a social site like facebook or something.

[BlackBox]

No need to upload the file, per-se... Open the .LSP in any text editor (i.e., Notepad, Notepad++), and copy the contents... Then paste them here in the body of a post (within code tags).

[td70509]

;;;CONNECTION POINT SYMBOL
(Defun c:connect-pt (/ sf pt1 pt2 a la text)
  (if glbsf
    (setq sf glbsf)
    (setq sf (getreal "\nEnter scale factor: "))
  )
  (load "mmci-variable")
  (setvar "osmode" 1)
  (setvar "orthomode" 1)
  (setq	pt1 (getpoint
	      "\nPick end of duct at side where symbol is desired: "
	    )
  )					;setq
  (setvar "osmode" 0)
  (setq	pt2  (getpoint
	       pt1
	       "\n Pick center of symbol location (toggle F8 if ortho snap is not desired): "
	     )
	a    (ang_d (angle pt1 pt2))
	la   (getvar "clayer")
	text (tblsearch "layer" "_M_TEXT")
  )					;setq
  (if (null text)
    (command "layer" "m" "_M_TEXT" "c" 7 "" "")
  )					;if
  (setvar "cmdecho" 0)
  (command "layer"
	   "s"
	   "_M_TEXT"
	   ""
	   "line"
	   pt1
	   pt2
	   ""
	   "insert"
	   "conpt.dwg"
	   pt2
	   (/ sf 48.0)
	   ""
	   a
	   "layer"
	   "s"
	   la
	   ""
  )					;command
  (load "prsnl-variable")
  (setvar "cmdecho" 1)
  (princ)
)					;defun

[BlackBox]

@td -

Please edit your post to use [CODE ] Tags... See the link provided in post #2 of this thread for more information.

[td70509]

;;;CONNECTION POINT SYMBOL
(Defun c:connect-pt (/ sf pt1 pt2 a la text)
  (if glbsf
    (setq sf glbsf)
    (setq sf (getreal "\nEnter scale factor: "))
  )
  (load "mmci-variable")
  (setvar "osmode" 1)
  (setvar "orthomode" 1)
  (setq	pt1 (getpoint
	      "\nPick end of duct at side where symbol is desired: "
	    )
  )					;setq
  (setvar "osmode" 0)
  (setq	pt2  (getpoint
	       pt1
	       "\n Pick center of symbol location (toggle F8 if ortho snap is not desired): "
	     )
	a    (ang_d (angle pt1 pt2))
	la   (getvar "clayer")
	text (tblsearch "layer" "_M_TEXT")
  )					;setq
  (if (null text)
    (command "layer" "m" "_M_TEXT" "c" 7 "" "")
  )					;if
  (setvar "cmdecho" 0)
  (command "layer"
	   "s"
	   "_M_TEXT"
	   ""
	   "line"
	   pt1
	   pt2
	   ""
	   "insert"
	   "conpt.dwg"
	   pt2
	   (/ sf 48.0)
	   ""
	   a
	   "layer"
	   "s"
	   la
	   ""
  )					;command
  (load "prsnl-variable")
  (setvar "cmdecho" 1)
  (princ)
)					;defun

[BlackBox]

Perhaps you should re-read this... Again:

@td -

Please edit your post to use [CODE ] Tags... See the link provided in post #2 of this thread for more information.

[Tom Beauford]

Not familar with MEP, but enter

 (findfile "mmci-variable")

&

 (findfile "prsnl-variable")

at the command line. Did they return paths or nil? What is the error message from the routine?

[td70509]

Not familar with MEP, but enter

 (findfile "mmci-variable")

&

 (findfile "prsnl-variable")

at the command line. Did they return paths or nil? What is the error message from the routine?

Both (findfile "mmci-variable") and (findfile "prsnl-variable") returned nil

error: no function definition: ANG_D