[FIX] Menü zur Bearbeitung des Kreisels durch Doppelklick auf einen Kreisel wird nun wie erwartet aufgerufen, andere Blöcke und Textfelder und Objekte können nun trotzdem wie gewohnt durch einen Doppelklick mit den integrierten Bricscad Funktionen bearbeitet werden
This commit is contained in:
+25
-10
@@ -133,18 +133,17 @@
|
|||||||
;; ============================================================
|
;; ============================================================
|
||||||
|
|
||||||
(defun c:SSG_BLOCKEDIT ( / ss ent ed bname attribs teileart)
|
(defun c:SSG_BLOCKEDIT ( / ss ent ed bname attribs teileart)
|
||||||
;; Implied Selection pruefen (Block muss vorselektiert sein)
|
;; Block ermitteln: zuerst Implied Selection, dann Picking
|
||||||
(setq ss (ssget "I"))
|
(setq ss (ssget "I"))
|
||||||
(if (null ss)
|
(if (or (null ss) (/= (sslength ss) 1))
|
||||||
(progn
|
(progn
|
||||||
(princ "\nBitte zuerst einen Block auswaehlen.")
|
(princ "\nBlock auswaehlen: ")
|
||||||
(princ)
|
(setq ss (ssget ":S" '((0 . "INSERT"))))
|
||||||
(exit)
|
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
(if (/= (sslength ss) 1)
|
(if (null ss)
|
||||||
(progn
|
(progn
|
||||||
(princ "\nBitte genau einen Block auswaehlen.")
|
(princ "\nKein Block ausgewaehlt.")
|
||||||
(princ)
|
(princ)
|
||||||
(exit)
|
(exit)
|
||||||
)
|
)
|
||||||
@@ -191,14 +190,30 @@
|
|||||||
(c:OMNI_EDIT)
|
(c:OMNI_EDIT)
|
||||||
)
|
)
|
||||||
|
|
||||||
;; Unbekannter Blocktyp -> Standard BEDIT
|
;; Unbekannter Blocktyp -> natives EATTEDIT (Attribut-Editor)
|
||||||
(t
|
(t
|
||||||
(princ (strcat "\nBlock bearbeiten (BEDIT): " bname))
|
(princ (strcat "\nAttribute bearbeiten: " bname))
|
||||||
(command "_.BEDIT" bname)
|
(command "_.EATTEDIT")
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
(princ)
|
(princ)
|
||||||
)
|
)
|
||||||
|
|
||||||
|
;; ============================================================
|
||||||
|
;; C:EATTEDIT - Abfangen des eingebauten Doppelklick-Befehls
|
||||||
|
;; UNDEFINE zwingt BricsCAD, auch interne Aufrufe ueber LISP
|
||||||
|
;; zu leiten. Fallback auf _.EATTEDIT (Dot-Prefix = nativ,
|
||||||
|
;; kein Loop) fuer unbekannte Bloecke.
|
||||||
|
;; ============================================================
|
||||||
|
(defun c:EATTEDIT ()
|
||||||
|
(c:SSG_BLOCKEDIT)
|
||||||
|
)
|
||||||
|
(if (not *ssg-eattedit-undefined*)
|
||||||
|
(progn
|
||||||
|
(command "_.UNDEFINE" "EATTEDIT")
|
||||||
|
(setq *ssg-eattedit-undefined* t)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
(princ "\nSSG_LIB_Commands.lsp geladen - Dummy-Befehle registriert.")
|
(princ "\nSSG_LIB_Commands.lsp geladen - Dummy-Befehle registriert.")
|
||||||
(princ)
|
(princ)
|
||||||
|
|||||||
+2
-2
@@ -103,8 +103,8 @@
|
|||||||
(princ "\n[SSG_LIB] WARNUNG: DXFMAKRO nicht gesetzt, Menue nicht geladen!")
|
(princ "\n[SSG_LIB] WARNUNG: DXFMAKRO nicht gesetzt, Menue nicht geladen!")
|
||||||
)
|
)
|
||||||
|
|
||||||
;; DBLCLKEDIT deaktivieren (Block-Editor nicht bei Doppelklick oeffnen)
|
;; DBLCLKEDIT=1: Doppelklick aktiv, ***DOUBLECLICK-Eintraege steuern Block-Verhalten
|
||||||
(setvar "DBLCLKEDIT" 0)
|
(setvar "DBLCLKEDIT" 1)
|
||||||
|
|
||||||
(dbgflush)
|
(dbgflush)
|
||||||
|
|
||||||
|
|||||||
+1
-1
@@ -125,7 +125,7 @@
|
|||||||
|
|
||||||
;; Pulldown-Menue in die Menueleiste einhaengen
|
;; Pulldown-Menue in die Menueleiste einhaengen
|
||||||
(menucmd "P13=+SSG_LIB.POP1")
|
(menucmd "P13=+SSG_LIB.POP1")
|
||||||
(setvar "DBLCLKEDIT" 0)
|
(setvar "DBLCLKEDIT" 1)
|
||||||
(princ "\n[SSG_LIB] Alle Module geladen. Menue aktiv.")
|
(princ "\n[SSG_LIB] Alle Module geladen. Menue aktiv.")
|
||||||
)
|
)
|
||||||
(princ "\n[SSG_LIB] WARNUNG: DXFM_LISP nicht gesetzt - Befehle nicht verfuegbar.")
|
(princ "\n[SSG_LIB] WARNUNG: DXFM_LISP nicht gesetzt - Befehle nicht verfuegbar.")
|
||||||
|
|||||||
@@ -126,6 +126,11 @@
|
|||||||
|
|
||||||
***DOUBLECLICK
|
***DOUBLECLICK
|
||||||
[INSERT]^C^C(ssg-ensure "SSG_LIB_Commands") SSG_BLOCKEDIT
|
[INSERT]^C^C(ssg-ensure "SSG_LIB_Commands") SSG_BLOCKEDIT
|
||||||
|
[MTEXT]^C^CDDEDIT
|
||||||
|
[TEXT]^C^CDDEDIT
|
||||||
|
[ATTDEF]^C^CDDEDIT
|
||||||
|
[HATCH]^C^CHATCHEDIT
|
||||||
|
[DIMENSION]^C^CDDEDIT
|
||||||
|
|
||||||
***POP501
|
***POP501
|
||||||
[SSG_LIB Edit Context]
|
[SSG_LIB Edit Context]
|
||||||
|
|||||||
Reference in New Issue
Block a user