GeorgeS Δημοσιεύτηκε Ιούνιος 7 , 2011 Share Δημοσιεύτηκε Ιούνιος 7 , 2011 Παιδιά ερώτηση επείγουσα : Έχω ένα αρχιτεκτονικό σχέδιο σε AutoCAD στο οποίο υπάρχουν 1000 φώτα ας πούμε (block) και μερικά άλλα μηχανήματα (επίσης block). Υπάρχει κάποιο αρχειάκι, lisp (υποθέτω) με το οποίο να μπορώ, με ένα κλικ είτε στο block είτε απλά με απλό κλικ, να βάλω αυτόματη αρίθμηση ? Δηλαδή πατώντας ενα κλικ να βγαίνει το "1" στο δεύτερο κλικ το "2" κοκ ? Παλιά είχε ξανατεθεί το θέμα αλλά δεν μπορώ να το βρω. Ευχαριστώ Link to comment Share on other sites More sharing options...
gvarth Δημοσιεύτηκε Ιούνιος 7 , 2011 Share Δημοσιεύτηκε Ιούνιος 7 , 2011 Αυτό εννοείς ; Link to comment Share on other sites More sharing options...
JTB Δημοσιεύτηκε Ιούνιος 7 , 2011 Share Δημοσιεύτηκε Ιούνιος 7 , 2011 http://www.cadstudio.cz/en/download.asp?file=InsertC Δες κι αυτό Link to comment Share on other sites More sharing options...
JTB Δημοσιεύτηκε Ιούνιος 7 , 2011 Share Δημοσιεύτηκε Ιούνιος 7 , 2011 Επίσης από 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)) ) ) ) ) 1 Link to comment Share on other sites More sharing options...
GeorgeS Δημοσιεύτηκε Ιούνιος 7 , 2011 Συγγραφέας Share Δημοσιεύτηκε Ιούνιος 7 , 2011 NAI gvarth ! Αυτό το lispaki κάνει δουλειά. ΟΜΩΣ το άλλο που είχε αναφερθεί παλιότερα εδώ ήταν ακόμα πιο προχωρημένο. Μπορούσες να διαλέξεις αν η αρίμηση θα είναι με "αριθμούς" ή με "γράμματα" αν θα είναι εντός συμβόλων (π.χ. παρενθέσεις, αγκίλες κλπ). Μάλιστα την ερώτηση την είχα κάνει πάλι εγώ αλλά δεν μπορώ να το βρω γκρρρ.. Link to comment Share on other sites More sharing options...
gvarth Δημοσιεύτηκε Ιούνιος 7 , 2011 Share Δημοσιεύτηκε Ιούνιος 7 , 2011 Βοήθησε λίγο. Μήπως θυμάσαι πότε περίπου ; Αυτό που ζητάς υπάρχει έτοιμο σε 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. Link to comment Share on other sites More sharing options...
JTB Δημοσιεύτηκε Ιούνιος 7 , 2011 Share Δημοσιεύτηκε Ιούνιος 7 , 2011 Πολύ καλός ο LEE MAC... Πώ πω τί μου θυμήσατε... LISP... η τρέλλα μου για ένα μεγάλο χρονικό διάστημα... Link to comment Share on other sites More sharing options...
gvarth Δημοσιεύτηκε Ιούνιος 7 , 2011 Share Δημοσιεύτηκε Ιούνιος 7 , 2011 Πώ πω τί μου θυμήσατε... LISP... η τρέλλα μου για ένα μεγάλο χρονικό διάστημα... Όχι μόνο δική σου ... Θυμάμαι τον εαυτό μου να ξενυχτά να φτιάχνει utilities που σχεδίαζαν αναπτύγματα οπλισμών ημιαυτόματα στην αρχή και μετά από μελέτη και πολύ πειραματισμό , τα utilities αυτά έκαναν αυτόματη σχεδίαση και κάποιους στοιχειώδεις υπολογισμούς. Ωραίες εποχές. Link to comment Share on other sites More sharing options...
Recommended Posts
Δημιουργήστε ένα λογαριασμό ή συνδεθείτε προκειμένου να αφήσετε κάποιο σχόλιο
Πρέπει να είστε μέλος για να μπορέσετε να αφήσετε κάποιο σχόλιο
Δημιουργία λογαριασμού
Κάντε μια δωρεάν εγγραφή στην κοινότητά μας. Είναι εύκολο!
Εγγραφή νέου λογαριασμούΣύνδεση
Εάν έχετε ήδη λογαριασμό; Συνδεθείτε εδώ.
Συνδεθείτε τώρα