AutoCad - HELP - Αρίθμηση στο AutoCAD

[GeorgeS]

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

 

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

 

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

 

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

 

 

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

 

Ευχαριστώ

[gvarth]

Αυτό εννοείς ;

[JTB]

http://www.cadstudio.cz/en/download.asp?file=InsertC

 

Δες κι αυτό

[JTB]

Επίσης από 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))

)

)

)

)

[GeorgeS]

NAI gvarth !

 

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

 

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

[gvarth]

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

 

Αυτό που ζητάς υπάρχει έτοιμο σε forum του εξωτερικού αλλά η πρόσβαση από εδώ που είμαι είναι "κομμένη" για λόγους ... ασφαλείας :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.

[JTB]

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

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

[gvarth]

  Παράθεση

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

 

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

 

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

 

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