Pawel.G

@RobS Super! Teraz już widzę gdzie popełniałem błąd. Definiowanie bloku zaczynałem dopiero na etapie rysowania obiektów. Dzięku za pomoc i wskazówki.

Dzięki za wskazówki, To moje początki z pisaniem lisp, ale nie widze tutaj zastosowania dla komendy "getangle", ponieważ wszystkie obiekty mają stanowić rzut płaski, a kąt stanowił tylko wyznacznik do skracania wysokości bazowej. (żeby osoba wprowadzająca nie zasmowała się wyliczaniem wysokości modułu w rzucie płaskim). W odpowiedzi na pytanie, chciałbym, aby wszystkie narysowane obiekty stanowiły jeden blok.

Dzień dobry, popełniłem lisp, którego zadaniem było uproszczone narysowanie grupy modułów zgodnie z zadanymi parametrami takimi jak wyokość, szerokość, kąt nachylenia itp. Chciałbym, aby wygenerowane obiekty stały się blokiem, którego punkt bazowy stanowić będzie zmienna PU oraz aby nazwa bloku wynosiła "Konstrukcja " wartość L" x " wartość R. Poniżej wersja lispu, zanim ją zepsułem. (DEFUN C:KONS () (SETQ W (GETREAL "\nPodaj szerokosc modulu: ")) (SETQ H (GETREAL "\nPodaj wysokosc modulu: ")) (SETQ K (GETREAL "\nPodaj kat nachylenia konstrukcji (w stopniach): ")) (SETQ O (GETREAL "\nPodaj odstep miedzy modulami: ")) (SETQ L (fix (GETREAL "\nPodaj ilosc modulow w poziomie: "))) ; Konwersja na typ całkowity (SETQ R (fix (GETREAL "\nPodaj ilosc modulow w pionie: "))) ; Konwersja na typ całkowity (SETQ PU (GETPOINT "\nPodaj naroznik konstrukcji PV: ")) ;; Obliczenie nowej wysokości (SETQ H_NEW (* H (COS (* K (/ PI 180.0))))) ; Konwersja kąta na radiany ;; WYZNACZENIE PRZECIWLEGŁEGO NAROŻNIKA MODUŁU (SETQ X0 (CAR PU)) (SETQ Y0 (CADR PU)) (SETQ X_START X0) ; Zapisanie początkowego X (SETQ Y_START Y0) ; Zapisanie początkowego Y ;; RYSOWANIE MODUŁÓW (repeat L (progn (repeat R (progn (SETQ PU2 (list (+ X0 W) (+ Y0 H_NEW))) ;; RYSOWANIE PROSTOKĄTA (COMMAND "_RECTANG" PU PU2 "_C") ;; Przesunięcie w dół o wysokość i odstępu modułu (SETQ Y0 (+ Y0 H_NEW O)) ; Y0 zwiększamy o nową wysokość i odstęp (SETQ PU (list X0 Y0)) ; Nowy punkt startowy ) ) ;; Przesunięcie w prawo o szerokość modułu i zadany odstęp (SETQ X0 (+ X0 W O)) ; X0 zwiększamy o szerokość i odstęp (SETQ Y0 Y_START) ; Resetowanie Y0 do początkowej wartości (SETQ PU (list X0 Y0)) ; Nowy punkt startowy ) ) )

Dla potomnych, znalazłem lips, który rozwiązuje sprawę podmieniając brakujące elementy na podstawowe: (defun C:RSHX () (vl-load-com) (vlax-for item (vla-get-textstyles (vla-get-ActiveDocument (vlax-get-acad-object)) ) (if (not (vl-filename-extension (setq fname (vla-get-fontfile item))) ) (setq fname (strcat fname ".shx")) ) (cond ((findfile fname) nil) ((findfile (strcat (getenv "WINDIR") "\\FONTS\\" fname)) nil ) (t (vla-put-fontfile item "ltypeshp.shx") (princ "\nChange ") (princ fname) (princ " on ltypeshp.shx") ) ) ) (princ) ) (princ "\nRSHX , purge unreferenced shape files")

Wedłóg unstrukcji znajdującej się pod linkiem: lhttps://www.autodesk.com/support/technical/article/caas/sfdcarticles/sfdcarticles/Erase-shapes-and-purge-references-to-unavailable-shape-SHX-files.html w oknie dialogowym komendy "purge" jest opcja lokalizowania obiektu lub podania szczegółw. Chciałbym dopytać czy to jest możliwe dopiero w nowszych wersjach?

Witam, w ramach kontynuacji zamkniętego już tematu mając podobny problem znalazłem, znalazłem na lips, który generuje listę shx'ów których cad nie może znaleźć. Moje pytanie jest czy wiecie jak odnaleźć obiekty z tej listy na rysunku żeby je usunąć lub żeby usunąć powiązania żeby komunikat się nie pojawiał? Lista brakujących SHX: LINETYPE [L_0_A5_SHX] uses SHAPE # [1] in the file [Bak MDCP robocza.shx] LINETYPE [FENCELINE2] uses SHAPE # [132] in the file [ltypeshp.shx] The following SHAPE FILE is loaded: [Bak MDCP robocza.shx] The following SHAPE FILE is loaded: [ltypeshp.shx]

Działa, dzięki jeszcze raz!

Dziękuję za starania, ale jednak okazuje się że pomoc techniczna ZW cad miała racje. Pobrany blok wyświetla się jako zwykły blok.

Faktycznie. Poprabłem jakieś dynamiczne bloki i działają nawet na 2022, tyle że nie ma możliwości ich edytowania. Dzięki za nakierowanie!

Jak kontaktowałem z pomocą techniczną w ZW-CAD to mówili że starsze wersje CAD'a będą widziały to jako zwykły blok bez funkcji dynamicznych, ale jeśli to nie problem to spróbujmy. Załączam przykładowy blok z modułami PV w konfiguracji 4x2. Chciałbym żeby formacja przy rozciąganiu powielała się w odległości 0.25j (tak jak jest pkt bazowy bloku). Było by super jakby dało się zmieniać wymiary modułów wszystkich modułów, przy zadaniu tego parametru dla pojedyńczego modułu (pojedyńczego prostokątu). CS7L-580MS(4x2).dwg

Brzmi jak plan doskonały, można byłoby stworzyć uniwersalny blok ze zmianą wymiarów i dokładaniem bloków o różnej długości. Niestety mam wersje 2023 i nie mam możliwości tworzenia bloków parametrycznych, Ale dziękuję za propozycję

Dziękuję wszystkim za odpowieddź, jednak kolejna trudność polega na tym że jest to wiele bloków w jednym rzędzie i zadając im pozycję Y0 nałążą się na siebie. Wasze rozwiązania wyglądają bardzo ciekawie. Szyk nie bardzo wchodzi w grę ponieważ działki mają zrówżnicowane kształty. Może spróbuje metodą wypełnienia i rozbijania.

Witam wszystkich forumowiczów, bardzo sobie cenie wasze forum i regularnie korzystam, ale nie mogę znaleźć rozwiązania, więc przyszedł czas na zadanie pytania. Czy znacie może komende dającą możliwość wyrównania wielu bloków do jednej polilinii bez obracania ich. Dla przykładu obkładam działkę konstrukcjami PV i chciałbym wszystkie bloki konstrukcji wyrównać do granicy działki tak aby się nie obróciły ani nie przeskalowały (pozostawiając konstrukcje w kierunku południowym). Problem polega na tym, że wartość przesunięcia dla każdego rzędu jest inna.