Μετάβαση στο περιεχόμενο
Ακολουθήστε τη νέα μας σελίδα στο Facebook! ×

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


vournaz

Recommended Posts

του εκανα μια τροποποιηση για να γράφει και τον α/α . Δεν με αφηνει να το ανεβάσω σαν αρχείο . Μπορειτε να το αντιγράψετε με τον Notepad σε αρχείο με  ονομα PO2TXT.LSP

 

;| Save the co-ordinates of POINT entities in text file
 [email protected] December 2003
;_____________________________________|;

; | Revision to write a/a before xi yi zi
  [email protected] January 2014
; ====================================|;


(defun c:PO2TXT (/ file points c i) ;POints to TeXT

  (setq file (open (getfiled "specify output file" "c:/" "TXT" 1) "w"))
  (setq points (ssget) i 0)


  (repeat (sslength points)
    (if (= "POINT" (cdr (assoc 0 (entget (ssname points i)))))
      (setq c (cdr (assoc 10 (entget (ssname points i))))
     i (1+ i)
      )
    )
    (write-line

      (strcat (itoa i) "   " (rtos (car c) 2 2 ) "   "
       (rtos (cadr c) 2 2 ) "   "
       (rtos (caddr c) 2 2 )
      ) file)
  )
  (close file)
  (Princ)
)

  • Upvote 2
Link to comment
Share on other sites

Φίλε maik μπορείς να ξαναγράψεις τον κώδικα αλλά να δίνει 4 δεκαδικά στις συντ/νες και όχι μόνο 2?

(να το έχουμε το αρχειάκι σε όλες τις βερσιόν :smile:..... )

Link to comment
Share on other sites

Τώρα μπορείς να επιλέγεις με την εντολή UNITS πόσα δεκαδικά θέλεις .

 

 

;| Save the co-ordinates of POINT entities in text file
 [email protected] December 2003
;_____________________________________|;

; | Revision to write a/a before xi yi zi
  [email protected] January 2014
; ====================================|;


(defun c:PO2TXT (/ file points c i) ;POints to TeXT

  (setq file (open (getfiled "specify output file" "c:/" "TXT" 1) "w"))
  (setq points (ssget) i 0)


  (repeat (sslength points)
    (if (= "POINT" (cdr (assoc 0 (entget (ssname points i)))))
      (setq c (cdr (assoc 10 (entget (ssname points i))))
     i (1+ i)
      )
    )
    (write-line

      (strcat (itoa i) "   " (rtos (car c)  2 ) "   "
       (rtos (cadr c)  2  ) "   "
       (rtos (caddr c)  2  )
      ) file)
  )
  (close file)
  (Princ)
)

  • Upvote 3
Link to comment
Share on other sites

  • 1 year later...

Καλησπέρα Συνάδελφοι,

 

Αν δε δουλέψει, κάτι παίζει με το style γραφής σου, υποθέτω ότι δεν έχεις το αρχειάκι wgsimpl.shx που είναι απαραίτητο, είναι μέσα στο zip αρχείο που περιείχε και το korkth.lsp...

 

γνωρίζει κανείς πού μπορώ να βρω αυτό το font ;; Έχω ψάξει, αλλά μάταια...

Εάν κάποιος το έχει ας κάνει τον κόπο να μου το στείλει. Βρίσκεται στο path C:\Program Files\Autodesk\AutoCAD 20??\Fonts

 

Είναι δυνατό με αυτό το Font σε single line text να γράψουμε το "εις τον κύβον" πληκτρολογώντας \U+00B3 (με Num Lock On) ; To "εις το τετράγωνον" με \U+00B2 το έκανε απ' ότι θυμάμαι...

Edited by Antiermitianos
Link to comment
Share on other sites

  • 2 years later...

Καλημέρα.Υπάρχει lisp  το οποίο να αριθμεί τα points(σημεία) και να ταυτόχρονα να βγάζει το μήκος μεταξύ point to point (πχ σε μια polyline)  σε acad κατευθείαν.Εχω κατεβάσει κάποια αλλά το εξάγει σε note 

 

