Pawcyk

W AutoCADzie nie sprawdzałem przecinania linii z krawędzią powierzchni, ale w sumie krawędź mi wystarczy. Dziękuję.

Dzień dobry. Chciałbym odgrzać starego kotleta i podzielić się tym co się dowiedziałem. Dla jednych będzie to wiedza już znana, a reszcie może pomóc. Chodzi o znalezienie punktu przecięcia linii z powierzchnią 3D. Funkcja: (vlax-invoke-method powierzchnia 'IntersectWith oś acExtendNone ) nie działa (przynajmniej mi). Większość lispów tego typu korzysta z funkcji kalkulatora graficznego wbudowanego w cada. (Dla zainteresowanych: CAL [enter] ->F1) Jedną z funkcji tego kalkulatora jest: ilp (p1,p2,t1,t2,t3), gdzie p1 i p2 to punkty tworzące linię, a t1, t2, t3 to punkty płaszczyzny. Pozdrawiam

Kreskowanie ma możliwość zespolenia z polilinią tworzącą obwiednie. Jeżeli przesunę jeden wierzchołek takiej polilini to kreskowanie automatycznie dostosuje się do nowej obwiedni. Skojarzyło mi się to z opisywanym problemem.

...jak nie nawias to cudzysłów. Dziękuję. PS z układu WGS 84 na 2000 przechodzę za pomocą: kalkulator zadorskiego 1_1.xls

A czy te kreskowania, które się nie odklejają, nie są zespolone z poliliniami?

Dziękuję za tą podpowiedź kojacek. Analizując lisp Lee-Mac'a doszedłem do wniosku, że nie muszę tworzyć list. W każdym razie zrobiłem takiego lispa jak załączony. Pozostał mi jeden problem z dodaniem do ostatniego utworzonego bloku hiperłącza. Tak wygląda fragment mojego kodu: (setq last_ent (entlast)) (command "_-hyperlink" _i _o last_ent "" path "" "" "" ) ..można powiedzieć., że mam problem ze skryptem ;) Exif - v7.lsp

...może na przykładzie: Plik csv wygląda tak: aa;ab;ac;ad ba;bb;bc;bd ca;cb;cc;cd ..... a potrzebuje zrobić z niego listy: Lista_1 (aa ba ca ....) Lista_2 (ab bb cb ....) Lista_3 (ac bc cc ...) Lista_4 (ad bd bc ...) W exelu to się nazywa transpozycja (nie wiem czy to pomoże)

Dzień dobry. Chciałbym wykorzystać exif'y z jpg'ów, a dokładnie współrzędne zrobienia zdjęcia. Przy pomocy programu BR's EXIFextracter tworzę plik csv z takimi danymi: ścieżka ; GPS x; GPS y; kąt Tworzę blok i wstawiam go we współrzędnych z GPS'a wraz z określonym kątem obrotu. Do ostatniego utworzonego elementu dodaję hiperłącze o określonej ścieżce. Mój tok myślenia idzie w tym kierunku: 1) z pliku csv tworzę listy: lst_path, lst_x, lst_y, lst_angle 2) z każdej listy biorę pierwszy element i wykorzystuję go do stworzenia bloku i przypisania do niego hiperłącza 3) usuwam pierwszy element z każdej listy 4) powtarzam krok 2 i 3 aż listy będą puste Ból sprawia mi już pierwszy krok. Niby znalazłem coś takiego: http://www.lee-mac.com/readcsv.html ale jak zrobić z tego poszczególne listy. PS w załączeniu przykładowy CSV GPS.csv

No i wszystko się wyjaśniło. A co do (something) to chodzi o taki efekt: podaj poziom odniesienia: <domyślna wartość> ; jak nic nie wpiszę i kliknę enter to wstawia wartość domyślną Słowo "something" to moja własna inwencja - nic lepszego mi nie przyszło do głowy ;) Może właściwsze powinno być war1. Tak czy siak dziękuję za wszystkie odpowiedzi.

Z tymi wieloma plikami to prawda -nie brałem tego pod uwagę. Postaram się zgłębić temat USERRn. Chociaż mam obawy przed grzebaniem się przy zmiennych. Może rozwiązaniem byłoby tworzenie pliku txt o nazwie takiej jak dwg.

Etapy programu: 1) Najpierw program sprawdza czy istnieje plik OstWprRzedna.txt. Jeżeli nie, to ustawia domyślną wartość 190, jeżeli tak, to pobiera wartość z pliku. 2) Program prosi o podanie wartości (w nawiasie podając wartość domyślną/ostatnią wprowadzoną). 3) Jeżeli wprowadziłem wartość ręcznie, to zapisuje ją do pliku OstWprRzedna.txt Na obecnym etapie program tworzy plik OstWprRzedna.txt z wprowadzoną wartością, ale przy ponownym uruchomieniu wyświetla błąd: ; błąd: zły typ argumentu: FILE "D:\.......\OstWprRzedna.txt" Podejrzewam, że błąd jest w formule odczytu z pliku, który już istnieje. PS program tworzy plik txt o ścieżce takiej jak plik dwg, więc plik dwg musi być zapisany.

Dzień dobry. Wymyśliłem rozwiązanie tytułowego problemu przy użyciu funkcji write-line i tworzeniu pliku txt. (defun c:test () ;odczyt rzednej z pliku (setq f (findfile (strcat (getvar 'dwgprefix) "OstWprRzedna.txt"))) (if (not f) (setq something 190) (progn (open (strcat (getvar 'dwgprefix) "OstWprRzedna.txt") "r") (setq something (atof(read-line f))) (close f) ) ) ; koniec odczytu rzednej z pliku (setq PozOdn (cond ((getreal (strcat "\nPodaj poziom odniesienia <"(rtos something 2 2)"> \n"))) (something) );koniec cond ); koniec steq ; zapis wprowadzonej rzendej do pliku txt (setq file (open (strcat (getvar 'dwgprefix) "OstWprRzedna.txt") "w")) (write-line (rtos PozOdn) file) (close file) ;koniec zapisu wprowadzonej rzednej do pliku );end Oczywiście coś mi nie działa i proszę o pomoc. PS żeby sprawdzić czy działa trzeba uruchomić dwa razy. Paweł

A mi jeszcze jeden pomysł wpadł do głowy. Wg mnie to co nam potrzeba to: średnica, długość i nr pręta. średnica - szerokość globalna polilini długość - długość polilini nr pręta - przypisany do odpowiedniego koloru (nr1 - czerwony, nr2 - zielony itd)

Znalazłem to: ale niestety musimy poczekać na uzupełnienie paru funkcji...

Już go kiedyś testowałem i jest problem z nowszymi windowsami. Montek, a u Ciebie działa na jakim windowsie??