alf Posted May 15, 2019 Report Share 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 Link to comment Share on other sites More sharing options...
alf Posted May 15, 2019 Author Report Share 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 Link to comment Share on other sites More sharing options...
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.