05.01.2015 16:33

80019    

Elimde dairelerden oluşan bir dwg var bu dairelerin x-y kordinatları ve yarıçaplarını excel e aktarmam lazım.
Bir dosya buldum sadece x-y-z yi aktarıyor.Yarıçap yazmıyor...(
Lütfen yardım edin..

(defun C:toxls (/ coords coor_list elist en fd fname i ss)
(setq ss
(ssget "_:S" '((0 . "*POLYL*,LINE,CIRCLE,ARC,ELLIPSE,SPLINE,POINT"))) i -1)
(repeat (sslength ss)
(setq i (1+ i)
en (ssname ss i)
elist (entget en)
coords (vl-remove-if (function not)
(mapcar (function (lambda (x)(if (eq 10 (car x))(trans (cdr x) 0 1))))
elist)
)
coor_list (cons coords coor_list)))
(setq coor_list (reverse coor_list))
(setq fname (getfiled "Type file name" "" "xls" 1))
(setq fd (open fname "w"))
(foreach coors coor_list
(foreach i coors
(princ (strcat (rtos(car i)) "\t"
(rtos (cadr i))"\t"
(rtos (caddr i)) "\n")
fd)
)
)
(close fd)
(princ)
)

Arkadaşlar uğraşıyorym bir türlü bulamdadım.

05.01.2015 18:25

80022    

Valla Ne diyim bilmiyorum.......
Allah razı olsun....
Çoook Teşekkür ederim

05.01.2015 19:12

80025    

Vaktinizi almak istemiyorum. Ama bi ÅŸey daha sorabilirmiyim....
Bu lisp excel e gönderdiği dataları aslında txt formatında gönderiyor. Yani Zorlama excel yapıyor.
Aslında txt dosyasının uzantısını xls yapmış gibi düşünün.
bu da excel açarka hata uyarı veriyor.
düzeltmek mümkünmüdür.
Saygılarımla.. Tekrar Teşekküer ederim ilginiz için....