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

[maik]

του εκανα μια τροποποιηση για να γράφει και τον α/α . Δεν με αφηνει να το ανεβάσω σαν αρχείο . Μπορειτε να το αντιγράψετε με τον 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)
)

[terry]

Σας ευχαριστω.

Θα τα δοκιμασω αργοτερα!

[lou]

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

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

[maik]

Τώρα μπορείς να επιλέγεις με την εντολή 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)
)

[lou]

Maik είσαι ωραίος...ευχαριστώ!

+1 απο μένα.

[Antiermitianos]

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

 

Αν δε δουλέψει, κάτι παίζει με το 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 July 24, 2015 at 01:46 μμ by Antiermitianos

[Elounda]

Καλημέρα.Υπάρχει 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 September 18, 2017 at 08:07 πμ by Elounda

[eikonikos]

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

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

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

κάποια Link?

 

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

Edited June 1, 2019 at 05:07 μμ by Pavlos33

[maik]

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

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

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

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

κάποια Link?

 

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

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

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

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

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

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

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

 

 

 

 

 

 

[Directionless]

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