Jump to content

AutoCad - 07. AutoLISP. Κώδικες προγραμματάκια, οδηγίες σύνταξης κώδικα


Recommended Posts

Εγώ χρησιμοποιώ το παρακάτω.... δεν ξέρω εάν σε βοηθά καθόλου.....

Επιλέγεις την polyline και την εξάγει σε .txt (Χ,Υ,Ζ)  

(πχ για σχεδιασμένο περίγραμμα γεωτεμαχίου σε ΕΓΣΑ με βοηθά για άμεση εξαγωγή αρχείου για ανέβασμα και επισκόπηση στο kthmanet)

ptexport (POLYLINE TO TEXT).lsp

Edited by lou
  • Thanks 1
Link to post
Share on other sites
  • Replies 157
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Τώρα μπορείς να επιλέγεις με την εντολή UNITS πόσα δεκαδικά θέλεις .     ;| Save the co-ordinates of POINT entities in text file  [email protected] December 2003 ;_______________________________

Μια λύση σε lisp είναι να πάρω τον πίνακα των κορυφών της polyline, να κάνω loop αθροίζοντας τα μήκη των διαδοχικών τμημάτων μέχρι να γίνει το άθροισμα μεγαλύτερο του ζητουμένου, τότε κλείνει το loop

του εκανα μια τροποποιηση για να γράφει και τον α/α . Δεν με αφηνει να το ανεβάσω σαν αρχείο . Μπορειτε να το αντιγράψετε με τον Notepad σε αρχείο με  ονομα PO2TXT.LSP   ;| Save the co-ordinates of

Posted Images

Σε ευχαριστώ πολύ. Η αλήθεια είναι ότι έψαχνα κάτι σε επαναλαμβανόμενο κατά αύξουσα αρίθμηση tagging κλειστών polylines και εμβαδομετρηση (με tagging πάλι) τους. Ευτυχώς βρήκα κάτι (κάνει και εξαγωγή σε πίνακα). Αν σε απασχολήσει ποτέ κάτι τέτοιο μελλοντικά, πες μου να στο στείλω. 

Link to post
Share on other sites
  • 1 year later...

Συνάδελφοι ψάχνω ένα lisp που να κάνει αναστροφή φοράς γραμμής pline.Υπαρχει κάτι διαθεσιμο?

Link to post
Share on other sites
13 λεπτά πριν, george08 said:

@geo_teo

Έχει εδώ ένα σχετικό lisp. Δεν το έχω δοκιμάσει σε autocad. Σε intellicad πάντως δουλεύει.

http://www.turvill.com/t2/free_stuff/

Συνάδελφε ποιο είναι απο την λίστα που έχεις δουλέψει?

Link to post
Share on other sites
2 ώρες πριν, geo_teo said:

Συνάδελφοι ψάχνω ένα lisp που να κάνει αναστροφή φοράς γραμμής pline.Υπαρχει κάτι διαθεσιμο?

υπάρχει εντολή γι υτο που θες: Reverse

Link to post
Share on other sites
3 ώρες πριν, geo_teo said:

Συνάδελφε ποιο είναι απο την λίστα που έχεις δουλέψει?

PLREV.LSP

Όμως, όπως είπαν και άλλοι χρήστες, το autocad (και τα διάφορα intelicad από ότι ξέρω) έχουν και την εντολή pedit-reverse  (εκτός αν δουλεύεις κανά autocad 14).

 

Edited by george08
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

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.