---

Hallo
Hier ein dynamischer Block. "Lisp"
Wenn ich das Lisp starte und es existiert nicht der Block "Kanal"
dann flackert beim Umschalten zwischen Blockeditor und Modell.
Kann man das verhindern???

Gruss Nano

(DEFUN C:test()
  (SETVAR "cmdecho" 0)
  (IF (NOT (TBLSEARCH "BLOCK" "Kanal"))
  (PROGN (COMMAND "_bedit" "Kanal")
    (SETQ l005p1 (POLAR '(0 0 0) (* (/ PI 180) 90) (/ b1 2))
          l005p2 (POLAR '(0 0 0) (* (/ PI 180) 270) (/ b1 2))
  l005p3 (POLAR l005p1 (* (/ PI 180) 0) 2000)
  l005p33 (POLAR l005p1 (* (/ PI 180) 0) 2100)
  l005p4 (POLAR l005p2 (* (/ PI 180) 0) 2000)
  l005p44 (POLAR l005p2 (* (/ PI 180) 0) 1900)
  l005p5 (POLAR '(0 0 0) (* (/ PI 180) 0) 2000)
      )
      (COMMAND "_rectang" "_non" l005p2 "_non" l005p3)
      (SETQ Dy-elem (ENTLAST))
      (COMMAND "_BParameter" "Linear" "Bezeichnung" "Länge:" '(0 0 0)      "_non" l005p5 "_non" l005p5 "1")
      (COMMAND "_BActionTool" "deHnen" "_non" l005p5 "Z" "_non" l005p44 "_non" l005p33 Dy-elem "")
      (COMMAND "_BCLOSE" "S")
    )
  )
  (SETQ b000p00 (GETPOINT "\nEINFÜGE-Punkt angeben: "))
  (COMMAND "_insert" "Kanal" b000p00 1 1 "\\")
)

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

---

Antwort: Nein
BTW: Falls dein B1, was du uns leider nicht geliefert hast.. unter Umständen auch einen Integer
liefern kann, willst du wirklich l005p1&l005p2 immer duch 2 teilen (und nicht 2.0) ?
Wenn immer ein REAL kommt ist das natürlich wurscht.

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

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

---

Hier ist ja B1

siehe http://ww3.cad.de/foren/ubb/Forum145/HTML/004005.shtml

Gruss Nano starten mit L005B1

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

---

L-001_test_2014-02-18_01.lsp

Hallo

Habe Probleme mit Parameter als Objekt zu definieren,
(COMMAND "_BParameter" "Linear" "Bezeichnung" "Höhe:" "S" "Mittelpunkt" "W" "I" 0 100 5000 "_non" l001pb1 "_non" l001pb2 "_non" l001pb1 "0")
(SETQ Dy-höhe (ENTLAST))
so dass man nicht den Parameter "Dy-höhe" wählen kann.
"(COMMAND "_BActionTool" "deHnen" Dy-höhe "S" "_non" l001pw1 "_non" l001pw5 Dy-H "")"

Muss immer mit einen Punkt den Parameter anklicken. "l001pb1" zu unsicher.
(COMMAND "_BActionTool" "deHnen" "_non" l001pb1 "S" "_non" l001pw1 "_non" l001pw5 Dy-H "").

Das heißt wenn der Block "Kanal" nichts existiert, den obigen Befehl nicht ausübt, erst nach mehrmalige Versuche wird es plötzlich erstellt. "Lisp im Anhang"

vielleicht fällt jemandem etwas ein.

Gruss Nano

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

---

Ich schau mir den Code nicht wirklich an, aber grundsätzlich berücksichtigst du nicht
das die AutoCAD-Objektwahl Ansichtsabhängig ist.
Ein Zoom-Grenzen oder noch genauer, ein Zoom-Objekt, würden bestimmt einige dieser Phänomene beseitigen.

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

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

---

Hallo

Kann man eine Zoom-Grenzen befehl verhindern,
mit Parameter als Objekt??

Danke für die Rückmeldung
Gruss Nano

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

---

Bitte wie 

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

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

---

So ungefähr

(COMMAND "_BParameter" "Linear" "Bezeichnung" "Höhe:" "S" "Mittelpunkt" "W" "I" 0 100 5000 "_non" l001pb1 "_non" l001pb2 "_non" l001pb1 "0")
(SETQ Dy-höhe (ENTLAST))
so dass man nicht den Parameter "Dy-höhe" wählen kann.
(COMMAND "_BActionTool" "deHnen" Dy-höhe "S" "_non" l001pw1 "_non" l001pw5 Dy-H "")

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

---

mit (ENTLAST) nach Parameter erstellung

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