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

[iovo]

Σε αυτό το νήμα αναρτούμε θέματα σχετικά με AutoLISP( κώδικες προγραμματάκια, οδηγίες σύνταξης κώδικα)

 

 

 

Πρoγράμματα για το AutoCAD από τον Iliekater:

-FreeCAD

-ΠΙΞΙΔΑ

[vournaz]

FLASH POINTS for Autocad, Κατασκευαστής : DeliCAD

 

Πολύ καλή εφαρμογή για αυτόματη εξαγωγή Πίνακα Συντετεγμένων από απλά σημεία (Points) στο ACAD.

 

Αυτόματη αρίθμηση και ομαδοποίηση σημείων με δημιουργία layers για όνομα και (χ,ψ), αυτόματος σχεδιασμός polyline που ενώνει τα σημεία μίας ομάδας (πχ όρια οικοπέδου).

 

Αυτόματη σχεδίαση πίνακα με συντ/μενες στο ACAD και δυνατότητα εξαγωγής στο XL.

 

Επίσης ιδιαίτερα χρήσιμο το αντίστροφο :

 

Εισαγωγή πίνακα συντ/μενων από XL και αυτόματη σχεδίαση της ομάδας των σημείων στο ACAD.

 

Η εφαρμογή μπαίνει σαν extra toolbar στο ACAD.

 

Για κάποιον ο οποίος δεν έχει κάποια σοβαρότερη εφαρμογή επεξεργασίας τοπογραφικών δεδομένων, εξαιρετικά χρήσιμο.

 

Από το επίσημο site της κατασκευάστριας DeliCAD κατεβάζεις free trial, αν και αν καποιος το ψαξει μπορει να βρει κατι καλυτερο.

 

Πάντως εγώ είαμι απόλυτα ικανοποιημένος, και για 30 γιούρα θα το παραγγείλω...

 

Check it out!

 

(Ελπίζω να μην θεωρηθεί οτι παραβιάζω τους όρους συμμετοχής περι διαφήμισης, έτσι? Μιλάμε για freeware...)

[Χ Επισκέπτης 1]

Άλλο freeware κι άλλο free trial.

Το πρόγραμμα κοστίζει 54€.

[vournaz]

Οκ, σωστό...

 

Anyway, sorry αν εκανα λαθος που το ανέφερα.

-------------------------------------------------

Αν πρέπει να κατεβέσεις το post, no problem...

 

Τι να κάνω, κι εγώ τώρα μαθαίνω...

[gnusselt]

AutoLISP routine PEXPORT

=================

 

 

(defun c:pexport ()

(setq sset (ssget '((-4 . "<OR>"))))

(if sset

(progn

(setq itm 0 num (sslength sset))

(setq fn (getfiled "Point Export File" "" "txt" 1))

(if (/= fn nil)

(progn

(setq fh (open fn "w"))

(while (< itm num)

(setq hnd (ssname sset itm))

(setq ent (entget hnd))

(setq obj (cdr (assoc 0 ent)))

(cond

((= obj "POINT")

(setq pnt (cdr (assoc 10 ent)))

(setq pnt (trans pnt 0 1));;**CAB

(princ (strcat (rtos (car pnt) 2 ","

(rtos (cadr pnt) 2 ","

(rtos (caddr pnt) 2 ) fh)

(princ "\n" fh)

)

((= obj "LWPOLYLINE")

(if (= (cdr (assoc 38 ent)) nil)

(setq elv 0.0)

(setq elv (cdr (assoc 38 ent)))

)

(foreach rec ent

(if (= (car rec) 10)

(progn

(setq pnt (cdr rec))

(setq pnt (trans pnt 0 1));;**CAB

(princ (strcat (rtos (car pnt) 2 ","

(rtos (cadr pnt) 2 ","

(rtos elv 2 ) fh)

(princ "\n" fh)

)

)

)

)

(t nil)

)

(setq itm (1+ itm))

)

(close fh)

)

)

)

)

(princ)

)

 

(princ "\nPoint Export φορτώθηκε. Για να το τρέξετε δώστε στο Command : PEXPORT")

(princ)

[xristospanisis]

Ένα χρήσιμο site για οσους ασχολουνται με lispάκια:

http://www.asmitools.com/Files/Programs.html

Προσωπικά έπαθα πλάκα με το τι μπορεις να κανεις με την Autolisp.

Αν ενδιαφέρεται κάποιος ας στείλει pm για ένα δικό μου lispάκι ΗΑΤΤ-ΕΓΣΑ.

 

 

Καλό είναι να ανοίξει ένα section με autolisp.

[Χ Επισκέπτης 1]

Ευχαριστούμε για τον σύνδεσμο.

 

Οι θεματικές υποκατηγορίες δημιουργούνται συναρτήσει του πλήθους των σχετικών δημοσιεύσεων. Πχ, επειδή στην κατηγορία "Εξοπλισμός" δημιουργήθηκαν πολλά θέματα που αφορούσαν αποκλειστικά τοπογραφικά όργανα, δημιουργήθηκε η υποκατηγορίας "Τοπογραφικός εξοπλισμός". Μακάρι λοιπόν το πλήθος των θεμάτων των σχετικών με Autolisp να γίνει τόσο που να δικαιολογείται κάτι αντίστοιχο.

[maik]

Θα μπορούσε να ανοίξει ενα γενικότερο section για AutoCad και εκεί να εμπεριέχονται και θέματα Autolisp.

[terry]

Για δωστε πληροφοριες για τα Autolisp για μας που δεν εχουμε ιδεα...

[maik]

Με την Autolisp μπορείς να κάνεις προγράμματα που να τρέχουν μεσα στο Autocad. Υπάρχει ενα πολύ καλό (αν και παλιό) βιβλίο στα Ελληνικά του george Omura

" Εισαγωγή στην Autolisp" που ειναι οτι πρέπει για να μπορέσεις ανετα να γράψεις Lisp_ακια.