Forum użytkowników programów ZWCAD, KOMPAS-3D, Scan2CAD, PDF2CAD

[Michal]

potrzebowałbym np. do obliczenia punktu środkowego pomiędzy dwoma znanymi punktami
(cal "(x1+x2)/2")
Pytanie nr 2 to czy można funkcje vlax-get-acad-object z AutoCADa inaczej napisać pod ZWCADem oraz inne funkcje zamiast vla- które istnieją pod AutoCADem.
pozdrawiam

[kruszynski]

To z punktem środkowym jest bardzo proste, wystarczy policzyć srednie między poszczególnymi współrzędnymi

Kod:

(defun midpoint (p1 p2 /)  (list  (/ (+ (car p1) (car p2))2)     (/ (+ (cadr p1) (cadr p2))2)     (/ (+ (caddr p1) (caddr p2))2)) ) (setq mid(midpoint x1 x2))

Z funkcjami vlax- jest znacznie poważniejszy problem. Producenci zwcada pracują nad tymi funkcjami, ale nie są one jeszcze dostępne. Nie znam sposobu jak można to inaczej zapisać

[Michal]

A ma Pan możliwości żeby się dowiedzieć w której wersji ZWCADa planują wprowadzić
funkcje vla oraz reszte vlax'ów ? o reaktorach vl juz nie pytam, bo to daleka przyszlosc, ale vla i vlaxy to jest chyba w ich zasięgu.
pozdrawiam

[kruszynski]

Niestety nie wiem jakie są plany twórców ZWCADa, ale obiecuje że kiedy pojawią się te funkcje zamieszcze tę informację na forum.

[Michal]

probował ktoś może instalować LT Extender lub program Toolkit Max 2009 w ZWCad ?? Może okazałoby się, że można korzystać wtedy jak w AutoCADzie?

[KBR]

[dmatusz3]

[KBR]

Witam!
Nie chodzi mi taka procedura ,

(DEFUN c:dlsr (/ DLU)
(setq sc (getvar "dimscale"))
(if (> sc 10)(setq mnozna 1)(setq mnozna 10))


(setq ile (getint (strcat "\nPodaj ilość prętów <50> :")))
(if (= ile nil)(setq ile 50))
(setq dlu1 0)
(setq nr 0)
(repeat ile
(prompt "\nWskaż PRĘT :")
(command "lengthen" pause "")
; (command "list" pause)
(SETQ dlu2 (GETVAR "PERIMETER"))
; (setq koniec (getint (strcat "\jeżeli konoiec 0 jezeli nie 1 <1> :")))
; (if (= koniec nil)(setq koniec 1))
; (if (= koniec 0)(setq ile nr))
(SETQ dłu3 (fix (/ dlu2 10)))
(setq dlu2 (* (+ dłu3 1) 10))
(setq nr (+ nr 1))
(setq dlu1 (+ dlu1 dlu2))
(prompt (strcat "\Dlugość wskaz.: <"(Itoa nr)"> - <" (rtos (/ dlu2 mnozna) 2 0) "> suma <" (rtos (/ dlu1 mnozna) 2 0)" >"))
(setq dlu2 0)
)

(Setq dsr1 (/ dlu1 nr))

(SETQ dsr2 (fix (/ dsr1 10)))
(setq dsr1 (* (+ dsr2 1) 10))


(setq dlug (rtos dsr1 2 0))
(setq dlu (getreal (strcat "\ndlugość całkowita :<"dlug"> ")))
(if (= dlu nil)(setq dlu dlug))

(command "ATTEDIT" "" "" "" "" pause "" "Value" "" dlu "")
)
Wydawało mi się że ja już użyłem i było ok.
Wartość PERIMETER nie zmienia siępo wskazaniu lini.
Oczywiście zmiana atrybutu nie chodziła nigdy, ale przynajmniej mogłem obliczyć średnią.

[kruszynski]

Procedura "chodzi" (oprócz Attedit) tylko robi coś innego niż Pan zamierza nią zrobić.
Wartość zmiennej PERIMETER nie zmienia się, bo funkcjia "lengthen" jej nie zmienia Polecam lekturę helpa do zmiennej PERIMETER. Jeśli udało się Panu użyć tej procedury, to przed zakomentowaniem linijki "(command "list" pause)". Zmienna systemowa "Perimeter" określa obwód ostatnio zmierzonego obiektu. Jej wartość zmienia się tylko w wypadku użycia funkcji "LIST" i "AREA", a wskazany obiekt musi być zamkniętą polilinią, lub okręgiem, w przypadku innych niezamkniętych obiektów, ta zmienna nie zmieni wartości.

[KBR]

W Autocadzie 2000 "chodziła"

[KBR]

Czy jest jakaś zmienna która określa długość lini lub polilini niezamkniętej?

[kruszynski]

Nabrałem wątpliwości co do tego, że polilinia musi być zamknięta, być może niezamknięta też może być.
Nie znam zmiennej w której zapisywane są długości linii, łuków i innych typów obiektów. Szukałem alternatywnych rozwiązań, i jedyne co znalazłem to obliczanie długosci dla każdego typu obiektu. W przypadku linii to jest dośc proste wystarczy użyć funkcji (distance) i jako parametry podać współrzędne punktów początku i końca, które odczytać można z linii (DXF kod 10 i 11 jeśli sie nie mylę) dla łuków to jest troche bardziej skomplikowane. Cała procedura jest opisana na forum www.cad.pl, np tu: http://www.cad.pl/wwwboar...ght=liczlin+lsp

[dmatusz3]

Witam,

w ZWCAD jest osobne narzędzie do obliczania długości linii i łuków.

Narzędzia dodatkowe Narzędzia Całkowita długość wybranych linii

Narzędzia dodatkowe Narzędzia Całkowita długość wybranych łuków

Pozdrawiam

[KBR]

Przetestowałem komendę attedit , w nowej wersji 10270 również nie działa

[KBR]

Jeżeli chodzi o procedure do zmiany atrybutu długości pręta to zanieliłem
(command "lengthen" pause "")
na
(command "area" "o" pause)
i wszystko zaczęło chodzić