CADsite forum

(defun TekstErr2 (msg)
(if (/= msg "Function cancelled") (princ (strcat "\nError: " msg)))
(setq msg nil)
(ResVarTekst2)
(princ)
)
(defun ResVarTekst2 ()
(setvar "CMDECHO" ~CMD)
(setq *error* olderr ~CMD nil)
)
(defun c:Tekst2 (/ hgt P0)
  Â (setq olderr *error* *error* TekstErr
  Â  Â  Â  ~CMD (getvar "CMDECHO")
  Â )
  Â (setvar "cmdecho" 0)
  Â (if (not (tblsearch "STYLE" "iso"))
  Â (command "_STYLE" "iso" "isocp.shx" "0" "1" "0" "N" "N"))
;;;; (command "_STYLE" "iso" "iso.shx" "0" "1" "0" "N" "N" "N"))
  Â (while  (not (or (= hgt 1.25) (= hgt 2.5) (= hgt 3.5)))
  Â  Â  (setq hgt (getreal "\nGeef de gewenste texthoogte <1.25 - 2.5 - 3.5> ")))
  Â (entmake (list (cons 0 "TEXT")
  Â  Â  Â  (cons 8 "18")  Â  ;laagnaam
  Â  Â  Â  (cons 10 (setq P0 (getpoint "\nGeef het invoegpunt voor de text -> ")))
  Â  Â  Â  (cons 11 p0)
  Â  Â  Â  (cons 50 (getangle P0 "\nGeef de rotatiehoek in: "))
  Â  Â  Â  (cons 1 (getstring T "\nGeef de tekst in: "))
  Â  Â  Â  (cons 40 hgt)  Â  Â  ;texthoogte
  Â  Â  Â  (cons 73 1) ;justification
  Â  Â  Â  (cons 7 "Iso")))  Â ;textstyle
  Â (ResVarTekst2)
  Â (princ)

wanneer ik hem opgestart krijg dan pas ik hem wel aan naar de waarden van onze tekenstandaarden.

alvaste bedankt

Beste silverster,

Gewoon zoeken naar: (defun c: .... ( ...
De tekst na de dubbele punt en voor het eerste haakje openen is het commando dat je zoekt.
In dit geval: Tekst2

Groet, Roy.

ja dat dacht ik ook helaas krijg ik alleen de melding

_Tekst2 Unknown command "TEKST2".

alles is ingeladen de patverwijzingen staan goed en toch werkt het niet

Beste silverster,

Lisp in bijlage werkt bij mij (Bricscad 7).

Groet, Roy.

Citaat van: roy_043 op wo 08 07 2009, 11:51:15
Beste silverster,

Lisp in bijlage werkt bij mij (Bricscad 7).

Groet, Roy.

ja perfect nu werkt hij ook bij mij