Το site  έχει προβλέψει ακόμα μια φορά ! http://www.michanikos.gr/files/file/644-toposyntlsp-%CE%A0%CE%AF%CE%BD%CE%B1%CE%BA%CE%B1%CF%82-%CE%A3%CF%85%CE%BD%CF%84%CE%B5%CF%84%CE%B1%CE%B3%CE%BC%CE%AD%CE%BD%CF%89%CE%BD-%CE%B3%CE%B9%CE%B1-%CE%94%CE%B9%CE%B1%CE%B3%CF%81%CE%AC%CE%BC%CE%BC%CE%B1%CF%84%CE%B1-%CE%94%CF%8C%CE%BC%CE%B7/ το λίνκ οποιος αλλος ενδιαφέρεται

Edited by Elounda
Link to comment
Share on other sites

  • 1 year later...

(μεταφέρθηκε στο παρόν θέμα. Pavlos33)

Καλησπέρα σας,  ανοίγω το θέμα για AutoLISP

1η Ερώτηση. Ενδιαφέρομαι να βρω σημειώσεις AutoLISP. Μπορείτε να προτείνετε

κάποια Link?

 

2η Ερωτηση.  Αν κάποιος είναι μηχανικός τι μπορεί να πετύχει με την AutoLISP? 

Edited by Pavlos33
Link to comment
Share on other sites

19 ώρες πριν, eikonikos said:

(μεταφέρθηκε στο παρόν θέμα. Pavlos33)

Καλησπέρα σας,  ανοίγω το θέμα για AutoLISP

1η Ερώτηση. Ενδιαφέρομαι να βρω σημειώσεις AutoLISP. Μπορείτε να προτείνετε

κάποια Link?

 

2η Ερωτηση.  Αν κάποιος είναι μηχανικός τι μπορεί να πετύχει με την AutoLISP? 

1η Ερώτηση https://studfiles.net/preview/955467/ 

Ειναι η αγγλική έκδοση του βιβλίου του George Omura  . Εχει εκδοθεί και στα Ελληνικά .

Επίσης μπορίες googlάροντας να βρείς πολλά sites με σημειώσεις , manual κ. λπ.

2η Ερώτηση :  Μπορείς να κάνεις οτι και με οποιαδήποτε αλλη γλώσσα . Δηλαδή να κάνεις πρόγραμμα για κάθε σειρά επαναλαμβανομένων κινήσεων ,

ώστε να τις εκτελεί αυτόματα ο υπολογιστής αντι για εσένα . Αυτό ουσιαστικά ειναι που θέλουμε απο κάθε πρόγραμμα.

Αν εχεις συγκεκριμένες διαδικασίες που εκτελείς τακτικά γράψε και βλέπουμε . . . 

 

 

 

 

 

 

  • Upvote 1
Link to comment
Share on other sites

  • 3 weeks later...

Γνωρίζει κανείς που θα μπορούσα να βρω lisp να διαβάζει με τη σειρά (κλικάροντας) κλειστές polylines και εν συνεχεία να τις εξάγει είτε σε table εντός του σχεδιαστικού είτε σε .csv ;

Link to comment
Share on other sites

Δημιουργήστε ένα λογαριασμό ή συνδεθείτε προκειμένου να αφήσετε κάποιο σχόλιο

Πρέπει να είστε μέλος για να μπορέσετε να αφήσετε κάποιο σχόλιο

Δημιουργία λογαριασμού

Κάντε μια δωρεάν εγγραφή στην κοινότητά μας. Είναι εύκολο!

Εγγραφή νέου λογαριασμού

Σύνδεση

Εάν έχετε ήδη λογαριασμό; Συνδεθείτε εδώ.

Συνδεθείτε τώρα
×
×
  • Create New...

Σημαντικό

Χρησιμοποιούμε cookies για να βελτιώνουμε το περιεχόμενο του website μας. Μπορείτε να τροποποιήσετε τις ρυθμίσεις των cookie, ή να δώσετε τη συγκατάθεσή σας για την χρήση τους.