Hallo forum leden,
Ik heb een paar duitse lisp gevonden op het web maar als ik deze laad dan krijg ik de volgende foutmedling.
Command: ; error: An error has occurred inside the *error* functionno function
definition: R_VAR
Ik heb de help geraadpleegd en heb een duitse lisp handleiding maar ik kan R_VAR nergens vinden.
Heeft iemand een idee wat dit kan zijn.
Atwist
De melding die jij krijgt spreekt voor zich: de functie R_VAR wordt aangeroepen maar is niet gedefinieerd. R_VAR is dus een lisp-functie die ontbreekt.
Misschien helpt deze link:
http://www.foren.industrie24.com/read.php?5,17566,17574
Beste Roy,
De R-Var is in de lisp inderdaad niet gedefinieerd.
Ik heb een 4 tal lisp waarbij dit is het zijn oude lisp uit 2000 tot 2005, kan dit de oorzaak zijn.
Gebruikt zelf 2008.
Atwist
PS: de handleiding die ik gevonden heb komt van Theodor Schönwald en de lisp ook.
De link uit mijn vorige post:
http://www.foren.industrie24.com/read.php?5,17566,17574
betreft ook werk van Theodor Schönwald.
probeer eens om de functie R-Var (6 regels) uit de link toe te voegen aan jouw code (gewoon onderaan).
Als dit geen oplossing biedt post dan jouw code.
Beste Roy,
Heb de regel toe gevoegd krijg nu een andere fout melding.
Command: _appload Zaehlen.lsp successfully loaded.
Command: ; error: no function definition: IN-PACKAGE
;;--------------------------------------------------------------------------*
;; Copyright 2003 DC4 Technisches Büro GmbH *
;; *
;;--------------------------------------------------------------------------*
;; Dateiname: bilanz.lsp
;; Version : 1.0
;; Datum : 20.102003
;; Author : Gt
;;--------------------------------------------------------------------------*
(in-package :custom)
(use-package :OLI)
;;--------------------------------------------------------------------------*
(sd-defdialog 'dc4-teile-bilanz-dialog
:dialog-title "Teile zaehlen"
;;:dialog-control :sequential
:variables
(defun R_VAR ()
'(
(bgr :value-type :assembly
:prompt-text "Baugruppe angeben"
:title "Baugruppe"
:initial-value nil
:after-input (after-bgr-action)
:modifies nil
)
(ubgr :value-type :display-only
:title "Unterbaugr."
)
(total :value-type :display-only
:title "Teile"
)
("davon")
(vteil :value-type :display-only
:title "Volumenteile"
)
(fteil :value-type :display-only
:title "Flaechenteile"
)
(dteil :value-type :display-only
:title "Drahtteile"
)
(cntteil :value-type :display-only
:title "Behaelter"
)
(lay :value-type :display-only
:title "AnsSaetze"
)
)
:local-functions
'((after-bgr-action ()
(let (vdteil vfteil)
(setf ubgr (length (sd-call-cmds (get_selection :focus_type *sd-assembly-seltype* :select :recursive :in_assembly bgr))))
(setf total (length (sd-call-cmds (get_selection :focus_type *sd-part-seltype* :allow_wire_part :allow_face_part :select :recursive :in_assembly bgr))))
(setf vteil (length (sd-call-cmds (get_selection :focus_type *sd-part-seltype* :allow_wire_part :allow_face_part
:check_function
#'(lambda (si)
(let ()
(if (or (sd-inq-face-part-p si) (sd-inq-wire-part-p si))
:filter
:ok
);;if
);;let
);;lambda
:select :recursive :in_assembly bgr))))
(setf vdteil (length (sd-call-cmds (get_selection :focus_type *sd-part-seltype* :allow_wire_part :allow_face_part
:check_function
#'(lambda (si)
(let ()
(if (sd-inq-face-part-p si)
:filter
:ok
);;if
);;let
);;lambda
:select :recursive :in_assembly bgr))))
(setf vfteil (length (sd-call-cmds (get_selection :focus_type *sd-part-seltype* :allow_wire_part :allow_face_part
:check_function
#'(lambda (si)
(let ()
(if (sd-inq-wire-part-p si)
:filter
:ok
);;if
);;let
);;lambda
:select :recursive :in_assembly bgr))))
(setf vcntteil (length (sd-call-cmds (get_selection :focus_type *sd-assembly-seltype* :allow_wire_part :allow_face_part
:check_function
#'(lambda (si)
(let ()
(if (sd-inq-container-p si)
:filter
:ok
);;if
);;let
);;lambda
:select :recursive :in_assembly bgr))))
(setf lay (length (sd-call-cmds (get_selection :focus_type *sd-layout-seltype* :select :recursive :in_assembly bgr))))
(setf dteil (- vdteil vteil))
(setf fteil (- vfteil vteil))
(setf cntteil (- ubgr vcntteil))
);;let
)
)
:ok-action
'()
)
De lisp die jij hebt post is bestemd voor SolidDesigner/CoCreate (http://osd.cad.de/) en niet voor AutoCAD.
Overigens de regel:
(defun R_VAR ()
komt in de originele code (http://osd.cad.de/downloads/Zaehlen.lsp) helemaal niet voor!
Beste Roy,
:?Vandaar dat het niet werkt.
Deze lisp stonden gewoon tussen de autocad list op een Duitse site.
Dan ga ik goewoon weer verder zoeken naar goede lisp's.
Toch erg bedankt voor het kijken. :vreegoe:
Atwist