Ошибка no function definition nil

I am working on rewriting a routine and whenever I press a key, I keep getting the following error: ** Error: no function definition: nil **

Here is the code I have so far, I am not sure what is causing this, any ideas?

Edit: I figured that out, but for some reason F10 causes an error, it doesn’t toggle polar mode.

(defun c:uleader (/ *ThisDrawing* *Space* *Scale* *IsCivil* *Path* *Prompt* *Align* *Match* *Types* Pt1 Pt2 Input Data Code Ent1 POS)
    (vl-cmdf "._-insert" "Uleader.dwg")(command); Insert in leader styles
    (setq *Types* (LIST "MTEXT" "1M08" "PL08" "AH08" "CFM" "FXU" "GPM" "PANEL" "FEEDER"))
    (vl-load-com)
    ;Supporting Functions
    (defun eraseold (obj /) ;Erases the previous version of a VLA object - Code modifcation provided by ronjonp at http://www.theswamp.org/index.php?topic=54340.msg589085#msg589085
        (and (= 'vla-object (type obj))
            (not (vlax-erased-p obj))
            (vlax-write-enabled-p obj)
            (vla-delete obj)
        )
    )
    (defun GetVportScale ()
        (/ 1 (vla-get-CustomScale (vla-get-ActivePViewport (vla-get-activedocument (vlax-get-acad-object)))))
    )
    (defun PolarRound (ang deg)
        (* (/ pi (/ 180 (r2d deg))) (fix (/ (+ (/ pi (/ 360 (r2d deg))) ang) (/ pi (/ 180 (r2d deg))))))
    )
    (defun bitcodef (value bit)
        ;; Originally Written by Lee Ambrosius on: 6/6/04
        ;; Modified by Chris Wade 1/13/2010
        (if (zerop(logand bit value))
            nil
            T
        );;
    ) ;defun bitcode
    (defun D2R (numberOfDegrees)
        (* pi (/ numberOfDegrees 180.0))
    ) ;_ end of defun
    (defun R2D (nbrOfRadians)
        (* 180.0 (/ nbrOfRadians pi))
    )
    ;End of Supporting Functions
    (setq *Path* (getvar "dwgprefix")
          *ThisDrawing* (vla-get-activedocument (vlax-get-acad-object)) ;_ Set Drawing and Space
      *Space*
            (if (zerop (vla-get-activespace *ThisDrawing*))
                (if (= (vla-get-mspace *ThisDrawing*) :vlax-true)
                    (vla-get-modelspace *ThisDrawing*) ; active VP
                    (vla-get-paperspace *ThisDrawing*)
                )
                (vla-get-modelspace *ThisDrawing*)
            )
)
(If (> (strlen *path*) 5);Determine if this is a civil drawing
(progn
(setq pos (vl-string-position (ascii "\") *Path* (+ (vl-string-position (ascii "\") *path* 5) 1)))
(If (or (= (strcase (substr *path* (+ pos 8) 1)) "C") (= (getvar "USERS5") "CIVIL"))
(setq *IsCivil* T)
)
)
)
    (if (zerop (vla-get-activespace *ThisDrawing*)); Set scale
        (if (= (vla-get-mspace *ThisDrawing*) :vlax-true)
            (setq *Scale* (GetVportScale))
            (setq *Scale* 1.0)
        )
        (setq *Scale* (getvar "DimScale"))
    )
    (vla-StartUndoMark *ThisDrawing*)
    ;ERROR HANDLER
    (defun *error* (msg)
        (if mlObj
            (progn
                (vla-highlight mlObj :vlax-false)
                (EraseOld mlObj)   
            )
        )
        ;; Added by Pkenewell on 3/28/2014
        (vla-EndUndoMark *ThisDrawing*)
        (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
            (princ (strcat "n** Error: " msg " **"))
        )
        (princ)
    )
    (if (not (tblsearch "LAYER" "LEADER")) ; Check to see if layer exists
(if (= 1 (getvar "pstylemode"))
(command "._-layer" "n" "LEADER" "color" "WHITE" "" "lweight" "DEFAULT" "" "ltype" "CONTINUOUS" "" "")
(command "._-layer" "n" "LEADER" "color" "WHITE" "" "lweight" "DEFAULT" "" "ltype" "CONTINUOUS" "" "pstyle" "BLACK" "" "")
)
)
(setvar "annoautoscale" 4)
(while (not Pt1)
    (initget "Select _Select")
    (setq Pt1 (getpoint "nPick starting point of leader [Select leader]:"))
    (cond
        ((= Pt1 "Select")
            (while (not Ent1)
                (setq Ent1 "nSelect leader to modify or align to:")
                (if (not Ent1)
                    (princ "r*** You must select a leader ***")
                )
                (setq Pt1 (cadr Ent1))
            )
        )
    )
)
(if (not Ent1)
    (setq Ent1 (nentselp "" Pt1))
)
(if Ent1
    (progn ;If existing leader is selected allow for modifying or aligning to the leader
        (princ "nAdd code for modifying/aligning leader here")
    )
    (progn ;If existing leader is not selected, draw a new leader
        (while (not Pt2)
            (setq *Prompt* "rSpeciy second point [Content ")
            (if (or (not *Content*) (= *Content* ""))
                (setq *Content* "MTEXT")
            )
            (setq *Prompt* (strcat *Prompt* "(" *Content* ")"))
            (if *Note*
                (setq *Prompt* (strcat *Prompt* "/** Note **"))
                (setq *Prompt* (strcat *Prompt* "/Note"))
            )
            (if *Typ*
                (setq *Prompt* (strcat *Prompt* "/** Typical **"))
                (setq *Prompt* (strcat *Prompt* "/Typical"))
            )
            (if (not *POC*)
                (setq *Prompt* (strcat *Prompt* "/Poc(d)"))
                (setq *Prompt* (strcat *Prompt* *POC*))
            )
            (setq *prompt* (strcat *Prompt* "/Arrowheads/Exit]:"))
            (if *Align*
                (setq *Prompt* (strcat *Prompt* " " *Align*))
            )
            (if *Match*
                (setq *Prompt* (strcat *Prompt* " " *Match*))
            )
            (princ *Prompt*)
                (setq Input (grread t 4 4)
                      Data (cadr Input)
                      Code (car Input)
                )
                (cond
                    ((= Code 2);Handle all keypresses
                        (cond
                            ((= data 15); Change Orthomode when F8 is pressed
                                (if (= (getvar "orthomode") 1)
        (setvar "orthomode" 0)
        (setvar "orthomode" 1)
        )
                            )
                            ((= data 21); Toggle Polarmode when F10 is pressed
        (setvar "autosnap" (bitcodef (getvar "autosnap") 8))
        )
        ((or (= data 67) (= data 99))
            (setq POS (vl-position *Content* *Types*))
            (if (< POS (length *Types*))
                (setq *Content* (nth (+ POS 1) *Types*))
                (setq *Content* (nth 0 *Types*))
            )
        )
        )
                    )
                )
        )
    )
)
    (vla-EndUndoMark *ThisDrawing*)
)

« Last Edit: July 23, 2018, 06:27:53 PM by cmwade77 »

Logged

I think error is in string

There is no option «pstyle» (ACAD2018):

Command: ._-layer
Current layer:  "0"
Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/TRansparency/MATerial/Plot/Freeze/Thaw/LOck/Unlock/stAte/Description/rEconcile/Xref]:

Logged

Sorry for my English.

No, that one is quite correct when using style based plotting and not color based plotting and the if statement checks to make sure if style based or color based plotting is used.

No, the only issue with the posted code is pressing F10 causes an error at present. It should toggle polar snapping on and off, not cause an error.

Logged

A few things jump out:

Could be written more succinctly as:

These functions are not evaluated anywhere in the code and could therefore be removed.

This could be written more succinctly as:

This:

Could become:

This:

Should be changed to the following to XOR bit 8:

Since your

bitcodef

function will return a boolean value, not an integer.

An error of ‘no function definition: nil’ would indicate that you are attempting to evaluate a symbol with no value as a function, however, I can’t see anywhere in your code where this is occurring. As such, I would suggest following this process to determine the line on which the code fails.

Logged

Sorry, I should have mentioned the code is a work in progress, the functions that aren’t currently being called will be in the end code. And as always, thank you Lee, lots of great info. And I as I mentioned about, I got rid of the nil error, it was stupidity on my part not adding a (cond) that should have been there.

Logged

Hi,

Not so often…

This could be written more succinctly as:

Logged

Speaking English as a French Frog

This could be written more succinctly as:

This won’t return Modelspace for an active Paperspace viewport… 

Logged

Gile, your code is a very close second to Lee’s as to how often it appears in our routines. Honestly, I think you have had some solutions that no one else could have solved. In the end this will be a complex piece of code, but I hope to get it working more reliably than my old uleader routine, so starting off with these recommendations is very helpful.

Logged

Sorry, I should have mentioned the code is a work in progress, the functions that aren’t currently being called will be in the end code. And as always, thank you Lee, lots of great info. And I as I mentioned about, I got rid of the nil error, it was stupidity on my part not adding a (cond) that should have been there.

You’re welcome Chris, the F10 issue should be solved when you implement my suggestion:

Logged

Ok, I have implemented several of the recommendations so far and made some tweaks, as well as added some additional code, so here is where things stand now:

(defun c:uleader (/ *ThisDrawing* *Space* *Scale* *IsCivil* *Path* *Prompt* *Align* *Match* *Types* *Style* *POC* *POCS* *Typ* *Note* Pt1 Pt2 Input Data Code Ent1 POS Pt1Tst)
    (vl-cmdf "._-insert" "Uleader.dwg")(command); Insert in leader styles
    (setq *Types* (LIST "MTEXT" "1M08" "PL08" "AH08" "CFM" "FXU" "GPM" "PANEL" "FEEDER")
          *POCS* (list nil "-Poc" "-Pod")
    )
    (vl-load-com)
    ;Supporting Functions
    (defun eraseold (obj /) ;Erases the previous version of a VLA object - Code modifcation provided by ronjonp at http://www.theswamp.org/index.php?topic=54340.msg589085#msg589085
        (and (= 'vla-object (type obj))
            (not (vlax-erased-p obj))
            (vlax-write-enabled-p obj)
            (vla-delete obj)
        )
    )
    (defun GetVportScale ()
        (/ 1 (vla-get-CustomScale (vla-get-ActivePViewport (vla-get-activedocument (vlax-get-acad-object)))))
    )
    (defun PolarRound (ang deg)
        (* (/ pi (/ 180 (r2d deg))) (fix (/ (+ (/ pi (/ 360 (r2d deg))) ang) (/ pi (/ 180 (r2d deg))))))
    )
    (defun D2R (numberOfDegrees)
        (* pi (/ numberOfDegrees 180.0))
    ) ;_ end of defun
    (defun R2D (nbrOfRadians)
        (* 180.0 (/ nbrOfRadians pi))
    )
    ;End of Supporting Functions
    (setq *Path* (getvar "dwgprefix")
          *ThisDrawing* (vla-get-activedocument (vlax-get-acad-object)) ;_ Set Drawing and Space
      *Space* (vlax-get-property *ThisDrawing* (if (= 1 (getvar 'cvport)) 'paperspace 'modelspace)); Code adjustment from Lee Mac at: http://www.theswamp.org/index.php?topic=54349.msg589159#msg589159
      *Scale* (if (zerop (vla-get-activespace *ThisDrawing*))
                        (if (= (vla-get-mspace *ThisDrawing*) :vlax-true)
                            (GetVportScale)
                            1.0
                        )
                        (getvar "DimScale")
                  )
)
(If (> (strlen *path*) 5);Determine if this is a civil drawing
(progn
(setq pos (vl-string-position (ascii "\") *Path* (+ (vl-string-position (ascii "\") *path* 5) 1)))
(If (or (= (strcase (substr *path* (+ pos 8) 1)) "C") (= (getvar "USERS5") "CIVIL"))
    (setq *IsCivil* T)
)
)
)
    (if (zerop (vla-get-activespace *ThisDrawing*)); Set scale
        (if (= (vla-get-mspace *ThisDrawing*) :vlax-true)
            (setq *Scale* (GetVportScale))
            (setq *Scale* 1.0)
        )
        (setq *Scale* (getvar "DimScale"))
    )
    (vla-StartUndoMark *ThisDrawing*)
    ;ERROR HANDLER
    (defun *error* (msg)
        (if mlObj
            (progn
                (vla-highlight mlObj :vlax-false)
                (EraseOld mlObj)   
            )
        )
        ;; Added by Pkenewell on 3/28/2014
        (vla-EndUndoMark *ThisDrawing*)
        (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
            (princ (strcat "n** Error: " msg " **"))
        )
        (princ)
    )
    (if (not (tblsearch "LAYER" "LEADER")) ; Check to see if layer exists
(if (= 1 (getvar "pstylemode"))
(command "._-layer" "n" "LEADER" "color" "WHITE" "" "lweight" "DEFAULT" "" "ltype" "CONTINUOUS" "" "")
(command "._-layer" "n" "LEADER" "color" "WHITE" "" "lweight" "DEFAULT" "" "ltype" "CONTINUOUS" "" "pstyle" "BLACK" "" "")
)
)
(setvar "annoautoscale" 4)
(while (not Pt1)
    (initget "Select _Select")
    (setq Pt1 (getpoint "nPick starting point of leader [Select leader]:"))
    (cond
        ((= Pt1 "Select")
            (while (not Ent1)
                (setq Ent1 "nSelect leader to modify or align to:")
                (if (not Ent1)
                    (princ "r*** You must select a leader ***")
                )
                (setq Pt1 (cadr Ent1))
            )
        )
    )
)
(if (not Ent1)
    (setq Ent1 (nentselp "" Pt1))
)
(if Ent1
    (progn ;If existing leader is selected allow for modifying or aligning to the leader
        (princ "nAdd code for modifying/aligning leader here")
    )
    (progn ;If existing leader is not selected, draw a new leader
        (while (not Pt2)
        (if (or (not *Content*) (= *Content* ""))
                (setq *Content* (nth 0 *Types*))
            )
            (If (= *Content* "MTEXT")
                (progn
                    (if *IsCivil*
                        (setq *Arrowheads* (list "CIVIL" "BEIOB-R1" "BEINOB-R1" "BOX-R1" "LOOP-R1" "BEISPL"))
                        (setq *Arrowheads* (list "BEIOB-R1" "BEINOB-R1" "BOX-R1" "LOOP-R1" "BEISPL"))
                    )
                )
                (progn
                    (if *IsCivil*
                        (setq *Arrowheads* (list "CIVIL" "BEIOB-R1" "BEINOB-R1" "BOX-R1" "LOOP-R1"))
                        (setq *Arrowheads* (list "BEIOB-R1" "BEINOB-R1" "BOX-R1" "LOOP-R1"))
                    )
                )
            )
            (setq *Prompt* (strcat "rSpecify second point [Content (" *Content* ")"))
            (if (or (not *Style*) (= *Style* ""))
                (setq *Style* (nth 0 *Arrowheads*))
            )
            (if (and (/= *Content* "1M08") (/= *Content* "MTEXT"))
                (progn
                    (if *Note*
                        (setq *Prompt* (strcat *Prompt* "/** Note **"))
                        (setq *Prompt* (strcat *Prompt* "/Note"))
                    )
                    )
                )
                (if (/= *Content* "MTEXT")
                (progn
                    (if *Typ*
                        (setq *Prompt* (strcat *Prompt* "/** Typical **"))
                        (setq *Prompt* (strcat *Prompt* "/Typical"))
                    )
                    )
                )
            (if (not *POC*)
                (setq *Prompt* (strcat *Prompt* "/Poc(d)"))
                (setq *Prompt* (strcat *Prompt* "/" (substr *POC* 2)))
            )
            (setq *prompt* (strcat *Prompt* "/Arrowheads (" *Style* ")/Exit]:"))
           
            (if *Align*
                (setq *Prompt* (strcat *Prompt* " " *Align*))
            )
            (if *Match*
                (setq *Prompt* (strcat *Prompt* " " *Match*))
            )
            (princ *Prompt*)
                (setq Input (grread t 4 4)
                      Data (cadr Input)
                      Code (car Input)
                )
                (cond
                    ((= Code 2);Handle all keypresses
                        (cond
                            ((= data 15); Change Orthomode when F8 is pressed
                                ;Code adjustment from Lee at http://www.theswamp.org/index.php?topic=54349.msg589159#msg589159
                                (setvar 'orthomode (- 1 (getvar 'orthomode)))
                            )
                            ((= data 21); Toggle Polarmode when F10 is pressed
                                ;Code adjustment from Lee at http://www.theswamp.org/index.php?topic=54349.msg589159#msg589159
        (setvar 'autosnap (boole 6 8 (getvar 'autosnap)))
        )
        ((or (= data 65) (= data 97)); Change arrowheads when A is pressed
            (setq POS (vl-position *Style* *Arrowheads*))
            (if (< POS (length *Arrowheads*))
                (setq *Style* (nth (+ POS 1) *Arrowheads*))
                (setq *Style* (nth 0 *Arrowheads*))
            )
        )
        ((or (= data 67) (= data 99)); Change content when C is pressed
            (setq POS (vl-position *Content* *Types*))
            (if (< POS (length *Types*))
                (setq *Content* (nth (+ POS 1) *Types*))
                (setq *Content* (nth 0 *Types*))
            )
        )
        ((or (= data 80) (= data 112)); Cycle through Point of connection/disconnection when P is pressed
            (setq POS (vl-position *POC* *POCS*))
            (if (< POS (length *POCS*))
                (setq *POC* (nth (+ POS 1) *POCS*))
                (setq *POC* (nth 0 *POCS*))
            )
        )
        ((and (or (= data 78) (= data 110)) (/= *Content* "1M08") (/= *Content* "MTEXT")); Change Note when N is pessed
            (if *Note*
                (setq *Note* nil)
                (setq *Note* T)
            )
        )
        ((and (or (= data 84) (= data 116)) (/= *Content* "MTEXT")); Change Typical when T is pessed
            (if *Typ*
                (setq *Typ* nil)
                (setq *Typ* T)
            )
        )
        )
                    )
                )
        )
    )
)
    (vla-EndUndoMark *ThisDrawing*)
)

I will have more changes coming, but I am wondering if there are things I can do to simplify this code further.

Logged

As promised, here is more, for some reason when I put the style to the leader, the leader always ends at 0,0, does anyone have an idea as to why?

(defun c:uleader (/ *ThisDrawing* *Space* *Scale* *IsCivil* *Path* *Prompt* *Align* *Match* *Types* *Style* *POC* *POCS* *Typ* *Note* *NewPoints* *MlObj* Pt1 Pt2 FxPt Input Data Code Ent1 POS Pt1Tst)
    (vl-cmdf "._-insert" "Uleader.dwg")(command); Insert in leader styles
    (setq *Types* (LIST "MTEXT" "1M08" "PL08" "AH08" "CFM" "FXU" "GPM" "PANEL" "FEEDER")
          *POCS* (list nil "-Poc" "-Pod")
    )
    (vl-load-com)
    ;Supporting Functions
    (defun eraseold (obj /) ;Erases the previous version of a VLA object - Code modifcation provided by ronjonp at http://www.theswamp.org/index.php?topic=54340.msg589085#msg589085
        (and (= 'vla-object (type obj))
            (not (vlax-erased-p obj))
            (vlax-write-enabled-p obj)
            (vla-delete obj)
        )
    )
    (defun GetVportScale ()
        (/ 1 (vla-get-CustomScale (vla-get-ActivePViewport (vla-get-activedocument (vlax-get-acad-object)))))
    )
    (defun PolarRound (ang deg)
        (* (/ pi (/ 180 (r2d deg))) (fix (/ (+ (/ pi (/ 360 (r2d deg))) ang) (/ pi (/ 180 (r2d deg))))))
    )
    (defun D2R (numberOfDegrees)
        (* pi (/ numberOfDegrees 180.0))
    ) ;_ end of defun
    (defun R2D (nbrOfRadians)
        (* 180.0 (/ nbrOfRadians pi))
    )
    ;End of Supporting Functions
    (setq *Path* (getvar "dwgprefix")
          *ThisDrawing* (vla-get-activedocument (vlax-get-acad-object)) ;_ Set Drawing and Space
      *Space* (vlax-get-property *ThisDrawing* (if (= 1 (getvar 'cvport)) 'paperspace 'modelspace)); Code adjustment from Lee Mac at: http://www.theswamp.org/index.php?topic=54349.msg589159#msg589159
      *Scale* (if (zerop (vla-get-activespace *ThisDrawing*))
                        (if (= (vla-get-mspace *ThisDrawing*) :vlax-true)
                            (GetVportScale)
                            1.0
                        )
                        (getvar "DimScale")
                  )
)
(setq newpoints (vlax-make-safearray vlax-vbDouble '(1 . 6)))
(If (> (strlen *path*) 5);Determine if this is a civil drawing
(progn
(setq pos (vl-string-position (ascii "\") *Path* (+ (vl-string-position (ascii "\") *path* 5) 1)))
(If (or (= (strcase (substr *path* (+ pos 8) 1)) "C") (= (getvar "USERS5") "CIVIL"))
    (setq *IsCivil* T)
)
)
)
    (if (zerop (vla-get-activespace *ThisDrawing*)); Set scale
        (if (= (vla-get-mspace *ThisDrawing*) :vlax-true)
            (setq *Scale* (GetVportScale))
            (setq *Scale* 1.0)
        )
        (setq *Scale* (getvar "DimScale"))
    )
    (vla-StartUndoMark *ThisDrawing*)
    ;ERROR HANDLER
    (defun *error* (msg)
        (if mlObj
            (progn
                (vla-highlight mlObj :vlax-false)
                (EraseOld mlObj)   
            )
        )
        ;; Added by Pkenewell on 3/28/2014
        (vla-EndUndoMark *ThisDrawing*)
        (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
            (princ (strcat "n** Error: " msg " **"))
        )
        (princ)
    )
    (if (not (tblsearch "LAYER" "LEADER")) ; Check to see if layer exists
(if (= 1 (getvar "pstylemode"))
(command "._-layer" "n" "LEADER" "color" "WHITE" "" "lweight" "DEFAULT" "" "ltype" "CONTINUOUS" "" "")
(command "._-layer" "n" "LEADER" "color" "WHITE" "" "lweight" "DEFAULT" "" "ltype" "CONTINUOUS" "" "pstyle" "BLACK" "" "")
)
)
(setvar "annoautoscale" 4)
(while (not Pt1)
    (initget "Select _Select")
    (setq Pt1 (getpoint "nPick starting point of leader [Select leader]:"))
    (cond
        ((= Pt1 "Select")
            (while (not Ent1)
                (setq Ent1 "nSelect leader to modify or align to:")
                (if (not Ent1)
                    (princ "r*** You must select a leader ***")
                )
                (setq Pt1 (cadr Ent1))
            )
        )
    )
)
(vlax-safearray-put-element newpoints 1 (car pt1))
(vlax-safearray-put-element newpoints 2 (cadr pt1))
(vlax-safearray-put-element newpoints 3 (caddr pt1))
(if (not Ent1)
    (setq Ent1 (nentselp "" Pt1))
)
(if Ent1
    (if (/= (cdr (assoc 0 (entget (car Ent1)))) "MULTILEADER")
        (progn
            (setq *STYLE* "BEIOB-R1"
                  Ent1 nil
            )
        )
        (setq *STYLE* "BEINOB-R1")
    )
    (setq *STYLE* "BEINOB-R1")
)
(if Ent1
    (progn ;If existing leader is selected allow for modifying or aligning to the leader
        (princ "nAdd code for modifying/aligning leader here")
    )
    (progn ;If existing leader is not selected, draw a new leader
        (while (not Pt2)
        (if (or (not *Content*) (= *Content* ""))
                (setq *Content* (nth 0 *Types*))
            )
            (If (= *Content* "MTEXT")
                (progn
                    (if *IsCivil*
                        (setq *Arrowheads* (list "CIVIL" "BEIOB-R1" "BEINOB-R1" "BOX-R1" "LOOP-R1" "BEISPL"))
                        (setq *Arrowheads* (list "BEIOB-R1" "BEINOB-R1" "BOX-R1" "LOOP-R1" "BEISPL"))
                    )
                )
                (progn
                    (if *IsCivil*
                        (setq *Arrowheads* (list "CIVIL" "BEIOB-R1" "BEINOB-R1" "BOX-R1" "LOOP-R1"))
                        (setq *Arrowheads* (list "BEIOB-R1" "BEINOB-R1" "BOX-R1" "LOOP-R1"))
                    )
                )
            )
            (setq *Prompt* (strcat "rSpecify second point [Content (" *Content* ")"))
            (if (or (not *Style*) (= *Style* ""))
                (setq *Style* (nth 0 *Arrowheads*))
            )
            (if (and (/= *Content* "1M08") (/= *Content* "MTEXT"))
                (progn
                    (if *Note*
                        (setq *Prompt* (strcat *Prompt* "/** Note **"))
                        (setq *Prompt* (strcat *Prompt* "/Note"))
                    )
                    )
                )
                (if (/= *Content* "MTEXT")
                (progn
                    (if *Typ*
                        (setq *Prompt* (strcat *Prompt* "/** Typical **"))
                        (setq *Prompt* (strcat *Prompt* "/Typical"))
                    )
                    )
                )
            (if (not *POC*)
                (setq *Prompt* (strcat *Prompt* "/Poc(d)"))
                (setq *Prompt* (strcat *Prompt* "/" (substr *POC* 2)))
            )
            (setq *prompt* (strcat *Prompt* "/Arrowheads (" *Style* ")]:"))
           
            (if *Align*
                (setq *Prompt* (strcat *Prompt* " " *Align*))
            )
            (if *Match*
                (setq *Prompt* (strcat *Prompt* " " *Match*))
            )
            (princ *Prompt*)
                (setq Input (grread t 4 4)
                      Data (cadr Input)
                      Code (car Input)
                )
                (cond
                    ((= Code 2);Handle all keypresses
                        (cond
                            ((= data 15); Change Orthomode when F8 is pressed
                                ;Code adjustment from Lee at http://www.theswamp.org/index.php?topic=54349.msg589159#msg589159
                                (setvar 'orthomode (- 1 (getvar 'orthomode)))
                            )
                            ((= data 21); Toggle Polarmode when F10 is pressed
                                ;Code adjustment from Lee at http://www.theswamp.org/index.php?topic=54349.msg589159#msg589159
        (setvar 'autosnap (boole 6 8 (getvar 'autosnap)))
        )
        ((or (= data 65) (= data 97)); Change arrowheads when A is pressed
            (setq POS (vl-position *Style* *Arrowheads*))
            (if (< POS (length *Arrowheads*))
                (setq *Style* (nth (+ POS 1) *Arrowheads*))
                (setq *Style* (nth 0 *Arrowheads*))
            )
        )
        ((or (= data 67) (= data 99)); Change content when C is pressed
            (setq POS (vl-position *Content* *Types*))
            (if (< POS (length *Types*))
                (setq *Content* (nth (+ POS 1) *Types*))
                (setq *Content* (nth 0 *Types*))
            )
        )
        ((or (= data 80) (= data 112)); Cycle through Point of connection/disconnection when P is pressed
            (setq POS (vl-position *POC* *POCS*))
            (if (< POS (length *POCS*))
                (setq *POC* (nth (+ POS 1) *POCS*))
                (setq *POC* (nth 0 *POCS*))
            )
        )
        ((and (or (= data 78) (= data 110)) (/= *Content* "1M08") (/= *Content* "MTEXT")); Change Note when N is pessed
            (if *Note*
                (setq *Note* nil)
                (setq *Note* T)
            )
        )
        ((and (or (= data 84) (= data 116)) (/= *Content* "MTEXT")); Change Typical when T is pessed
            (if *Typ*
                (setq *Typ* nil)
                (setq *Typ* T)
            )
        )
        )
                    )
                    ((= Code 5)
                        (setq FxPt (trans data 1 0))
                        (EraseOld *MlObj*)
                        (vlax-safearray-put-element newpoints 4 (car FxPt))
(vlax-safearray-put-element newpoints 5 (cadr FxPt))
(vlax-safearray-put-element newpoints 6 (caddr FxPt))
(setq *MlObj* (vla-AddMleader *Space* newpoints 0))
(vla-put-stylename *MlObj* *Style*);Something appears to be wrong with this line, it causes the leader to always end at 0,0
(vla-put-layer *MlObj* "LEADER")
                    )
                )
        )
    )
)
    (vla-EndUndoMark *ThisDrawing*)
)

Logged

Similar Threads

Posting Permissions

This error is the result of custom civil engineering objects that the Canadian firm GHD attaches to its drawings. This practice allows GHD to implement precautions such as preventing users from deleting or moving critical utilities. However, this method of adding this functionality does not follow programming best practices, and essentially makes the file unusable by other firms.

Complete the following steps to clean these custom objects.

1. Open the CAD Options dialog box by typing Options or Op in the Command line and pressing Enter.

2. In the Options dialog box, select the Open and Save Tab. Then set the Demand load ObjectARX apps menu to Command invoke.

3. Open the problematic file.

4. Copy and paste the following text into the Command line, making sure to include all the parentheses:
(dictremove (namedobjdict) «VL-REACTORS»)

5. Press Enter.

6. Immediately run our Nuke tool on the file.

The reactor should now be removed from the file, and you can work with it as you would normally.

Close

If you received any of these three no function definition errors, your AutoCAD installation is likely configured improperly. The exact cause of these errors is unknown, although they may result from having multiple versions of AutoCAD on your computer.

To resolve the issue:

1. Download the zip file linked below.

Download the file to a location where you can easily find it, such as your desktop.

2. Locate and double-click the downloaded file vlax-ename fix.reg.zip.

4. You’ll now have a file named vlax-ename fix.reg in that same location. Double-click this file.

You may need to run this file as an administrator.

5. Restart CAD.

6. Attempt the same action that generated the error. If you don’t see the error, you’ve resolved the issue.

Still getting the error? Move on to the next step.

7. Check whether you have multiple versions of AutoCAD or F/X CAD installed. If you have an older version installed, follow our steps to uninstall that version. Do not reinstall that older version.

8. Once you’re sure you only have one version of AutoCAD or F/X CAD (the version you want to use) installed, follow our steps to reinstall that version.

For example, if you got the error while trying to use F/X CAD 2018, repair F/X CAD 2018 after removing any older versions.

Problems installing? You may need to disable your antivirus software temporarily while installing AutoCAD or F/X CAD. Don’t forget to enable it once the installer finishes.

AutoCAD includes myriad add-on libraries. If you’re curious, take a look in the folder C:/Program Files/Autocad on your computer. The error may be a result of a problem with one of the following files in that folder: vlreac.dll, vllib.dll, or vlcom.dll.We have been unable to resolve this issue by copying these files over, and these files are not self-registering DLL files, which leaves reinstalling as the only viable solution.

Close

This error is the result of a problem with the OpenDCL function. You can easily resolve it by following our steps to reinstall OpenDCL.

Close

The exact text of this error message will depend on the command or tool you attempted to use when you received the error. Examples include:

• Error: No function definition: projectplants: You would have received this error when clicking on a plant.
• Error: No function definition: defineworkarea: You would have received this error when attempting to open our New Work Area tool.

A similar No function definition error means the file LandFX.vlx was not able to load, but your menu loaded successfully. This issue can occur when:

• The file LandFX.vlx is stored in the LandFX folder on your office server, and the server connection is bad.

If so, ask your IT Admin to troubleshoot your Land F/X installation.

If you are not using our software with an office server, or if your IT admin has determined that your server connection is functioning properly, the issue may be occurring because:

• The file LandFX.vlx is lost, damaged, or missing.

If so, you can resolve the issue by reverting the LandFX.vlx file to the previous version:

1. Locate the file LandFX.vlx in your LandFX folder. Rename this file, giving it the name LandFX.vlx.old

2. Locate the file LandFX.vlx.bak in the same location. Rename this file, giving it the name LandFX.vlx

Close