Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Replacing points with one block
- Thread starter chrimic81
- Start date
You could write a script or lisp to do this.
A lisp routine would be something like:
(princ "\nSelect points to replace:")
(setq PointSet (ssget '((0 . "POINT"))))
(setq Count 0)
(repeat (sslength PointSet)
(setq Ename (ssname PoinSet Count))
(setq InsPpoint (cdr (assoc 10 Ename)))
(entdel Ename);erases point
(command "._-insert" "BlockNameHere" InsPoint 1 1 0)
;;edit above line with block name, scales, rotation
(setq Count (1+ Count))
);repeat
A lisp routine would be something like:
(princ "\nSelect points to replace:")
(setq PointSet (ssget '((0 . "POINT"))))
(setq Count 0)
(repeat (sslength PointSet)
(setq Ename (ssname PoinSet Count))
(setq InsPpoint (cdr (assoc 10 Ename)))
(entdel Ename);erases point
(command "._-insert" "BlockNameHere" InsPoint 1 1 0)
;;edit above line with block name, scales, rotation
(setq Count (1+ Count))
);repeat
- Status
Similar threads
