alf

wstaw blok w punkty_poszukiwane rozwiązanie

Recommended Posts

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?

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now