KBR Posted July 29, 2013 Report Posted July 29, 2013 (edited) Mam taki skrypt do opisu prętów zbrojeniowych. Wskazuję pręt a skrypt odczytuję jego długość i nadaje odpowiednią wartość atrybutowi. Do niedawna wszystko działało ok. Tzn na początku używałem komendy "Lengthen" i odczytywałem "perimeter" Później zastąpiłem komendą "area", Teraz jednak przestało mi to działać w odniesieniu do obiektów typu linia. Wcześniej działało do linii i polilinii. Jaj napisać skrypt, żeby działał dla linii i polilinii? (setq obiekt (ssget ":S"));(command "lengthen" obiekt ))(command "area" "o" obiekt)(SETQ dlug (GETVAR "perimeter" )) Dodatkowo przydałoby się jeszcze żeby ze wskazanego obiektu odczytać kąt i wstawić blok z odpowiednim kątem. W przypadku polilinii powinien to być kąt wskazanego odcinka. Nie umiem tego odczytać, A nie mam czasu wgłębiać się w literaturę. Edited July 29, 2013 by KBR Quote
kruszynski Posted July 30, 2013 Report Posted July 30, 2013 WitamJakiej wersji programu Pan używa? Proszę o podanie numeru wyświetlonego po wpisaniu polecenia _vernum Pozdrawiam Quote
Assgarth Posted July 30, 2013 Report Posted July 30, 2013 (edited) Proszę spróbować w ten sposób: (command "_lengthen" (car (entsel "\nWskaż obiekt do odczytu długości: "))) (getvar "perimeter") lub jeszcze lepiej, pobrać bibliotekę stąd: http://cad.pl/ftp/Pack/v1/CADPL-Pack-v1.lsp a następnie użyć polecenia: (cd:ACX_GetProp (car(entsel "\nWskaż obiekt: ")) '("Length" "Angle")) Dla LWPOLYLINE, trzeba by określić kąt dla wskazanego segmentu (w przypadku gdy nie jest to łuk). Ale to dopiero wówczas można zrobić, kiedy faktycznie okaże się konieczne. EDIT: lub też użyć funkcji Lee-Mac: (defun c:tlen ( / e i l s ) (if (setq s (ssget '( (0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE") (-4 . "<NOT") (-4 . "<AND") (0 . "POLYLINE") (-4 . "&") (70 . 80) (-4 . "AND>") (-4 . "NOT>") ) ) ) (progn (setq l 0.0) (repeat (setq i (sslength s)) (setq e (ssname s (setq i (1- i))) l (+ l (vlax-curve-getdistatparam e (vlax-curve-getendparam e))) ) ) (princ "\nTotal Length: ") (princ (rtos l)) ) ) (princ) ) pozdrawiam Edited July 30, 2013 by Assgarth KBR 1 Quote
KBR Posted July 30, 2013 Author Report Posted July 30, 2013 Dzięki! mam wersję "2013.07.09(14388)" Użyłem tego pierwszego rozwiązania, ale nie kończyło mi polecenia lengthen musiałem zapisać (command "_lengthen" (car (entsel "\n Wskażpręt żebrowazny do opisu")) "" )(SETQ dlug (GETVAR "perimeter" )) Na rozwiązanie z kontem jednak jestem za słaby:). Quote
kojacek Posted July 30, 2013 Report Posted July 30, 2013 (edited) Zależy w jakim banku masz (to konto)... ;) Jeżeli zaś chodzi o polilinie, jej długości etc. Tutaj jest parę różności: http://forum.cad.pl/wiczenie-lisp-lwpolyline-t74939.html O kątach segmentów nie ma chyba nic, niemniej uważny czytelnik na podstawie tej lektury powinien sobie z tym dać spokojnie radę. Przy sprawdzaniu kątów swgmentów, dodatkowo (dla tekstów) należy zwrócić uwagę, na ich prwidłową orientację. Przykładowo pionowy odcinek może mieć kąt 90 stopni, jak i 180, zatem powinno się je trakować tożsamo - tekst zaś powinien mieć w obu przypadkach jedną orientację. Zabawy (z obrotem) dowolnego wymiaru liniowego dobrze to ilustrują. kojacek Edited July 30, 2013 by kojacek Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.