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

[iovo]

08. Εδώ γράφουμε για ό,τι έχει σχέση με AutoCAD - Vba, EXCEL. Κώδικες προγραμματάκια, οδηγίες σύνταξης κώδικα.

[whatisthis]

Καλημέρα,

 

Υπάρχει εντολή στο Autocad για να εξάγω σε txt ή σε Excel κατά προτίμηση, τις συντεταγμενες αρχής τέλους, μήκος 3d, μήκος xy μιας ομαδας lines?

 

Ευχαριστώ..

[paktomenos]

Υπάρχει η εντολή LIST. Επιλεγεις τα αντικείμενα που θέλεις, πληκτρολογείς list στην command line και είσαι έτοιμος για txt. Τωρα για Excel, ...

[dargi]

αφού κάνεις το LIST κάνεις copy τις συντεταγμένες και paste σε ένα αρχείο excel.

στο excel πάς Δεδομένα-Κείμενο σε στήλες-οριοθετημένο

Εκεί θα πατήσεις το Διάστημα και στο κουτάκι Άλλο βάζεις ένα "="

και είσαι έτοιμος πιστεύω..

 

αυτό είναι για τις συντεταγμένες

[whatisthis]

Ευχαριστώ για τις άμεσες απαντήσεις. Δυστυχώς η list όταν επιλέγεις πολλά αντικείμενα δηλ πολλές lines βγάζει για την καθεμια χωριστά σε μορφή:

 

LINE Layer: ""

Space: Model space

Handle = EA10

from point, X=364884.2416 Y=4247510.0741 Z= 165.0693

to point, X=364868.5303 Y=4247527.6218 Z= 165.8661

In Current UCS, Length = 23.5535, Angle in XY Plane = 132

3D Length = 23.5670, Angle from XY Plane = 2

Delta X = -15.7113, Delta Y = 17.5477, Delta Z = 0.7968

 

οποτε δεν βολευει. Εγώ έψαχνα για κάτι της μορφής

line length xa ya za xt yt zt

 

Ελπίζω να μην είναι ευσεβής πόθος..Έστω και ανεξάρτητη addon επιλογη καλοδεχούμενη!

[iovo]

Για δες και αυτό.

[gnusselt]

AutoLISP routine PEXPORT

==================

 

 

 

(defun c:pexport ()

(setq sset (ssget '((-4 . "<OR")(0 . "POINT")

(0 . "LWPOLYLINE")(-4 . "OR>"))))

(if sset

(progn

(setq itm 0 num (sslength sset))

(setq fn (getfiled "Point Export File" "" "txt" 1))

(if (/= fn nil)

(progn

(setq fh (open fn "w"))

(while (< itm num)

(setq hnd (ssname sset itm))

(setq ent (entget hnd))

(setq obj (cdr (assoc 0 ent)))

(cond

((= obj "POINT")

(setq pnt (cdr (assoc 10 ent)))

(setq pnt (trans pnt 0 1));;**CAB

(princ (strcat (rtos (car pnt) 2 ","

(rtos (cadr pnt) 2 ","

(rtos (caddr pnt) 2 ) fh)

(princ "\n" fh)

)

((= obj "LWPOLYLINE")

(if (= (cdr (assoc 38 ent)) nil)

(setq elv 0.0)

(setq elv (cdr (assoc 38 ent)))

)

(foreach rec ent

(if (= (car rec) 10)

(progn

(setq pnt (cdr rec))

(setq pnt (trans pnt 0 1));;**CAB

(princ (strcat (rtos (car pnt) 2 ","

(rtos (cadr pnt) 2 ","

(rtos elv 2 ) fh)

(princ "\n" fh)

)

)

)

)

(t nil)

)

(setq itm (1+ itm))

)

(close fh)

)

)

)

)

(princ)

)

 

(princ "\nPoint Export φορτώθηκε. Για να το τρέξετε δώστε στο Command : PEXPORT")

(princ)

[iliekater]

Ώπα , gnusselt , και εσύ Λισπάς ! Μπράβο !

[paktomenos]

Ώπα , gnusselt , και εσύ Λισπάς ! Μπράβο !

Εμ τι σουπερ ήρωας είναι?

@ gnusselt: αφού το έκανες το καλό, δώσε μας και δυο οδηγίες για το πως θα την ενσωματώσουμε στο autocad...και θα σου δώσουμε ένα σακούλι super φυστίκια!

[gnusselt]

iliekater : Γράφεις τον κώδικα σε ένα απλό αρχείο κειμένου με όνομα pexport.lsp

 

Στη γραμμή εντολών του AutoCAD γράφεις : appload

Στο παράθυρο που εμφανίζεται βρίσκεις το αρχείο pexport.lsp και το φορτώνεις.

 

Command: APPLOAD

PEXPORT.lsp successfully loaded.

Command:

Point Export φορτώθηκε. Για να το τρέξετε δώστε στο Command : PEXPORT

Command: _