alf Opublikowano 15 Maja 2019 Zgłoś Opublikowano 15 Maja 2019 Poszukuję rozwiązania np lisp, na wstawianie bloku w wielu punktach na raz. Mam w dwg-u chmurę kilkudziesięciu punktów (points) a potrzebuję by w tych punktach został umieszczony konkretny blok. Ktoś może spotkał sie z rowiązaniem takiego problemu?
alf Opublikowano 15 Maja 2019 Autor Zgłoś Opublikowano 15 Maja 2019 znalazłam coś prostego.. może się komuś kiedyś przyda: https://forums.autodesk.com/t5/autocad-2000-2000i-2002-archive/change-points-to-symbols/td-p/208934 ;| PT2BLK.LSP (c) 2003 Tee Square Graphics converts selected points in a drawing to insertions of a block specified by the user. |; (defun C:PT2BLK (/ ss ent blk) (while (or (not (setq blk (getstring "\nBlock name: "))) (not (tblsearch "block" blk)))) (prompt "\nSelect points to replace: ") (setq ss (ssget '((0 . "POINT")))) (if ss (progn (setq n (1- (sslength ss))) (while (>= n 0) (setq pt (cdr (assoc 10 (entget (ssname ss n)))) n (1- n) );; setq (command "_.insert" blk pt "" "" "") );; while );; progn (alert "No POINT objects selected.") );; if (princ) );; defun
Rekomendowane odpowiedzi
Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto
Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.
Zarejestruj nowe konto
Załóż nowe konto. To bardzo proste!
Zarejestruj sięZaloguj się
Posiadasz już konto? Zaloguj się poniżej.
Zaloguj się