---

Hallo,

ich habe hier ein LISP, welches supi funzt.

Code:

---

defun c:bel (/ Blockn corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)
(setq corner1 (getpoint "erste Ecke im Raum: ")
corner2 (getpoint "gegenüber liegende Ecke: ")
columns (getint "Anzahl X Richtung: ")
rows (getint "Anzahl Y Richtung: ")
roomwidth (abs (- (car corner1) (car corner2)))
roomheight (abs (- (cadr corner1) (cadr corner2)))
colspacing (/ roomwidth columns)
rowspacing (/ roomheight rows)
lowerleft
(list
(min (car corner1) (car corner2))
(min (cadr corner1) (cadr corner2))
); end list
)
(setq punktx (+(car lowerleft) (/ colspacing 2.0)))
(setq punkty (+(car lowerleft) (/ rowspacing 2.0)))

(command "_insert" "E-Beleuchtung" (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0) "" "" "")

(if (= columns 1)
  (command "_array" "l" "" "R" rows columns rowspacing)

(if (= rows 1)
  (command "_array" "l" "" "R" rows columns colspacing)

  (command "_array" "l" "" "R" rows columns rowspacing colspacing)
  )
  )
  )

---

Jetzt wäre es nicht schlecht wenn nach dem Einfügen alle eingefügten Blöcke schon ausgewählt wären, um über die Eigenschaften die Sichtbarkeit wählen zu können. Hat da einer eine Idee wie das funktionieren könnte?

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

---

Wenn man die normale Möglichkeit der Objektwahl nutzt: vorher ALLE wählen&merken -
nach dem erstellen der Leuchtenanordung wieder ALLE wählen und
die vorherigen "alle" aus dem Auswahlsatz entfernen
Für obiges "Bel" bedeutet das:

Vor dem ("Command "_insert"
ein (setq AWSOLD (ssget"_X"))
und vor der letzten Klammer ein
(command "_.pselect" "_all" "_r" AWSOLD "")

Dies ist nicht wirklich Programmierung, aber am leichtesten nachzuvollziehen denke ich.
in der Befehlszeile, einem Makro oder Script wäre es also:
;----------------------------
WAHL ALLE

irgendwasohneObjektwahlmachen
PSELECT ALLE ENTFERNEN VORHER

;----------------------------

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

jo, so.. und dann die NEWSOBJ in einen Auswahlsatz -> ssadd und den dann mit sssetfirst aktiv setzen

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

also so funzt es

Code:

---

(defun c:bel (/ Blockn corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)
(setq corner1 (getpoint "erste Ecke im Raum: ")
corner2 (getpoint "gegenüber liegende Ecke: ")
columns (getint "Anzahl X Richtung: ")
rows (getint "Anzahl Y Richtung: ")
roomwidth (abs (- (car corner1) (car corner2)))
roomheight (abs (- (cadr corner1) (cadr corner2)))
colspacing (/ roomwidth columns)
rowspacing (/ roomheight rows)
lowerleft
(list
(min (car corner1) (car corner2))
(min (cadr corner1) (cadr corner2))
); end list
)
(setq punktx (+(car lowerleft) (/ colspacing 2.0)))
(setq punkty (+(car lowerleft) (/ rowspacing 2.0)))

(setq AWSOLD (ssget"_X"))
(command "_insert" "E-Beleuchtung" (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0) "" "" "")

(if (= columns 1)
  (command "_array" "l" "" "R" rows columns rowspacing)

(if (= rows 1)
  (command "_array" "l" "" "R" rows columns colspacing)

  (command "_array" "l" "" "R" rows columns rowspacing colspacing)
  )
  )
(command "_.pselect" "_all" "_r" AWSOLD "")
  )

---

jetzt habe ich noch einen Layer dazu zu basteln

Code:

---

(defun c:bel (/ Blockn corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)
(setq layfarb "4"); Farbe für Layer
(command "layer" "m" "E-Beleuchtung" "fa" layfarb "E-Beleuchtung" "")
(setq corner1 (getpoint "erste Ecke im Raum: ")
corner2 (getpoint "gegenüber liegende Ecke: ")
columns (getint "Anzahl X Richtung: ")
rows (getint "Anzahl Y Richtung: ")
roomwidth (abs (- (car corner1) (car corner2)))
roomheight (abs (- (cadr corner1) (cadr corner2)))
colspacing (/ roomwidth columns)
rowspacing (/ roomheight rows)
lowerleft
(list
(min (car corner1) (car corner2))
(min (cadr corner1) (cadr corner2))
); end list
)
(setq punktx (+(car lowerleft) (/ colspacing 2.0)))
(setq punkty (+(car lowerleft) (/ rowspacing 2.0)))

(setq AWSOLD (ssget"_X"))
(command "_insert" "E-Beleuchtung" (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0) "" "" "")

(if (= columns 1)
  (command "_array" "l" "" "R" rows columns rowspacing)

(if (= rows 1)
  (command "_array" "l" "" "R" rows columns colspacing)

  (command "_array" "l" "" "R" rows columns rowspacing colspacing)
  )
  )
(command "_.pselect" "_all" "_r" AWSOLD "")
  )

---

Wie mache ich das jetzt wenn ich eine neue Zeichnung habe wo der Block noch nicht eingefügt ist? Kann ich auch im LISP sagen wo der Block liegt? Habe eine Zeichnung mit allen Blöcken drin und daraus müßte er bezogen werden.

[Diese Nachricht wurde von xem am 30. Apr. 2009 editiert.]

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

---

Also wer einen großen Blockbestand hat und mit Scripten arbeiten kann
(und nicht soo gut in Lisp is) für den bietet es sich an EineBlockdefinition als EineDWG
abzulegen.

Wenn das so wäre bei dir könntest du ein _-insert "C:/MeinPfad/MeinBlock001.dwg" angeben,
auf eine interne Blockdefinition einer DWG zugreifen geht so (einfach) nicht.

Krücke für dich: Blockbibliothek.DWG einfügen und löschen, dann hast du die Blockdefinition
aller entahltenenBlöcke zur Verfügung - kannst den einen einfügen und danach bereinigen.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Hi,

ev. gibt es andere Gründe, dass die Objekte per LISP erzeugt werden, vielleicht hilft aber auch die Info, dass es einen Befehl 'meinfüg'/'_minsert' gibt, der (fast) gleiches macht.

Der Unterschied besteht lediglich darin, dass ein anderer Elementtyp erstellt wird ('Meingüf Block') mit dem Vorteil, dass die Anzahl der Reihen/Spalten und die Abstände X/Y auch im nachhinein (Eigenschaftsfenster) noch verstellbar sind ohne die Gruppe neu erzeugen zu müssen.

- alfred -

------------------
www.hollaus.at