alf Posted May 15, 2019 Report Posted May 15, 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? Quote
alf Posted May 15, 2019 Author Report Posted May 15, 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 Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.