---

parallelbemassung3.jpg

Hallo LISP-Forum,

kennt jemand ein Tool, mir dem eine ordentliche Parallelbemassung erstellt werden kann? (siehe Foto)

freue mich auf Antworten,
Danke und Gruss, lillyfee

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

---

bem_bks.zip

Hallo lillyfee,
vielleicht kann Dir folgendes LISP weiterhelfen. Über =>Extras=>Anwendung laden.., die Datei "bem_bks.lsp" laden und dann in der Befehlszeile über "bem_bks" aufrufen.

------------------
viele Grüße

Jörn

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

---

Hallo,

viiiiiiel einfacher.
Das BKS Benutzerkoordinatensystem nach der unteren Bauteilkante ausrichten und dann normal bemassen mit horizontaler Textausrichtung im Bemassungsstil.

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

---

Hallo AsSchu,

wenn alle Objekte die zu bemaßen sind eine Ausrichtung haben, okay, aber sonst muß ich doch auch wieder für jedes Objekt das BKS erstellen und ausrichten, oder verstehe ich das falsch?

------------------
viele Grüße

Jörn

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

---

Zitat:

---

Original erstellt von joern bosse:
Hallo AsSchu,

wenn alle Objekte die zu bemaßen sind eine Ausrichtung haben, okay, aber sonst muß ich doch auch wieder für jedes Objekt das BKS erstellen und ausrichten, oder verstehe ich das falsch?

---

ja na und

nimm das :xplan
von hier http://autocad.cad.de/
und schon ist das relativ einfach

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

---

hi !

das oben gepostete tool erstellt eine bemassung zwischen zwei punkten.

lilyfee sucht aber eine möglichkeit ein parallelmass zu generieren und deshalb habe ich die punktwahl um objektfänge wie folgt erweitert:

    (progn
      (setvar "osmode" 512);Ofang nächster
      (if (setq pkt1 (getpoint "\nStartpunkt der Bemassung eingeben."))
        (progn
(setvar "osmode" 128);Ofang Lot
(setq pkt2 (getpoint pkt1 "\nEndpunkt der Bemassung eingeben."))
);end-progn
      )

nur kommt jetzt so eine merkwürdige fehlermeldung:

Endpunkt der Bemassung eingeben._.ucs
Aktueller BKS-Name:  *WELT*
Option eingeben
[Neu/Schieben/orthoGonal/VOrher/HOlen/SPeichern/Löschen/Anwenden/?/Welt]
<Welt>: _e
Objekt  für BKS-Ausrichtung wählen:
Befehl: _.ucs
Aktueller BKS-Name:  *KEIN NAME*
Option eingeben
[Neu/Schieben/orthoGonal/VOrher/HOlen/SPeichern/Löschen/Anwenden/?/Welt]
<Welt>: _3
Neuen Ursprung angeben <0,0,0>:
Punkt auf der positiven X-Achse angeben <30.7905,0.0000,0.0000>:
Punkt mit positiven Y-Wert in der XY-Ebene des BKS angeben
<29.7905,-1.0000,0.0000>: ; Fehler: Fehlerhafter Argumenttyp: 2D-/3D-Punkt: nil

Punkt mit positiven Y-Wert in der XY-Ebene des BKS angeben
<29.7905,-1.0000,0.0000>: *Abbruch*

Befehl: *Abbruch*

... allerdings kann ich die nicht nachvollziehen !

kann mir einer von euch auf die sprünge helfen.

gruß Jan :-)

------------------
jan :-)

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

---

Hallo Jan,
ich habe die Objektfänge so wie Du es beschrieben hast eingefügt und es klappt. Du kannst ja mal die Codes vergleichen:

(defun c:bem_bks (/ ucs pkt1 pkt2 aws_line osmode_alt)
  (setq osmode_alt (getvar "OSMODE"))
  (if (= (getvar "WORLDUCS") 1)
    (progn
      (setvar "osmode" 512);Ofang nächster
      (if (setq pkt1 (getpoint "\nStartpunkt der Bemassung eingeben."))
(progn
(setvar "osmode" 128);Ofang Lot
(setq pkt2 (getpoint pkt1 "\nEndpunkt der Bemassung eingeben.")))
      )
      (if (and pkt1 pkt2)
(progn
  (command "_.line" pkt1 pkt2 "")
  (setq aws_line (ssadd (entlast)))
  (command "_.ucs" "_e" (entlast))
  (command
    "_.ucs"
    "_3"
    (trans (cdr (assoc 10 (entget (entlast)))) 0 1)
    (mapcar '+
    '(0 -10 0)
    (trans (cdr (assoc 10 (entget (entlast)))) 0 1)
    )
    (trans (cdr (assoc 11 (entget (entlast)))) 0 1)
  )
  (command
    "_.DIMALIGNED"
    (trans (cdr (assoc 10 (entget (entlast)))) 0 1)
    (trans (cdr (assoc 11 (entget (entlast)))) 0 1)
    (trans (mapcar '(lambda (A) (/ A 2.0))
  (mapcar '+
  (cdr (assoc 10 (entget (entlast))))
  (cdr (assoc 11 (entget (entlast))))
  )
  )
  0
  1
    )
  )
  (command "_.erase" aws_line "")
  (command "_.ucs" "")
)
(alert "\nKeine gültigen Punkte eingegeben.")
      )
    )
    (alert
      "\nFür das Programm muß das Weltkoordinatensystem aktuell sein."
    )
  )
  (setvar "OSMODE" osmode_alt)
  (princ)
)

------------------
viele Grüße

Jörn

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