RobS

Propozycja od producenta. Kod automatycznie steruje właściwością tekstu wymiaru DimTxtDirection, korzystając ze stanu przechowanego w XData. (defun c:foo() (setq en (car (entsel))) (setq xd (cdr (assoc -3 (entget en (list "ACAD"))))) (if (not xd) (command "_dimoverride" "_DimTxtDirection" "ON" "" en "") (progn (setq data (member (cons 1070 294) (cdar xd))) (if (not data) (command "_dimoverride" "_DimTxtDirection" "ON" "" en "") (progn (setq isOn (cdadr data)) (if (= isOn 1) (command "_dimoverride" "_DimTxtDirection" "OFF" "" en "") (command "_dimoverride" "_DimTxtDirection" "ON" "" en "") ) ) ) ) ) )

Czy możesz wkleić fragment kodu który teraz realizuje to zadanie?

Żeby ustawić DimTxtDirection użyj wyrażenia: (command "_dimoverride" "_DimTxtDirection" "ON" "" (car (entsel)) "")

Producent doradził, żeby parametr DimTxtDirection odczytać używając w skrypcie wyrażenia: (cdr (assoc 53 (entget (car (entsel))))) Dla pozostałych parametrów które wypisałeś analogicznie trzeba użyć innych kodów DXF: 100 Subclass marker (AcDbDimension) 280 Version number: 0 = 2010 2 Name of the block that contains the entities that make up the dimension picture 10 Definition point (in WCS) DXF: X value; APP: 3D point 20, 30 DXF: Y and Z values of definition point (in WCS) 11 Middle point of dimension text (in OCS) DXF: X value; APP: 3D point 21, 31 DXF: Y and Z values of middle point of dimension text (in OCS) 70 Dimension type: Values 0-6 are integer values that represent the dimension type. Values 32, 64, and 128 are bit values, which are added to the integer values (value 32 is always set in R13 and later releases) 0 = Rotated, horizontal, or vertical 1 = Aligned 2 = Angular 3 = Diameter 4 = Radius 5 = Angular 3-point 6 = Ordinate 32 = Indicates that the block reference (group code 2) is referenced by this dimension only 64 = Ordinate type. This is a bit value (bit 7) used only with integer value 6. If set, ordinate is X-type; if not set, ordinate is Y-type 128 = This is a bit value (bit 😎 added to the other group 70 values if the dimension text has been positioned at a user-defined location rather than at the default location 71 Attachment point: 1 = Top left 2 = Top center 3 = Top right 4 = Middle left 5 = Middle center 6 = Middle right 7 = Bottom left 8 = Bottom center 9 = Bottom right 72 Dimension text line-spacing style (optional): 1 (or missing) = At least (taller characters will override) 2 = Exact (taller characters will not override) 41 Dimension text-line spacing factor (optional): Percentage of default (3-on-5) line spacing to be applied. Valid values range from 0.25 to 4.00 42 Actual measurement (optional; read-only value) 1 Dimension text explicitly entered by the user. Optional; default is the measurement. If null or “<>”, the dimension measurement is drawn as the text, if ““ (one blank space), the text is suppressed. Anything else is drawn as the text 53 The optional group code 53 is the rotation angle of the dimension text away from its default orientation (the direction of the dimension line) (optional) 51 All dimension types have an optional 51 group code, which indicates the horizontal direction for the dimension entity. The dimension entity determines the orientation of dimension text and lines for horizontal, vertical, and rotated linear dimensions This group value is the negative of the angle between the OCS X axis and the UCS X axis. It is always in the XY plane of the OCS 210 Extrusion direction (optional; default = 0, 0, 1) DXF: X value; APP: 3D vector 220, 230 DXF: Y and Z values of extrusion direction (optional) 3 Dimension style name

Zapytałem producenta o to czemu ten parametr jest pusty. Dam znać jak dostanę odpowiedź.

Odinstaluj program narzędziem FixIt 2024 i zainstaluj ponownie.

Spróbuj uruchomić program jako administrator klikając na ikonę ZWCADa prawym przyciskiem myszy. Instalujesz od razu wersję SP2.2 czy wykonujesz aktualizację ze starszej wersji?

Jeśli chcesz pozbyć się komunikatu to parametr Minimalnej wymaganej długości jest określony w pliku HorizontalLinetypes.ini w lokalizacji C:\Szansa\ZWTraffic\2026\PL\Configuration. Jest to plik tekstowy także otwórz go np. w Notatniku lub Notepad++. Możesz zmniejszyć wartość MinimumRange lub tak jak zrobić z tej linijki komentarz dopisując "#". Zmiana będzie działać po ponownym uruchomieniu programu

Czy po zaznaczeniu obiektów Ctrl + A w oknie właściwości pojawiają się jakieś obiekty? Warto kliknąć dwukrotnie na rolkę myszy, żeby widok objął wszystkie obiekty. Być może są daleko od aktualnie ustawionego widoku. Ponadto spróbuj naprawić rysunek poleceniem TEST.

Hej, W tym momencie obrót grotu i długość łuku są regulowane dwoma uchwytami. Opisz dokładnie jak ma działać blok.

Po stworzeniu siatki wybierz polecenie USGŁADSIATKI / _MESHSMOOTHLESS

Bryła po rozbiciu poleceniem X / ROZBIJ zamieni się w ściany które są regionami. Kolejne rozbicie spowoduje, że bryła będzie szkieletem zbudowanym z linii które można w łatwy sposób rozciągać. Ponadto możesz użyć polecenia GŁADSIATKA / _CONVTOMESH które przekształci bryłę w Siatkę. Po rozbiciu Siatka staje się zlepkiem Ścian 3D które można rozciągać chwytając za wierzchołki.

Nie wiem czy dobrze Cię rozumiem, ale u mnie skrypt działa jak na poniższym nagraniu. Nadpisałem kolor tekstu, także mimo zmiany koloru warstwy na której jest wstawiony odnośnik kolor tekstu nie zmienił się. Po wywołaniu polecenia STPMLEADER wybieram odnośnik, klikam Enter i tekst znowu ma kolor Jak Warstwa.

Do tekstów wieloliniowych użyj skrypt STPMTEXT - Reset MText Color.lsp

Hej, Musisz usunąć nadpisanie tekstu w odnośnikach. Użyj skrypt STPMLEADER - Reset MLeader Text Color Font Type.lsp Wczytaj go poleceniem AP i wywołaj STPMLEADER.