filtern: gib mal filter in der befehlszeile ein
koordinaten rausschreiben
(DEFUN c:gc10 ( /
datei
aws
edaten
i
gc10
)
(SETQ aws (SSGET '((-4 . "<OR") (0 . "POINT") (0 . "INSERT") (-4 . "OR>"))))
(SETQ datei (OPEN (getfiled "Koordinatendatei" (GETVAR "dwgprefix") "kor" 1) "w"))
(SETQ i 0)
(REPEAT (SSLENGTH aws)
(SETQ edaten (ENTGET (SSNAME aws i))
i (1+ i)
gc10 (CDR(ASSOC 10 edaten))
)
(WRITE-LINE (STRCAT (RTOS (CAR gc10) 2 2) " " (RTOS (CADR gc10) 2 2) " " (RTOS (CADDR gc10) 2 2)) datei)
) ;repeat
(CLOSE datei)
)
..noch was
koordianten von blöcken und dazugehörige attributwerte kann man auch mit dem attributsextraktionsmanager (mein Acad-Lieblingswort) unter extras rausschreiben.
ciao georg
[Diese Nachricht wurde von gmk am 05. Mai. 2004 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP