---

AutoCAD 2002

Hallo,

ich möchte auf Linien (2DPolylinien mit einer Breite > 0) die sich horizontal u. vertikal kreuzen, einen Bruch auf der horizontalen Linie mit dem Bruchabstand von jeweils 0,75 mm links u. rechts vom Schnittpunkt der vertikalen Linie einfügen.
Ich habe dazu schon einige Tools ohne Erfolg ausprobiert. Auch verstehe ich nicht den Aufwand, den einige Prg. zum Brechen  betreiben (z. B. "_CIRCLE" "_TRIM" "_.ERASE" KR "" "_ZOOM"...).
Ist es denn nicht möglich, den AutoCAD Bruchbefehl per LISP auszuführen und die Koordinaten für den ersten u. zweiten Punkt vorzugeben anstatt der Mausklicke? (wenn nicht, kann man die Mausklicke nicht per Prg. simulieren?)

Für Eure Bemühungen bedanke ich mich schon im Voraus.
 

   

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

---

Ich denke das ist das richtige für diesen Zweck und deine Anfrage.

(vl-load-com)
(setq t_2  (car (entsel))
      schn (getpoint "\nSchnittpunkt wählen")
      ) ;_ end of setq
(command "_break" T_2  (vlax-curve-getPointAtDist
           (vlax-ename->vla-object t_2)
           (-
             (vlax-curve-getDistAtPoint
               (vlax-ename->vla-object t_2)
               schn
               )
             0.75
             )
           ) (vlax-curve-getPointAtDist
         (vlax-ename->vla-object t_2)
         (+ 0.75
            (vlax-curve-getDistAtPoint
              (vlax-ename->vla-object t_2)
              schn
              )
            )
         ))

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo CADwiesel,

das LISP-Prg. ist genau das was ich suche!
Vielen Dank!

(Wenn Ihr ein Spendenkonto hättet, würde ich glatt was überweisen!)

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

---

cadwiesel hat ein spendenkonto !!
www.cadwiesel.de

wl cw

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

---

Da genau, und er freut sich richtig über schwierige dinge

mailto: anfrage@cadwiesel.de

cw

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

---

Hallo CADwiesel,

ich versuche in dem LISP-Prg. den Fang "Schnittpunkt" mit
(setvar "OSMODE" 32)
vorzugeben. Leider ohne Erfolg!
(Je nach dem in welcher Zeile ich das einsetze, kommt entweder eine  Fehlermeldung oder es kommt kein Schnittpunkt-Fang)
Wie funktioniert es?

MfG Klaus

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

---

Hallo Klaus

ersetz einfach
schn (getpoint "\nSchnittpunkt wählen")
durch
schn (osnap (getpoint "\nSchnittpunkt wählen") "_int")

------------------

gruß
Stephan

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

---

Hallo Vision,

du musst den Fang vor dem Bruchbefehl auch wieder zurück setzen, sonst arbeitet dieser nicht richtig.
  

Zitat:

---

Original erstellt von CADwiesel:
...
(vl-load-com)
(setq osmode_save(getvar "OSMODE"))
(setvar "OSMODE" 32)
(setq t_2  (car (entsel))
      schn (getpoint "\nSchnittpunkt wählen")
      ) ;_ end of setq
(setvar "OSMODE" 0)
(command "_break" T_2  (vlax-curve-getPointAtDist
           (vlax-ename->vla-object t_2)
           (-
             (vlax-curve-getDistAtPoint
               (vlax-ename->vla-object t_2)
               schn
               )
             0.75
             )
           ) (vlax-curve-getPointAtDist
         (vlax-ename->vla-object t_2)
         (+ 0.75
            (vlax-curve-getDistAtPoint
              (vlax-ename->vla-object t_2)
              schn
              )
            )
         ))
(setvar "OSMODE" osmode_save)
(setq osmode_save nil t2 nil schn nil)

---

