---

Servus!

Ich möchte das als neuen Punktfang aufrufen.
Funktioniert leider nicht mit 'rl, was mache ich falsch?

Meldung "Punkt oder Optionstitel wird benötigt."

(DEFUN c:rl (
/
p
a
)

(SETQ p (GETPOINT))
(SETQ a (GETREAL)) 
(LIST (NTH 0 p) (+ (NTH 1 p)))
)

Ciao Georg

------------------
http://www.xxx-tausend.info

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... schau dir mal an, was es für Möglichkeiten gibt, seine Funktionen zu benennen.
c: definiert einen Befehl, der nicht transparent aufgerufen werden kann.
Ich habe die Varianten nicht im Kopf, aber da gibt's auch eine, mit der man die Funktionen transparent starten kann.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Georg,

Zitat:

---

Original erstellt von gmk:
...

(LIST (NTH 0 p) (+ (NTH 1 p)))
...

---

Was soll das machen?
Was wird mit a?
Erkläre mal bitte etwas mehr, was Du vor hast.

Und noch was:
(nth 0 p)  =  (car p)
(nth 1 p)  =  (cadr p)

Gruß
Thomas

[Diese Nachricht wurde von spider_dd am 12. Feb. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

doch doch, das geht einfach so ! Da irrt sich 'Brischke' gerade.

Du wirst also etwas mehr verraten müssen von deinem "so möchte ich es verwenden" .

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

(DEFUN c:rl (
/
p
a
)

(SETQ p (GETPOINT))
(SETQ a (GETREAL))
(LIST (NTH 0 p) (+ (NTH 1 p) a))
)

Hab das a vergessen.

Ich möchte die Funktion transparent als Punktfang verwenden; was soll ich sonst noch verraten ? "Früher" ging das mit '. @ kenn ich, will ich aber nicht.

Ciao Georg

------------------
http://www.xxx-tausend.info

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

transparente Befehle und Punktfänge nutzt man innerhalb einer (anderen) Funktion,
somit ist mir bekannt das du irgend einen Befehl gestartet hast (welchen) und an irgendeiner Stelle
im Befehlsablauf (welcher) du 'RL eingibst und es zu einer Fehlermeldung kommt - oder so ähnlich.

Du könntest die Anwendung also sehr wohl genauer beschreiben.

Es hilft dir ja wohl nicht wenn ich dir schreibe "bei mir funktioniert es" - ohne weitere Infos , oder?

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Beispiel

Befehl: _move
Objekte wählen: Entgegengesetzte Ecke angeben: 1 gefunden
Objekte wählen:
Basispunkt oder Verschiebung: _endp von Zweiten Punkt der Verschiebung angeben
oder <ersten Punkt der Verschiebung verwenden>: 'rl
Ungültiger Punkt.

------------------
http://www.xxx-tausend.info

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hast du das zwischen durch mal in einer anderen Datei getestet in der du dann sicher bist die richtige RL Funktion geladen zu haben ?

Code:

---

Befehl: _move

Objekte wählen: 1 gefunden

Objekte wählen:

Basispunkt oder [Verschiebung] <Verschiebung>: _end
von
Zweiten Punkt angeben oder <ersten Punkt der Verschiebung verwenden>: 'rl

Point: <bei 10,10,0 gepickt>
Real: 15
(10.0 25.0)

Befehl:

---

(ich war so frei und habe getpoint und getreal mal einen Text für den Benutzer mitgegeben - das ist für mich einfacher)

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

mehrmals getestet, kein Erfolg

http://ww3.cad.de/foren/ubb/Forum145/HTML/000840.shtml
mit dem mix hat's auch schon mal funktioniert ... ist auch als DEFUN c: definiert, bringt aber mit ' die gleiche Fehlermeldung, auch in verschiedenen Dateien.

Evtl. kann die rl funktion ja mal einer bei sich ausprobieren.

------------------
http://www.xxx-tausend.info

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von cadffm:

Code:

---

Befehl: _move

Objekte wählen: 1 gefunden

Objekte wählen:

Basispunkt oder [Verschiebung] <Verschiebung>: _end
von
Zweiten Punkt angeben oder <ersten Punkt der Verschiebung verwenden>: 'rl

Point: [i]<bei 10,10,0 gepickt>
Real: 15
(10.0 25.0)

Befehl:

---

[/i]

---

Denkst du ich habe das getippt ? Das ist nur aus dem Textfenster kopiert..

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Stell mal bitte deinen Funktionstext ein ...

------------------
http://www.xxx-tausend.info

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Es geht um deine Funktion, also teste ich mit deiner Funktion:

Zitat:

---

Original erstellt von cadffm:
(ich war so frei und habe getpoint und getreal mal einen Text für den Benutzer mitgegeben - das ist für mich einfacher)

---

Code:

---

(DEFUN c:rl (
/
p
a
)

(SETQ p (GETPOINT "\nPoint: "))
(SETQ a (GETREAL "\nReal: "))
(LIST (NTH 0 p) (+ (NTH 1 p) a))
)

---

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP