Assgarth

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

Ciekawe czy kiedyś ten link, zostanie do czegoś podpięty? :mrgreen: pozdrawiam

Witam, kiedy można się spodziewać funkcji "_join" dla obiektów SPAJN? pozdrawiam

Można jeszcze: (getvar "ACADVER") dla ZwCAD 2012 da nam "16.0i" dla ZwCAD 2012 + da nam "18.1" pozdrawiam

Witam, kiedy i czy można spodziewać się cechy obiektu/warstwy takiej jak Transparent? pozdrawiam

Sęk w tym, że to nie musi być nawet z poziomu Lispa. Wystarczy narysować dwie pionowe linie, potem poziome i tak jak przedstawiłem wcześniej, pomniejszyć obszar widoku i wskazać ręcznie punkt gdzie ma powstać kreskowanie: pozdrawiam

Witam, nie bardzo rozumiem problemów z kreskowaniem w ZwCAD2012+ VERNUM = "2013.03.31(11367)"... Na poniższym przykładzie pokazuję o co chodzi: Do zakreskowania jest obszar prostokątny o pewnych rozmiarach, tyle że widok jest w pomniejszeniu (nie ma zoom na obiekt). Wówczas, przy prawidłowym wskazaniu punktu wewnątrz tego obszaru, pojawia się komunikat: "Przekroczono limit obiektów kreskowania". - po co się pojawia, skoro i tak kreskowanie następuje?? - jakie granice kreskowania, skoro jest to prostokąt - 4 linie max?? Da się to jakoś wyłączyć? Obecnie z automatu z poziomu VLisp, przez ten komunikat, kreskowanie jest skopane... użytkownik musi za każdym razem potwierdzić "OK". Sprawdzałem ten sam przypadek w innych CAD i wszystko działa prawidłowo (bez komunikatów). pozdrawiam

Pojawia się komunikat: błąd: Wystąpił wyjątek: 0xC0000005 (Naruszenie dostępu) pozdrawiam

Witam, sprawdziłem działanie ACAD_TABLESTYLE w najnowszej wersji ZwCAD2012+ SP2: (vl-catch-all-apply 'vla-AddObject (list (vla-item (vla-get-Dictionaries (vla-get-ActiveDocument (vlax-get-acad-object))) "ACAD_TABLESTYLE") "MyStyle" "ZcDbTableStyle")) i wygląda, że ta część działa prawidłowo. Pytanie zatem następujące: - jak nadać styl tekstom zawartym w tak utworzonym stylu tabeli? ; tName [sTR] - nazwa Stylu Nagłówka ; fTxtT [REAL] - wysokość tekstu nagłówka ; fTxtD [REAL] - wysokość tekstu danych ;; Set the text height for the Title, Header and Data rows (vla-SetTextHeight custObj acTitleRow fTxtT) (vla-SetTextHeight custObj (+ acDataRow acHeaderRow) fTxtD) ;; Set the text height and style for the Title row (vla-SetTextStyle custObj (+ acDataRow acHeaderRow acTitleRow) tName) Powyższe nie działa. Jak zatem dostać się do tych ustawień z poziomu VLISPa?

Kiedy można spodziewać się wersji 2013.01.27(9513) do testów? Sprawdziłem działanie ACAD_TABLE pod wersją 2012.12.14(8707) i stabilność pracy pozostawia wiele do życzenia... Albo nie działa w ogóle, albo wywala całego ZwCADa w kosmos bez ostrzeżenia o błędach... wrrrr :???:

Brzmi ciekawie i pięknie, ale jest jedno wielkie "ALE"... mianowicie ZwCAD z poziomu VisualLisp, nie obsługuje DBX, więc wszelkie próby powiązania rysunku z innymi, przeszukiwanie bazy danych DWG itp. odpada. Jest to obecnie dostępne tylko z poziomu VC++ czyli ZRX. pozdrawiam

:cool: czemu lipa? Ja osobiście nie działam w żadnej branży, więc pomysłami tutaj rzucać nie będę. Niech się wypowiedzą Ci, którzy potrzebują jakiś konkretnych narzędzi. pozdrawiam

Witam, jeśli chodzi o funkcje bazowe oraz gotowe narzędzia (za free) w LISP, to tutaj wszystko już się znajduje: http://forum.cad.pl/...lsp-t78161.html Baza ta jest stale rozwijana i poszerzana o kolejne funkcje. Fakt, że niektóre mogą nie znaleźć zastosowania w ZwCAD, i tylko na takich warto by się tutaj skupić, szukając alternatywnych rozwiązań. Choć już z doświadczenia wiem, że dla pewnych wersji ZwCAD, niektóre funkcje, nie znajdą rozwiązania, bo ich po prostu nie ma - patrz lista zgłoszonych błędów na tym forum z nazwą lub tagiem VisualLisp: http://forum.cad.inf...allisp-vba-zrx/ Tworzenie "nakładek", wymaga przede wszystkim sprecyzowania kilku kwestii: na które platformy CAD na którą wersję platformy CAD temat (branża) język programowania (bo sam LISP to będzie mało, więc od razu trzeba założyć VisualLisp oraz DCL ew. Diesel) czy powstaje dokumentacja a potem szczegóły: nazewnictwo funkcji przyjęcie sposobu definiowania zmiennych globalnych i lokalnych obsługa Rejestrów Windows itd. pozdrawiam, ZK

Witam, u mnie sprawa wygląd tak, że w chwili "latania" kursorem po obszarze roboczym ZwCAD, procesor ma skaczące zużycie rzędu 5-22%: Wyłączenie podglądu Coordinates, niewiele pomaga. Nie jest to jednak ciągłe 25% Można jeszcze sprawdzić, czy zmiany parametrów w Opcje / Wyświetlanie, cokolwiek zmieniają. pozdrawiam.

Witam, pojawia się zatem też pytanie, na jakim poziomie jest zużycie procesorów gdy ZwCAD nie jest włączony? Bo skoro jest stały poziom zużycia, bez względu na to co się wykonuje w programie, to to troszkę dziwnie wygląda. Otwieranie okien systemowych, to uruchamianie nowego procesu, więc powinien następować wzrost zużycia, a nie spadek do 0%. Sprawdzał Pan różnice w przypadku pracy na baterii oraz na kablu (bez baterii)? pozdrawiam