Hallo Yvonne,
Du hast so eine Bemerkung im Zusammenhang mit Deckenraster gemacht - deshalb meine Antwort.
Schau mal, ob Dir das schon was nützt.
Hallo Cadmium,
das sind sie, die Problemobjekte :
AecDimension: Bemaßungsobjekt, das Entfernungen anzeigt
; Eigenschaftswerte:
; Application (RO) = #<VLA-OBJECT IAcadApplication 00b60584>
; Description = ""
; Document (RO) = #<VLA-OBJECT IAcadDocument 01190cc0>
; Handle (RO) = "1816"
; HasExtensionDictionary (RO) = -1
; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0e68a314>
; Layer = "A_Bemassung"
; Linetype = "ByLayer"
; LinetypeScale = 1.0
; Lineweight = -1
; Location = (26.4426 11.8662 0.0)
; Normal = (0.0 0.0 1.0)
; ObjectID (RO) = 2122558064
; ObjectName (RO) = "AecDbDimensionGroup"
; OwnerID (RO) = 2130476296
; PlotStyleName = "ByLayer"
; Rotation = 0.0
; Style = #<VLA-OBJECT IAecDimensionStyle 0e68cf20>
; StyleName = "Standard (2 Maßketten)"
; TrueColor = #<VLA-OBJECT IAcadAcCmColor 0e68b550>
; Visible = -1
; Unterstützte Methoden:
; ArrayPolar (3)
; ArrayRectangular (6)
; AttachAnchor (1)
; Copy ()
; Delete ()
; GetAnchor ()
; GetBoundingBox (2)
; GetExtensionDictionary ()
; GetXData (3)
; Highlight (1)
; IntersectWith (2)
; Mirror (2)
; Mirror3D (3)
; Move (2)
; ReleaseAnchor ()
; Rotate (2)
; Rotate3D (3)
; ScaleEntity (2)
; SetXData (2)
; TransformBy (1)
; Update ()
komplex, intelligent und eigenwillig - bestehen quasi aus mehreren Massketten und sind in der Variante ohne eigene Maßpunkte nur mit dem Bezugsobjekt (Wand+Türen+Fenster...) lebensfähig.
Und das wäre eine mögliche Lösung:
;AEC-Masstext-Ueberschreiben
;Befehl: AMU , Abbruch mit ESC
(defun neutext ()
(initget 1 "P T S")
(setq abfr (getkword "\nPräfix[P], Text neu[T] oder Suffix[S] ?: "))
(setq textn (getstring T "\nUrsprungstext[Enter], Weiter mit vorher.Text [W] oder neuen Text eingeben: "))
(cond
( (= textn "") (print "Urprungstext wird wieder hergestellt") )
( (= textn "w") (progn
(setq textn alttext)
(print (strcat "Text:... " textn " ... wird verwendet"))
) )
(print (strcat "Text:... " textn " ... wird verwendet"))
)
(setq alttext textn)
)
(defun comm ()
(Command "_.-DimTextOverride" pause abfr textn "")
(comm)
)
(defun c:amu ()
(neutext)
(comm)
)
Problem ist die Pause, der Abbruch geht nur über ESC. Und wenn man ein Objekt nicht erwischt und daneben tippt, bricht der ganze Ablauf zusammen. Kann ich aber nicht umgehen, denn ssget und entsel sind nicht möglich.
Vielleicht hast Du ein paar Ideen.
Gruß Carsten
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP