| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: doppelclicck-aktion (894 mal gelesen)
|
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 14. Okt. 2003 11:57 <-- editieren / zitieren --> Unities abgeben:
hallo kann man eigentlich die doppel-click-aktion in autocad umbiegen clickt man z.B.: einen block mit attributen an, so öffnet sich das fenster ddatte. kann man da so umbiegen, das stattdessen ein eigenes lisp-programm startet ?? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 14. Okt. 2003 12:18 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi
Hallo, therotisch könnte das möglich sein, schau dazu einfach mal bei den Reacroren in der VLisp-Hilfe. Ausprobiert habe ich es selber allerdings noch nicht. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Karsten.G Mitglied
Beiträge: 190 Registriert: 21.06.2002 Verwendetes System: PIII 700 MHz; 512 MB-RAM; Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2
|
erstellt am: 14. Okt. 2003 12:45 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi
Doppelklick-Aktion ???? Was isn das ? Wenn ich doppelt auf das Attribut klicke, tut sich gar nix ! Wie funktioniert das denn ? Gibts da vielleicht Variablen ? ------------------ Gruß Karsten ------------------ Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ??? Schluss damit !!! In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit ! Fragen Sie uns: http://www.buchbinderei-gibietz.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 14. Okt. 2003 13:13 <-- editieren / zitieren --> Unities abgeben:
|
Karsten.G Mitglied
Beiträge: 190 Registriert: 21.06.2002 Verwendetes System: PIII 700 MHz; 512 MB-RAM; Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2
|
erstellt am: 14. Okt. 2003 13:15 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi
Ahh, ja. Da hängts also. Ich hab nur 2000. Gibts da eine Lisp oder so, dass das bei 2000 auch funzt ??? ------------------ Gruß Karsten ------------------ Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ??? Schluss damit !!! In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit ! Fragen Sie uns: http://www.buchbinderei-gibietz.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BerndE Mitglied Hochbautechniker
Beiträge: 557 Registriert: 05.07.2003 Revit 2013 ACA 2012 deutsch BuildingOne 5.4.5 Win7 WindowsNetz
|
erstellt am: 14. Okt. 2003 13:35 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi
hi... in VBA gehts. Habs mir mal einfach gemacht..aber vielleicht hilfts denoch. öffne mal den vba-editor und kopiere folgenden text in THISDRAWING Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant) Dim ssetObj As AcadSelectionSet Dim item As Object Dim point(0 To 2) As Double On Error GoTo delSSetObj Set ssetObj = ThisDrawing.SelectionSets.Add("BL") point(0) = PickPoint(0): point(1) = PickPoint(1): point(2) = 0 ssetObj.SelectAtPoint point For Each item In ssetObj If item.EntityName = "AcDbBlockReference" Then MsgBox "Hier könnte jetzt statt der Msgbox Dein eigenes Projekt starten " End If Next Exit Sub delSSetObj: Select Case Err.Number Case -2145320851 ThisDrawing.SelectionSets.item("BL").Delete Err.Clear Resume Case Else MsgBox Err.Number & " " & Err.Description End Select Resume Next End Sub ------------------ Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 14. Okt. 2003 13:58 <-- editieren / zitieren --> Unities abgeben:
hab es jetzt mit dem doppelclickreaktor probiert. funktiniert soweit jetzt ruft er mir die funktion editzkopf auf. leider kommt danach wieder der DDATTE wenn er den reaktor abgearbeitet hat. weisst du, ob man das abdrehen kann (vlr-mouse-reactor nil '((:vlr-beginDoubleClick . Doubleclick))) (defun doubleclick ( a1 a2 /)
(setq ss1 (ssget "I")) (cond ((and ss1 (= (sslength ss1) 1) (setq ename (ssname ss1 0)) (setq edate (entget ename)) (= (cdr (assoc 0 edate)) "INSERT") (wcmatch (cdr (assoc 2 edate)) "HD-???-?") ) (editzkopf ename) ) ) ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 14. Okt. 2003 14:56 <-- editieren / zitieren --> Unities abgeben: Nur für fuchsi
|
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 14. Okt. 2003 15:17 <-- editieren / zitieren --> Unities abgeben:
|