Μετάβαση στο περιεχόμενο

Recommended Posts

Δημοσιεύτηκε

Παιδιά ερώτηση επείγουσα :

 

Έχω ένα αρχιτεκτονικό σχέδιο σε AutoCAD στο οποίο υπάρχουν 1000 φώτα ας πούμε (block) και μερικά άλλα μηχανήματα (επίσης block).

 

Υπάρχει κάποιο αρχειάκι, lisp (υποθέτω) με το οποίο να μπορώ, με ένα κλικ είτε στο block είτε απλά με απλό κλικ, να βάλω αυτόματη αρίθμηση ?

 

Δηλαδή πατώντας ενα κλικ να βγαίνει το "1" στο δεύτερο κλικ το "2" κοκ ?

 

 

Παλιά είχε ξανατεθεί το θέμα αλλά δεν μπορώ να το βρω.

 

Ευχαριστώ

Δημοσιεύτηκε

Επίσης από AUGI forums (δεν ξέρω αν είσαι μέλος)

 

This routine just needs a block called "pole" with 2 attributes, mile and pole, defined in that order. It uses 2 global variables so your numbering will pick up where you left off if you exit the command. If you enter a keyword, "M" or "P", you can adjust the current number. There is no error checking included.

 

Code:

(defun c:PlacePole ( / pnt )

(setq PlacePole$mile 1

PlacePole$pole 1

)

 

(while (progn

(initget "Mile Pole")

(setq pnt

(getpoint

(strcat "\nMile "

(itoa PlacePole$mile) "/Pole: "

(itoa PlacePole$pole) ":"))

)

)

(cond

((= pnt "Mile")

(setq PlacePole$mile (getint "\nEnter new mile number: "))

(setq PlacePole$pole 1)

)

((= pnt "Pole")

(setq PlacePole$pole (getint "\nEnter new pole number: "))

)

((= (type pnt) 'LIST)

(setvar "ATTDIA" 0)

(command ".INSERT" "POLE" pnt 40 "" ""

(itoa PlacePole$mile) (itoa PlacePole$pole))

(setvar "ATTDIA" 1)

(setq PlacePole$pole (1+ PlacePole$pole))

)

)

)

)

  • Upvote 1
Δημοσιεύτηκε

NAI gvarth ! :)

 

Αυτό το lispaki κάνει δουλειά. ΟΜΩΣ το άλλο που είχε αναφερθεί παλιότερα εδώ ήταν ακόμα πιο προχωρημένο. Μπορούσες να διαλέξεις αν η αρίμηση θα είναι με "αριθμούς" ή με "γράμματα" αν θα είναι εντός συμβόλων (π.χ. παρενθέσεις, αγκίλες κλπ).

 

Μάλιστα την ερώτηση την είχα κάνει πάλι εγώ αλλά δεν μπορώ να το βρω γκρρρ..

Δημοσιεύτηκε

Βοήθησε λίγο. Μήπως θυμάσαι πότε περίπου ;

 

Αυτό που ζητάς υπάρχει έτοιμο σε forum του εξωτερικού αλλά η πρόσβαση από εδώ που είμαι είναι "κομμένη" για λόγους ... ασφαλείας :rolleyes::rolleyes:

 

Δοκίμασε να κάνεις αναζήτηση στο ggogle με τη φράση Auto numbering autocad ή Autolisp numbering blocks ή κάτι τέτοιο .

 

Κοίταξε εδώ : http://www.cadtutor.net/forum/forumdisplay.php?21-AutoLISP-Visual-LISP-amp-DCL

 

Ένα μέλος που έχει φτιάξει πολλά αντίστοιχα είναι το Lee Mac . Έχει πολλά utilities μαζεμένα. Θα τα βρείς εδώ.

 

Και όπως διαπίστωσα , συζητάς για αυτό το utility.

Δημοσιεύτηκε

Πολύ καλός ο LEE MAC...

Πώ πω τί μου θυμήσατε... LISP... η τρέλλα μου για ένα μεγάλο χρονικό διάστημα...

Δημοσιεύτηκε

Πώ πω τί μου θυμήσατε... LISP... η τρέλλα μου για ένα μεγάλο χρονικό διάστημα...

 

Όχι μόνο δική σου ... :)

 

Θυμάμαι τον εαυτό μου να ξενυχτά να φτιάχνει utilities που σχεδίαζαν αναπτύγματα οπλισμών ημιαυτόματα στην αρχή και μετά από μελέτη και πολύ πειραματισμό , τα utilities αυτά έκαναν αυτόματη σχεδίαση και κάποιους στοιχειώδεις υπολογισμούς.

 

Ωραίες εποχές.

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

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

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

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

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

Σύνδεση

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

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

Σημαντικό

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