coordinatenlijst maken

[Reimer]

Een vraag die ik wel vaker tegenkom maar waar ik nog geen hapklaar antwoord op heb kunnen vinden.

Ik wil graag een lijstje maken (liefst *.txt) waarin de coordinaten van een groep geselecteerde objecten staat. Voorlopig gaat het mij om de coordinaten van circels. Volgens mij is dit in lisp niet echt moeilijk maar ik heb daar zelf geen verstand van.
Hopelijk kan iemand mij helpen.

Reimer

[HofCAD]

Beste Reimer,

Bedoel je zoiets als onderstaand?

Groetjes HofCAD CSI

Code Selecteer Uitklappen


(defun c:CirDat(/ ~cmd ~dzin DirNaam FilNaam prec filedes ss1 i pm)
  (setq ~cmd (getvar "CMDECHO") ~dzin (getvar "DIMZIN"))
  (setq      DirNaam    "C:\\Temp\\"
               FilNaam    "CenList"
prec 4
  )
  (setq ss1 (ssget "X" (list '(0 . "CIRCLE"))))
  (if ss1
    (progn
      (setvar "DIMZIN" 3)
      (setq OutFile (strcat DirNaam FilNaam ".txt"))
      (setq filedes (open OutFile "w"))
      (setq i 0)
      (repeat (sslength ss1)
(setq pm (cdr (assoc 10 (entget (ssname ss1 i)))))
(mapcar
  '(lambda (x) (princ X filedes))
  (List (rtos (car pm) 2 prec) "," (rtos (cadr pm) 2 prec) ","
                         (rtos (caddr pm) 2 prec) "\n")
)
(setq i (1+ i))
      )
      (close filedes)
    )
  )
  (setvar "DIMZIN" ~dzin) (setvar "CMDECHO" ~cmd)
  (princ (strcat "\n De middelpunten staan in het bestand: "
Dirnaam filnaam ".txt"))
  (princ)
)


[Reimer]

 
Hier kan ik wat mee. Bedankt voor de snelle reactie, ik ga direct weer aan de slag.

Reimer