---

Hallo zusammen,

hab nen etwas eigenwilliges Problem. Hab davon zwar schon irgendwo einmal gelesen, aber find es ansich schon sehr ungewöhnlich.

Erstmal den Code:

Code:

---

Public Sub SelSet_start()

Dim ss As AcadSelectionSet
...
Set ss = ThisDrawing.PickfirstSelectionSet
If ss.Count <> 0 Then
...
end if
end sub

---

So nun, wenn ich das aus dem VBA-Code haraus Starte funktioniert es und der Zähler steht auf der Anzahl der selektierten Elemente, aber sobald ich ein Icon in ACAD anlege ist der Zähler = 0 !!!

Kann mir das jemand erklären ???

Hab jetzt extra nochmal ein neues Projekt angelegt, aber es ist immer noch das gleiche Probleme. ;(

Bin gerade für jede Hilfe dankbar.

Gruß TP

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

---

"sobald ich ein icon in acad anlege"

meinst du damit , dass du dein vba-programm über ein icon starten willst ? wie lautet denn die befehlszeile des icons?
beginnt die vielleicht mit ^c^c. damit würdest du die impliziete auswahl löschen

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

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

---

Hallo fuchsi,

ja tue ich, jetzt sieht sie nur noch so aus :

(vl-vbaload "V:/vis1pro/SelSet.dvb")(vl-vbarun "mod_selSet.SelSet_start")

funktioniert aber trotzdem nicht. ;(

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

---

ja habs gerade selbst ausprobiert,
sämtliche methoden um ein VB-Makro zu starten , löschen den impl. auswahlsatz

(command "VBARUN" "mod-selset.selset_start")
bzw.
(vl-vbarun ..)

muss noch grübeln ...

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

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

---

echt deprimierend,

irgendwie scheint es an dem vbarun zu liegen. bekomm es nicht einmal über die Kommandozeile gestartet, ohne das die Auswahl erhalten bleibt. Hab jetzt auch mehrere Varianten durchprobiert, um es über ein Icon zu starten. Es funktioniert einfach nicht!    Nicht einmal das Beispiel für PickfirstSelectionSet aus der Hilfe.

Werd das Programm jetzt umbasteln ... Schade eigentlich.

Gruß TP

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

---

Ich habe lange an diesem Problem herumgekiefelt.
Nach sehr vielen Beiträgen in anderen Foren bin ich nun selbst auf eine Lösung gekommen, sie schaut sehr interessant aus.

• Verwende auf keinen Fall PICKFIRSTSELECTIONSET wenn du Objekte die du vorwählst verwenden möchtest
  
• Verwende einfach SS.SelectOnScreen FilterType, FiterData
  
• Rufe deine Funktion so auf
  (defun c:CoLayCur (/) (vla-runmacro(vlax-get-acad-object) "acad.dvb!modify.CopyLayerCurrent"))
  
• Wenn du keine Objekte vorwählen möchtest oder eine Dialogbox verwendest in der du Punkte abfrägst, dann rufe deine Funktion so auf
  (defun c:CoLayCur (/) (vl-vbarun "acad.dvb!modify.CopyLayerCurrent"))
  

Wenn ihr obige Schritte beachtet erkennt ihr zwei möglichkeiten eine Funktion zu starten, die erste übernimmt die vorgewählten Objekte, die zweite löscht sie und man kann neue Objekte wählen. Bei der ersten Variante ist es leider nicht möglich, bei Dialogboxen Punkte abzufragen, darum auch hier die zweite Variante verwenden.
Was auch noch gut daran ist, ich kann auch einen Filter über die ausgewählten Objekte laufen lassen  
Noch ein Vorteil der beiden oben angführen Varianten: Es ist nun auch möglich den Zoom- und Pan-Befehl mit den Icon in der Toolbar wärend des Befehls auszuführen.

Gibt es sonst noch Fragen?

------------------
Roland

[Diese Nachricht wurde von RoSiNiNo am 09. Dez. 2003 editiert.]

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

---

Noch etwas, es ist in diesem Fall auch vollkommen egal ob ich den Befehl mit ^C^C starte oder nicht, die Auswahl bleibt erhalten.

------------------
Roland

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

---

Hallo Roland,

es funktioniert zumindest erstmal. Tausend Dank !!!
Versteh zwar nicht, warum es dann PickFirstSelection gibt, aber ist
mir jetzt auch egal. Hatte schon angefangen, mein Prog auf SelectOnScreen umzubasteln und werd das wohl auch weiter verfolgen.
Aber gut zu wissen, daß es trotzdem die Möglichkeit gibt.
Das macht natürlich 10Us.

Wozu gibtŽs dann aber PickFirstSelection oder in welchem Zusammenhang ist es sonst gedacht, wenn nicht über ein Icon abrufbar?

Gruß TP

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

---

Das hab ich mich auch gefragt, genauso steht es ja um ActiveSelectionSet.
Ich nehme aber an, es ist den Programmierern ein Fehler unterlaufen.
Wozu braucht man es dann? Ich denke einmal man verwendet es einfach um ein SelectionSet zu verweden ohne erst eines erstellen zu müssen.

------------------
Roland

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

---

Moin Moin,

also Danke nochmals für die Antworten.
Habs jetzt umgestellt auf SelectOnScreen und es funktioniert nun,
wie es soll, auch über ein Icon.

Gruß TP

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

---

Hallo RoSiNiNo,
untenstehende Antwort kam im Oktober 2003 auf eine entsprechende Frage von BloodyMess (Geht - geht nicht - ...)
Bin nun auf das gleiche Problem gestossen und hätte gern die damalige Antwort als Lösung benutzt, wenn ich nur wüsste wie? Kenne Lisp bisher nicht. Deshalb meine Frage(n):
- wie kann ich einen Button programmieren ohne beim Tastendruck die bestehende Selection zu zerstören ?
- muss ich dazu einen Button im *.mnl file in Lisp programieren und wie geht das ggfs. oder geht das auch in *.mns irgendwie mit Austausch von "vbarun" gegen "runmacro" ?

Gruß Herbert

Zitat:

---

Original erstellt von RoSiNiNo:
Ich habe lange an diesem Problem herumgekiefelt.
Nach sehr vielen Beiträgen in anderen Foren bin ich nun selbst auf eine Lösung gekommen, sie schaut sehr interessant aus.

• Verwende auf keinen Fall PICKFIRSTSELECTIONSET wenn du Objekte die du vorwählst verwenden möchtest
  
• Verwende einfach [b]SS.SelectOnScreen FilterType, FiterData
  
• Rufe deine Funktion so auf
  (defun c:CoLayCur (/) (vla-runmacro(vlax-get-acad-object) "acad.dvb!modify.CopyLayerCurrent"))
  
• Wenn du keine Objekte vorwählen möchtest oder eine Dialogbox verwendest in der du Punkte abfrägst, dann rufe deine Funktion so auf
  (defun c:CoLayCur (/) (vl-vbarun "acad.dvb!modify.CopyLayerCurrent"))
  

Wenn ihr obige Schritte beachtet erkennt ihr zwei möglichkeiten eine Funktion zu starten, die erste übernimmt die vorgewählten Objekte, die zweite löscht sie und man kann neue Objekte wählen. Bei der ersten Variante ist es leider nicht möglich, bei Dialogboxen Punkte abzufragen, darum auch hier die zweite Variante verwenden.
Was auch noch gut daran ist, ich kann auch einen Filter über die ausgewählten Objekte laufen lassen   
Noch ein Vorteil der beiden oben angführen Varianten: Es ist nun auch möglich den Zoom- und Pan-Befehl mit den Icon in der Toolbar wärend des Befehls auszuführen.

Gibt es sonst noch Fragen?

[/B]

---

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

---

Du kannst es machen wie du willst, ich habe mir einfach ein Lipsfile geschrieben das die Befehle definiert (transparent und nicht transparent). z.B.:

Code:

---

;;; *********************
;;; setq global variables
;;; *********************

;;; get the application object
(setq *acadObj* (vlax-get-acad-object))

;; Reihe von Befehlsnahmen mit Vorauswahl
(setq CommandListP
      (list
'("Mstm" "acad.dvb!Massstab.MSTM")
'("colaycur" "modify.CopyLayerCurrent")
'("blrefr" "block.blockrefresh")
'("blnrefr" "block.blocknewrefresh")
      )
)

;; Reihe von Befehlsnahmen ohne Vorauswahl
(setq CommandList
      (list
'("scrot" "modify.scalerot")
'("CopyAttToText" "acad.dvb!Block.CopyAttToText")
'("MTextToLeader" "Text.MTextToLeader")
'("TZ" "modify.TextLinieZentrieren")
)
)

;; Erzeuge defun für jeden Befehl mit Vorauswahl
(foreach CommandNameP CommandListP
  (eval
    (list 'defun
  (read (strcat "C:" (car CommandNameP)))
  '()
  (list 'vla-RunMacro *AcadObj* (cadr CommandNameP))
  '(princ)
    )
  )
)

;; Erzeuge defun für jeden Befehl ohne Vorauswahl
(foreach CommandName CommandList
  (eval
    (list 'defun
  (read (strcat "C:" (car CommandName)))
  '()
  (list 'vl-vbarun (cadr CommandName))
  '(princ)
    )
  )
)

;;*******************************
;; Sonstige Befehle
;;*******************************
(defun c:+ () (command "._zoom" "1.33x") (princ))
(defun c:- () (command "._zoom" "0.75x") (princ))

(defun C FF ()
  (command "._layer" "_off" "*" "" "")
  (princ)
)
(defun C N () (command "._layer" "_on" "*" "") (princ))

---

Der obige Code ist, glaube ich, selbsterklärend.
Natürlich kannst du auch flogende Zeile ans Icon hängen.

Code:

---

^C^C(defun c:CoLayCur (/) (vla-runmacro(vlax-get-acad-object) "acad.dvb!modify.CopyLayerCurrent"));CoLayCur;

---

Ich würde aber das erste Beispiel verwenden, ist viel übersichtlicher.

------------------
Roland

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

---

Hallo Roland,
vielen Dank für die Unterstützung. Konnte die Lösung trotz meiner fehlenden Lisp Kenntnisse gut umsetzen nachdem ich herausgefunden habe, dass zuerst die Lisp-Funktionen für ActiveX geladen werden müssen.

Gruß Herbert

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