Rekomendowane odpowiedzi

Opublikowano

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?

Opublikowano

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

 

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ę