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

[lou]

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

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

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

ptexport (POLYLINE TO TEXT).lsp

Edited June 26, 2019 at 06:44 μμ by lou

[Directionless]

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

[geo_teo]

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

[george08]

@geo_teo

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

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

Edited December 28, 2020 at 04:16 μμ by george08

[geo_teo]

13 λεπτά πριν, george08 said:

@geo_teo

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

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

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

[bilya63]

2 ώρες πριν, geo_teo said:

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

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

[Gousgounis]

Νομίζω πως το reverse ("r") υπάρχει και ως υποεντολή μέσα στο pedit.

Edited December 28, 2020 at 05:28 μμ by Gousgounis

[george08]

3 ώρες πριν, geo_teo said:

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

PLREV.LSP

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

 

Edited December 28, 2020 at 07:48 μμ by george08

[mikegad]

Γνωρίζει κάποιος κάποιο lisp, που να σχεδιάζει τρίγωνα σε μια polyline και να δημιουργεί πίνακα με τους υπολογισμούς - εμβαδά (π.χ. με τύπο του Ήρωνα);

Edited February 3, 2025 at 12:14 μμ by mikegad