Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Lisp in Acad 2015

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Lisp in Acad 2015 (2693 mal gelesen)
MARTINLE
Mitglied
Tischler


Sehen Sie sich das Profil von MARTINLE an!   Senden Sie eine Private Message an MARTINLE  Schreiben Sie einen Gästebucheintrag für MARTINLE

Beiträge: 485
Registriert: 18.10.2007

AUTOCAD 2016,
MS Windows7, 64-bit

erstellt am: 17. Jun. 2014 14:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo hab ein Problem,

folgendes Lisp teilt mir den Winkel zur Hälfte zwischen 2 Polyliniensegmenten. Bis Acad 2014 ging es ohne Mucken.
Jetzt bei Acad 2015 hängt es bei:

Befehl: bisect
Select first segment:
Select first segment:
Select second segment: _.line
Ersten Punkt angeben: _non
Nächsten Punkt angeben oder [Zurück]: <112.5000000000011 Winkel überschreiben: 112.50  <--- hier wird ein nächster Punkt angefordert. Sollte es aber nicht. Die Linie sollte
selbst erstellt werden.

Bitte um Hilfe

lg. Martin


;;; BISECT -Gilles Chanteau- (maj 23/04/07)

;;; Crée une ligne sur la bissectrice de l'angle formé par les deux segments sélectionnés.

;;; La longueur de la ligne est entrée au clavier ou spécifiée à l'aide du pointeur.

