aanpassing lisp PUS

[Cad_user86]

Hey allemaal,

ik heb hier in één van de topics het programma PUS gedld en in gebruik genomen.
Nu zou ik hier nog een xtra commando aan willen toevoegen. Ik ben helaas geen grote kenner van LISP, maar heb toch een poging ondernomen.
Graag had ik na het purgen nog het commando "zoom extents" toegevoegd. Ik krijg dus het volgende:

(defun c:pus ()
  (command "-purge" "all" "*" "no")
  (command "zoom" "extents")
  (command "qsave")
)

Helaas doet hij bij mij geen zoom-extents er bij. kan iemand mij helpen met zeggen wat ik fout doe?
Alvast bedankt!
Cad_user86

[Rudy]

Hey allemaal,

ik heb hier in één van de topics het programma PUS gedld en in gebruik genomen.
Nu zou ik hier nog een xtra commando aan willen toevoegen. Ik ben helaas geen grote kenner van LISP, maar heb toch een poging ondernomen.
Graag had ik na het purgen nog het commando "zoom extents" toegevoegd. Ik krijg dus het volgende:

(defun c:pus ()
  (command "-purge" "all" "*" "no")
  (command "zoom" "extents")
  (command "qsave")
)

Helaas doet hij bij mij geen zoom-extents er bij. kan iemand mij helpen met zeggen wat ik fout doe?
Alvast bedankt!
Cad_user86

Bij mj werkt het wel

[Cad_user86]

Tiens

[EddyBeerke]

Toch wordt niet alles gepurged 
Heb even mijn huidige tekening getest:

Command: -PURGE
Enter type of unused objects to purge
[Blocks/Dimstyles/LAyers/LTypes/MAterials/MUltileaderstyles/Plotstyles/SHapes/textSTyles/
Mlinestyles/Tablestyles/Visualstyles/Regapps/Zero-length geometry/Empty text objects/All]: all
Enter name(s) to purge <*>:
Verify each name to be purged? [Yes/No] <Y>: n
No unreferenced blocks found.
No unreferenced layers found.
No unreferenced linetypes found.
No unreferenced text styles found.
No unreferenced shape files found.
Deleting dimension style "P".
1 dimension style deleted.

No unreferenced mlinestyles found.
No unreferenced plotstyles found.
No unreferenced table styles found.
No unreferenced materials found.
No unreferenced visual styles found.
No unreferenced multileader styles found.

Deze werd over geslagen:

Deleting registered application "ACAD_EXEMPT_FROM_CAD_STANDARDS".
Deleting registered application "ACAD_MLEADERVER".
Deleting registered application "AcadAnnoPO".
Deleting registered application "AcadAnnotativeDecomposition".
Deleting registered application "AcLayerTools".
Deleting registered application "AcMapDMDisplayStyleRegapp".
Deleting registered application "DCO15".
Deleting registered application "GISKIT_EB".
Deleting registered application "GISKIT_LKI".
Deleting registered application "MapGWS".
Deleting registered application "WEGCADFRMT".
11 registered applications deleted.

Ik heb onlangs nog eens ongeveer 106000 (honderd en zes duizend) regaps verwijderd uit de tekening.
De tekening werd daardoor ongeveer een tiende van het orgineel.

Ik gebruik dit codefragment:
Het kijkt eerst of de tekening partial geopend is, anders kun je niet purgen!

Code Selecteer Uitklappen


(setq partialopen (getvar "FULLOPEN"))
(if (= partialopen 0)
(alert "Deze tekening kan niet worden gepurged!\nReden: PartialOpen\nSluit de tekening en open de tekening NIET partial.")
(progn
(command "-purge" "D" "" "n")  ; Dimstyles *** ac2007
(command "-purge" "B" "" "n")  ; Blocks *** ac2007
(command "-purge" "LA" "" "n") ; LAyers *** ac2007
(command "-purge" "LT" "" "n") ; LTypes *** ac2007
(command "-purge" "MA" "" "n") ; MAterials *** ac2007
(command "-purge" "MU" "" "n") ; MUltileaderstyles *** ac2010
(command "-purge" "SH" "" "n") ; SHapes *** ac2007
(command "-purge" "ST" "" "n") ; textSTyles *** ac2007
(command "-purge" "M" "" "n")  ; Mlinestyles *** ac2007
(command "-purge" "T" "" "n")  ; Tablestyles *** ac2007
(command "-purge" "V" "" "n")  ; Visualstyles *** ac2007
(command "-purge" "R" "" "n")  ; Regapps *** ac2007
(command "-purge" "PL" "" "n") ; Plotstyles *** ac2007
(command "-purge" "Z")         ; Zero-length geometry *** ac2010
(command "-purge" "E")         ; Empty text objects *** ac2010
);end progn
);end if