Damit der zuvor eingestellte Objektfang am Ende wieder hergestellt wird, habe ich diesen in der Variablen osmode_save zwischengespeichert und am Ende wieder der Sysvar zugewiesen.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo,

hier ist auch noch eine Lösung.

Gruß
Theodor Schönwald

;; Zentrischer Bruch.
;; 6.8.2003  V 1.0 
;;
(defun C:Z_BRUCH (/ ELEM ELPT KR BRUCH_BR)

(defun NEUERR (MSG)
  (prompt "\n. \n. \n ")
  (princ MSG)
  (R_VAR)
  (exit)
  (princ)
)

(setq ALTERR  *ERROR*
      *ERROR* NEUERR
      C_E    (getvar "CMDECHO")      ; ECHO
      G_M    (getvar "GRIDMODE")      ; RASTER
      O_M    (getvar "ORTHOMODE")    ; Ortho
      O_S    (getvar "OSMODE")        ; Fang
      W_K    (getvar "UCSORG")        ; BKS
)

(setvar "CMDECHO" 0)
(command "BKS" "WELT")
(setvar "GRIDMODE" 0)
(setvar "ORTHOMODE" 0)
(setvar "OSMODE" 0)
(redraw)

(defun R_VAR ()
  (command)
  (setvar "GRIDMODE" G_M)
  (setvar "ORTHOMODE" O_M)
  (setvar "OSMODE" O_S)
  (command "BKS" "S" W_K)
  (setq *ERROR* ALTERR)
  (setvar "CMDECHO" C_E)
  (redraw)
  (princ)
)
;;--------------------------------------------------------------------------
(prompt "\n .\n .\n ")
(while (not ELEM)
  (setq ELEM (entsel "\n \n \nBruchpunkt wählen: "))
)
(setq BRUCH_BR (getreal "\n \nBruchbreite: "))
(setq ELPT (osnap (cadr ELEM) "_NEA")) ; Anpickpunkt NAECHST

;; ZOOM und REGEN damit STUTZEN funktioniert
(command "_ZOOM" "_C" ELPT BRUCH_BR "_REGEN" "_CIRCLE" ELPT (* BRUCH_BR 0.5))
(setq KR (entlast))
(command "_TRIM" KR "" ELPT "" "_.ERASE" KR "" "_ZOOM" "_P")

(R_VAR)
(princ)
) ;_ End defun c:
(princ)
(princ "Bruch-Programm wird geladen")
(princ)

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

---

Hallo Holger,

würdest Du mir bitte das Bruch-Lisp so erweitern, dass der Befehl in einer Wiederhol-Schleife läuft und mit der rechten Mausatste abbricht?
Für Deine Bemühungen bedanke ich mich im Voraus.

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

---

Zitat:

---

Original erstellt von vision:
Hallo Holger,

würdest Du mir bitte das Bruch-Lisp so erweitern, dass der Befehl in einer Wiederhol-Schleife läuft und mit der rechten Mausatste abbricht?
Für Deine Bemühungen bedanke ich mich im Voraus.

---

einfach beim Button ein * hinzufügen, etwa so:

Code:

---

[_Button("Mehrfacher zentrischer Bruch", "bild1.bmp", "bild2.bmp")]*^C^C^P_z_bruch

---

------------------
(entmake (entget (entlast)))

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

---

line_bruch.zip

Hallo Vision!
Eins vorweg : .. erwarte nicht immer 100%-ige Komplettlösungen. Holger hat in seinem Signum z.B. einen Verweis auf defun.de . Da bekommst du wahrscheinlich genau die für dich zurechtgeschnittenen Lösung! Und wenn's wirklich Arbeitszeit spart, sollte dir das auch etwas wert sein!
Weil aber nun wirklich der "kreative" Teil schon fertig ist, und es auch mal Ausnahmen geben muß, ist im Anhang das was du suchst. (Hoffentlich....)
Ansonsten kann ich bloß meine Empfehlung wiederholen sich auf den entsprechenden Seiten etwas Lisp-kundig zu machen!
Gruß Thomas

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