Deleting All Point Styles.

[mesutmamuk]

Hi everyone ; 

I need a AutoLisp for deleting all point styles. Can somebody help me ?

Thank you.

[hak_vz]

for Civil 3d check this post

[mesutmamuk]

This is not solve my problem. I drawing electrical discipline plans. I dont wanna spend too much time each block and xrefs (Architecture , Structure and Mechanical Disciplines) . Load to Lisp enter de command an delete all point. thats what i want. Can you help me about that ? 

[pendean]

---

@mesutmamuk wrote:

This is not solve my problem. I drawing electrical discipline plans...

---

What variant of AutoCAD are you using? Plain generic AutoCAD, or MEP or ELECTRICAL or...?

Do you use any add-ons from 3rd party "electrical" vendors?

And can you share a portion of a DWG file with these "point styles" in it that you wish to delete? Or at least a series of images with PROPERSTIES command identifying one of these "point styles" please.

[mesutmamuk]

I use AutocadLT 2024 . No third party add-ons. Point Styles type is standart value. i can make them invicible but i wanna delete all points. I cant share file because of project privacy.

[Kent1Cooper]

I think your topic heading led people to assume something like Civil3D, because of the word "Styles."  Deleting all Points [that is, all Point objects] should be easy.  Is that really what you want?

(defun C:DAP (/ ss); = Delete All Points
  (if (setq ss (ssget "_X" '((0 . "POINT"))))
    (repeat (setq n (sslength ss)); then
      (entdel (ssname ss (setq n (1- n))))
    ); repeat
  ); if
  (prin1)
)

[pendean]

---

@mesutmamuk wrote:

I use AutocadLT 2024 . No third party add-ons. Point Styles type is standart value. i can make them invicible but i wanna delete all points. I cant share file because of project privacy.

---

Got it.

POINT STYLES in LT2024 is just a look you assign to a POINT object, these cannot be deleted

The objects are just call POINT

So you just want to delete POINT objects in a DWG file, correct?

Are these inside blocks too that you want deleted or just scattered in your DWG file?

[Sea-Haven]

Another

(defun c:DAP ( / ss)
(setq ss (ssget "_X" '((0 . "POINT"))))
(if (= ss nil) 
(alert "No points found ")
(command "erase" ss "")
)
(princ)
)

[john.uhden]

@mesutmamuk 

I might gather that they are all (if not most) resident in one or more of the drawings you xref.  If they are within inserts (not xrefs), then it's just a matter of iterating through all the block definitions in your drawing and deleting each one found.  If they are in xrefs then it requires opening each xref and applying the same technique.

In your drawing, use the XLIST command to pick one or more of these points and tell us what each returns.  I'm sure that at least one of us here can create a point killer for you.

If, as @pendean says, that POINTs in 2024 can each have a different PDMODE style, then it's more complicated than earlier releases where you could set PDMODE to 1 and none would be displayed.  In fact, that would be a better approach than deleting them because it gives you the option to display them later if needed.  Where I work, and at most firms I know, we don't want to permanently change a referenced drawing provided by an accomplice, or by even our own surveying department.

[rgrainer]

I'm guessing these are not actual points, as in civil 3d cogo points, but points that have been exported and made into a block, probably anonymous, and to the OP they appears as civil points in his electrical app/program. He probably got them as an dumbed down export from a civil or surveyor and possibly from from a non-autocad source...this, of course, is wild speculation on my part.

[mesutmamuk]

yes i wanna delete every points ,inside every block in every point wherever except xrefs.

[mesutmamuk]

it's not working

[mesutmamuk]

No points found alert. But this is what i see.

[Kent1Cooper]

---

@mesutmamuk wrote:
it's not working

---

That is never enough information.

[dbroad]

Points inside blocks and xrefs are valuable features and can assist with positioning block content and dimensioning block content.  They are also built into dimension blocks.  When put on layer defpoints, they won't be affected by the PDMODE variable. 

If you don't want to see the points, just set PDMODE to 0 or 1. I don't recommend deleting points in blocks and won't give you a lisp to do so.  If you want a lisp to move nested points to defpoints, I would be willing to do so.  You would still need to open each xref separately as AutoLISP is a single document application.

[hak_vz]

It seams to me that inside some xref points are created  as proxy objects or blocks and that this drawing have passed through different Acad verticals or different programs. Points could have even been created as vertical lines  or zero length lines or any other weird compensation to represent a point. Without part of a drawing we can not help since OP is not describing what he has in his drawing. As  @Kent1Cooper has noted in previous post we need more info

[rgrainer]

yep, what @dbroad wrote:
PDMODE 0