(defun c:bisect (/ e1 e2 l1 l2 p1 p1e p1m p2 p2e p2m som ang)
  (while (not
  (setq e1 (entsel "\nSelect first segment: "))
)
  )
  (while (not
  (setq e2 (entsel "\nSelect second segment: "))
)
  )
  (setq l1 (entget (car e1))
l2 (entget (car e2))
p1 (osnap (cadr e1) "_near")
p2 (osnap (cadr e2) "_near")
  )
  (if
    (and
      (or
(and (member (cdr (assoc 0 l1)) '("_XLINE" "_RAY"))
    (setq p1m (mapcar '+ p1 (trans (cdr (assoc 11 l1)) 0 1 T)))
    (setq p1e (mapcar '- p1 (trans (cdr (assoc 11 l1)) 0 1 T)))
)
(and
  (setq p1m (osnap (cadr e1) "_midpoint"))
  (setq p1e (osnap (cadr e1) "_endpoint"))
)
      )
      (or
(and (member (cdr (assoc 0 l2)) '("_XLINE" "_RAY"))
    (setq p2m (mapcar '+ p2 (trans (cdr (assoc 11 l2)) 0 1 T)))
    (setq p2e (mapcar '- p2 (trans (cdr (assoc 11 l2)) 0 1 T)))
)
(and
  (setq p2m (osnap (cadr e2) "_midpoint"))
  (setq p2e (osnap (cadr e2) "_endpoint"))
)
      )
    )
    (if (vl-every
  (function (lambda (x) (equal (caddr p1) (caddr x) 1e-009)))
  (list p1m p1e p2 p2m p2e)
)
      (if (and (null (inters p1 p1m p1 p1e))
(null (inters p2 p2m p2 p2e))
  )
(if (setq som (inters p1 p1e p2 p2e nil))
  (progn
    (setq ang (/ (+ (angle som p1) (angle som p2)) 2.0))
    (vl-cmdf "_.line"
      "_non"
      som
      (strcat "<" (angtos ang (getvar "AUNITS") 15))
      pause
      ""
    )
  )
  (princ "\nError: parallel segments")
)
(princ "\nError: non linear segment")
      )
      (princ
"\nErreur: segments are not coplanar or parallel to current XY UCS plane"
      )
    )
    (princ "\nError: invalid entity")
  )
  (princ)
)

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

Brischke
Moderator
CAD on demand GmbH




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 17. Jun. 2014 15:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für MARTINLE 10 Unities + Antwort hilfreich

(ungetestet) ... wahrscheinlich liegts am vl-cmdf
Ersetz das mal durch ein (command-s ..) oder falls es ein Äqivalent dazu im VL-CMDF-S? gibt auch damit.

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

spider_dd
Mitglied



Sehen Sie sich das Profil von spider_dd an!   Senden Sie eine Private Message an spider_dd  Schreiben Sie einen Gästebucheintrag für spider_dd

Beiträge: 1111
Registriert: 27.11.2003

Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018

erstellt am: 17. Jun. 2014 15:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für MARTINLE 10 Unities + Antwort hilfreich

Hallo Martin,

Zitat:
Original erstellt von MARTINLE:
... Bis Acad 2014 ging es ohne Mucken. Jetzt bei Acad 2015 hängt es bei:

Befehl: bisect
Select first segment:
Select first segment:
Select second segment: _.line
Ersten Punkt angeben: _non
Nächsten Punkt angeben oder [Zurück]: <112.5000000000011 Winkel überschreiben: 112.50  <--- hier wird ein nächster Punkt angefordert. Sollte es aber nicht. Die Linie sollte
selbst erstellt werden.


Sicher??  Weil:

Zitat:

...
    (vl-cmdf "_.line"
      "_non"
      som
      (strcat "<" (angtos ang (getvar "AUNITS") 15))
      pause                                              <----- HIER
      ""
    )
...
)

wird der Endpunkt der zu zeichnenden Linie der Winkelhalbierenden abgefragt, und das auch in ACAD 2014 (nur da getestet).

Also alles so wie es sein soll(??)

Gruß
Thomas

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

MARTINLE
Mitglied
Tischler


Sehen Sie sich das Profil von MARTINLE an!   Senden Sie eine Private Message an MARTINLE  Schreiben Sie einen Gästebucheintrag für MARTINLE

Beiträge: 485
Registriert: 18.10.2007

AUTOCAD 2016,
MS Windows7, 64-bit

erstellt am: 17. Jun. 2014 15:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@ Holger

Hallo Holger,

du hast den Fehler erkannt.
So gut möchte ich auch mal werden, trotz falscher Fragestellung den Fehler erkennen.
Ich hab meine Frage falsch gestellt. Den zweiten Punkt mußte ich schon selber setzten aber der Winkel war schon voreingestellt.

(command-s .. <--dies hab ich überhaupt noch nie gesehen. Kannst du mir "command-s" noch mal kurz erklären?

Danke Holger!

Lg. Martin

@ Thomas

Danke für deine Hilfe.
Hab meine Frage falsch gestellt--> siehe Holger1
Sorry!

lg. Martin

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 17. Jun. 2014 15:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für MARTINLE 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von MARTINLE:
(command-s .. <--dies hab ich überhaupt noch nie gesehen. Kannst du mir "command-s" noch mal kurz erklären?

Schau doch bitte erst mal in die Hilfe, wenn dann noch Fragen sind kannst du die ganz präzise stellen !?
Aber ok, ich bin ja auch nicht Holger 

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

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

Brischke
Moderator
CAD on demand GmbH




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 17. Jun. 2014 15:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für MARTINLE 10 Unities + Antwort hilfreich

in der 2015 sind einige Änderungen enthalten, was das command-Handling betrifft. Da ich selber gerade eine 3d-Anlagenbau-Applikation, die in Lisp programmiert ist, nach 2015 portiere, habe ich einfach mal getippt, dass es das (COMMAND) ist. Alles andere funktioniert in 2015 wie gehabt. Leider ist es aber so, dass man nicht mit Suchen&Ersetzen über den Code gehen kann, da an manchen Stellen das (Command (ohne S) gebraucht wird.
Das -S gibt dem Interpreter einfach Bescheid, dass der Befehl als Single-Befehl ausgewertet werden soll. Das Command wird dann geschlossen, ansonsten erwartet es weitere Benutzereingaben.

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

MARTINLE
Mitglied
Tischler


Sehen Sie sich das Profil von MARTINLE an!   Senden Sie eine Private Message an MARTINLE  Schreiben Sie einen Gästebucheintrag für MARTINLE

Beiträge: 485
Registriert: 18.10.2007

AUTOCAD 2016,
MS Windows7, 64-bit

erstellt am: 17. Jun. 2014 16:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke Holger,

wieder was gelernt

lg Martin

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz