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

[gvarth]

Σ' ευχαριστώ. Αρκετά χρήσιμο το είδα.

[st2]

ερωτηση :

 

σε εναλλακτικα προγράμματα του autoCAD οπως intellicad δουλεύει το autolisp????

[gvarth]

Στο bricscad έχω διαπιστώσει ότι διατηρείται ικανοποιητική συμβατότητα.

 

Περισσότερα θα διαβάσεις εδώ.

 

Σε προγραμματισμό μέσω VBA , υπάρχει αξιοσημείωτη συμβατότητα αρκεί το bricscad να είναι σε Professional Edition. H Classic Edition δεν υποστηρίζει VBA.

[lou]

εχω παρατηρήσει οτι σε πολλά lisp ή add-on τα object snaps ''κλείνουν'' ή πρέπει να οριστούν απο την αρχή καθε φορά που φορτώνει η εφαρμογή ή ακομα ενω τρέχει και πρέπει να γίνει επιλογή αντικειμένων πρέπει για κάθε αντικείμενο να οριστούν ξεχωριστά.

Το έχει παρατηρήσει κανείς άλλος???? Υπάρχει γιατρειά????

[gvarth]

Συμβαίνει πολλές φορές και κυρίως σε lisp-άκια από χομπίστες τα οποία δεν φροντίζουν να κρατούν όλες τις ρυθμίσεις των o-snaps σε προσωρινές μεταβλητές ώστε να τις γυρίσουν στις αρχικές τους τιμές όταν τελειώσουν το "έργο" τους.

 

Για να αντιμετωπιστεί το φαινόμενο , θα πρέπει να βρούμε/φτιάξουμε κάποιο utility το οποίο να αποθηκεύει τις ρυθμίσεις που έχουμε και με απλό τρόπο , όταν χρειαστεί να τις επαναφέρουμε ή να έχουμε τον κώδικα του προγράμματος και να ξέρουμε να παρέμβουμε επαναφέροντας τα o-snaps όπως ήταν αρχικά.

 

Δυστυχώς, δεν έχω τη στιγμή αυτή κάποιο κατά νου.

[lou]

Ψάχνω ενα lispακι οπου οταν επιλεγω μια line θα μου θα μου δινει το μήκος

της alignαρισμένο με την γραμμή, κατι σαν dimension δηλαδη, αλλα το αποτελεσμα

δεν θελω να ειναι dimension object αλλα text ή mtext. Υπάρχει???

 

(ειχα βρει κάποιο παλαιοτερα, αλλα μου εγραφε και την κλίση της γραμμής

(bearing-distance), εγω θελω μονο distance:mad:)

[terry]

Αν το θες για τοπογραφικα βολευει περισσοτερο να ειναι dimension...Το text δεν βολευει..

 

Στο lisp που εχεις μπορεις να το πειραξεις λιγο με εναν text editor και να μην σου βγαζει την κλιση..

[tsak1]

@lou

Κάτι τέτοιο μάλλον ψάχνεις.

>(DEFUN C:LEN(/ PT1 PT2 PT3 PI OM LST LST1 NAME)
  (SETQ OM (GETVAR "OSMODE"))
  (SETVAR "OSMODE" 0)
  (SETQ PI (* 4 (ATAN 1)))
  (WHILE (OR (= LST nil) (/= NAME "LINE") )
     (SETQ LST (ENTSEL "\nSelect Line : "))
     (IF (/= LST nil)
        (SETQ LST1 (ENTGET(CAR LST))
              NAME (CDR(ASSOC 0 LST1)) )
     )
     (IF (AND (/= LST nil) (/= NAME "LINE"))(PRINC (STRCAT "  a LINE is needed not a " NAME)))
     (IF (= LST nil)(PRINC "  Nothing found"))
  )
  (SETQ PT1 (CDR(ASSOC 10 LST1)))
  (SETQ PT2 (CDR(ASSOC 11 LST1)))
  (SETQ PT1 (LIST (CAR PT1) (CADR PT1)))
  (SETQ PT2 (LIST (CAR PT2) (CADR PT2)))
  (IF (AND (> (ANGLE PT1 PT2) 1.570796) (< (ANGLE PT1 PT2) 4.712389))
     (SETQ PT3 PT1 PT1 PT2 PT2 PT3)
  )
  (SETQ PT3 (LIST (/ (+ (CAR PT1) (CAR PT2)) 2) (/ (+ (CADR PT2) (CADR PT1)) 2)))
  (SETQ PT3 (POLAR PT3 (+ (ANGLE PT1 PT2) (/ PI 2)) 0.05 ) )
  (COMMAND "TEXT" PT3 "" (* (ANGLE PT1 PT2) 57.2958) (RTOS (DISTANCE PT1 PT2) 2 2))
  (SETVAR "OSMODE" OM)
  (PRINC)
)

[lou]

Εισαι θεός. Σε υπερευχαριστώ.... δουλεύει άψογα:D:D

[terry]

Εγω θα ξαναπω οτι αν θες για τοπογραφικα βολευει να φταιξεις ενα dimension style χωρις βελη και γραμμες, μονο το κειμενο...

 

Καλο tsak1. Ευχαριστουμε..