yoin

silverster

Hallo allemaal,

na een crash van mijn systeem :cry: ben ik een aantal lisp file's kwijt.

heeft iemand toevallig voor mij de volgende lisp file's?

hatchback.lsp  deze zorgt ervoor dat hatches op de achtergrond gaan sttaan
talud.lsp  deze tekend talud lijnen
Array.lsp  deze bepaalt de oppervlakte en plaatst deze oppervlakte door middel van een tekst er automatich in

alvast bedankt

Manu

Da's al de eerste :


;;; CADALYST 04/07  Tip 2201: hatchback.lsp    Move Hatches and Images to the Back    (c) 2007 Scott Wilcox

;;; Hatchback.lsp 2006, Scott Wilcox



;;; Selects all hatches in a drawing and sends to back with draworder



(defun c:hatchback (/ sh si opt)   ;command name
  (setq cmdvar (getvar "cmdecho"))
  (setvar "cmdecho" 0)         ;turns off command line echo
  (setq opt "_b")         ;sets opt to "_b" (back)




               ;find all hatches in drawing and draworder to back
  (if (setq sh (ssget "X" (list (cons 0 "HATCH"))))
    (progn
      (command "_.draworder" sh "" opt)
      (princ (strcat "\n"
           (rtos (sslength sh) 2 0)
           " Hatch object(s) moved to back"
        )
      )
    )               ;then
    (princ "\n No Hatch objects found.") ;else
  )



               ;find all images in drawing and draworder to back
  (if (setq si (ssget "X" (list (cons 0 "image"))))
    (progn
      (command "_.draworder" si "" opt)
      (princ (strcat "\n"
           (rtos (sslength si) 2 0)
           " Image(s) moved to back"
        )
      )
    )               ;then
    (princ "\n No Images found.")   ;else
  )



  (setq sh nil)
  (setq si nil)
  (setvar "cmdecho" cmdvar)
  (princ)
)
AutoCad 2000 - 2007 - 2008
Sketchup 4-5-6

silverster

kijk perfect,

harstikke bedankt

Manu

Citaat van: silverster op vr 30 11 2007, 09:29:06
kijk perfect,

harstikke bedankt

Ik denk dat die 'array' lisp te vinden is op http://new.cadalyst.com/code/, kijk onder de lispfiles van Mei 2004, daar staat een lisp genaamd 'calculate areas'..
Zou het kunnen dat je die bedoelde?

Die talud.lsp ken ik niet...

groeten,

Manu
AutoCad 2000 - 2007 - 2008
Sketchup 4-5-6

julien

Een beetje vijgen na pasen, maar bon...
Je kan veel belangrijke bestanden (tot 2G) gratis en voor niks online back-uppen via een klein gratis tooltje.
Na de download moet je instellen welke mappen je wil backuppen en de rest gaat automatisch.
Als je je aanmeldt via volgende link krijgen we er ook nog eens 256 MB extra bij.
https://mozy.com/?ref=9HMS33

Joop

Lijkt me inderdaad handig, alleen dit bevalt me niet (gedeelte gebruiksovereenkomst):
CiteerCONSENT TO COLLECT NON-PERSONAL INFORMATION; USE OF DATA

The Software and Service may collect certain non-personally identifiable information that resides on your computer, including, without limitation, statistics relating to how often backups are started and completed, performance metrics relating to the Software, and configuration settings. This information collected will be sent to Mozy, Inc. and may be used by Mozy, Inc. without restriction.

When you back up data via the Service, you agree that we and our service providers may copy and store such data as part of the Service.

Dit opent je computer voor derden.
Een gelovig volger van
"de Sacrale Kunst van Luiheid",
zijn leider "Lisp" en acoliet "Script".

julien

Ik heb hier geen problemen mee, ze gaan enkel na hoe je mozy gebruikt en hoe je PC hiermee om kan, maar als je het niet wil of niet vertrouwd moet je dat natuurlijk niet doen é.  :mrgreen:

Manu

Eugh, ik stelde silvester daarnet voor om die area-lisp te gaan gebruiken maar toen ik net zelf even testte kraag ik volgende foutmelding :

lselsetp nil ... wat loopt er fout?
AutoCad 2000 - 2007 - 2008
Sketchup 4-5-6

Joop

Het lijkt erop dat je niks of het verkeerde geselecteerd heb.
Misschien een line ipv poly line.
Een gelovig volger van
"de Sacrale Kunst van Luiheid",
zijn leider "Lisp" en acoliet "Script".

Manu

Citaat van: Joop op vr 30 11 2007, 11:31:55
Het lijkt erop dat je niks of het verkeerde geselecteerd heb.
Misschien een line ipv poly line.

Yep, ik had blijkbaar telkens te vroeg op 'enter' gedrukt... nu, al bij al lijkt me de lisp niet zo erg praktisch....
Bestaat er niet gewoon een lisp die bij het selecteren van een HATCH gewoon de oppervlakte ervan als een tekstregel plaatst..?
AutoCad 2000 - 2007 - 2008
Sketchup 4-5-6

silverster

dit is ook niet de lisp die ik had maar een variant daarop, en inderdaad al met al is deze variant niet echt gebruiksvriendelijk.
de lisp van de oppervlakte gaf hij gewoon aan de m2 en meer niet

maar in ieder geval bedankt voor het zoeken

DIJKHUIS

Is dit mischien een handige m2 routine?

Michel

Manu

Sorry mannen, ik ontdekte nét het aanmaken van een FIELD met de verwijzing naar de AREA van het gekozen object (pline of hatch)..
alles is er instelbaar én er is de mogelijkheid om de data te updaten....   :vreegoe:

sowieso bedankt !

groeten,

Manu
AutoCad 2000 - 2007 - 2008
Sketchup 4-5-6

lexxx

#13
Wat betreft de taludarcering vond ik deze nog in de verzameling.
Ik kan ‘m momenteel niet uitproberen want ik zit hier nu (hopelijk tijdelijk) te werken met LT. :roll:

edit: schiet me net te binnen, als je deze gebruikt moet je UCS wel op WORLD staan,
en in de standaard uitvoering van dit verhaal de afstand tussen de lijnen groter dan 1 zijn.
Het was gemaakt voor ACAD12 en ik heb 'm zelf al een tijdje niet meer gebruikt.
the end of the line

silverster

ook zoek ik nog een lisp waarmee ik in 1x alle viewport kan locken en deze ook weer kan unlocken

FastFiber