11.12.2014 11:26
uzman_54
|
Arkadaşlar merhaba!
UCS 'nin yerini değiştirdikten sonra data extraction yaptıyorum fakat gelen koordinatlar farklı geliyor.Yardımcı olursanız sevinirim.
|
11.12.2014 11:31
Travaci
|
Yaptığın işlem ney ? Neyin koordinatlarını extract yapıyorsunuz ?
|
11.12.2014 11:37
uzman_54
|
Elimde bir çizim var.Çizimde 0,0,0 orijin noktam var ve ucs yi oraya taşıyorum ve sonrasında data extraction yapıp çizimdeki diğer noktaların koordinat bilgilerini excel'e dökmek istiyorum fakat gelen koordinatlar ucs nin world konumundaki koordinatlar.
|
11.12.2014 11:39
Travaci
|
Noktalar dediğin point mi bunlar ?
|
11.12.2014 11:40
uzman_54
|
evet
|
11.12.2014 11:54
alumina
|
aynı olay kapalı polyline nesnenin dis hatlarini çizerken benimde basima geldi. ucs yi sirayla her koseye aldırdım ama çizimi yaparken ucs World konumundaymış gibi koordinatlari aldı ve olmadık yerlere cizdi.
|
11.12.2014 12:08
uzman_54
|
Peki bir çözüm bulabildiniz mi?
|
11.12.2014 12:26
alumina
|
maalesef bulamamıştım. cok deneme yaptım ama her seferinde ucs yi taşısam bile koordinatlari ucs Word konumundaymış gibi verdi. bende hic ucs yi değiştirmeden cozmustum.
|
11.12.2014 12:30
uzman_54
|
netload ile yüklediğim koordinat aktarım programım var o da world konumundaki değerleri veriyor.Bunun bir çözümü vardır diye düşünüyorum ama ne...
|
11.12.2014 12:38
alumina
|
dediğim gibi bulamadım, ama acil olduğu içinde cok fazla üstelememiştim. Müsait olunca tekrar bakarım. diğer arkadaşlar belki bir cozum yolu biliyordur. zaten cozulurse netload a gerek kalmaksizin lisp le yapılır.
|
11.12.2014 12:50
Travaci
|
Kod:
(defun c:pdata (/ lpr dmz obj n txt pnt) (vl-load-com)
(setq obj (ssget (list (cons 0 "point"))) n 0
lpr (getvar "luprec") dmz (getvar "dimzin"))
(if obj
(progn
(setq txt (open (getfiled "" "" "xls" 9) "w"))
(setvar "luprec" 1) (setvar "dimzin" 0)
(repeat (sslength obj)
(setq pnt (trans (vlax-safearray->list (vlax-variant-value
(vla-get-Coordinates (vlax-ename->vla-object
(ssname obj n))))) 0 1) n (1+ n))
(write-line (strcat (rtos (car pnt) 2 3)
"\t" (rtos (cadr pnt) 2 3)) txt))
(close txt) (setvar "luprec" lpr) (setvar "dimzin" dmz)))
(princ)
)
|
11.12.2014 12:52
uzman_54
|
Üstad eline sağlık.Her bir çizimi ayrı ayrı yeni bir sayfaya atmaktan kurtardın beni.Lisp virgülden sonra 1 basamak alıyor.Virgülden sonra 3 basamak olması için neyi değiştirmek gerek?
|
11.12.2014 12:53
Travaci
|
Güncelledim.
|
11.12.2014 12:57
alumina
|
evet trans ı unutmuştum :)
|
11.12.2014 13:01
uzman_54
|
Peki üstad ucs orijin koordinatları standart 0,0,0.Ben ucs nin yerini değiştirmeden 0,0,0 değerlerini nasıl değiştirebilirim.Dün bu soruya cevap aradım ama bulamadım.Saygılarımla..
|
11.12.2014 13:04
Travaci
|
Nasıl değiştirmeyi düşünüyorsun ? Adı üstünde (orjin), nereye taşırsan 0 koordinatınıda taşımış olursun.
|
11.12.2014 13:11
uzman_54
|
Evet o konuda haklısın lakin "0" değerlerini değiştirebilmek bazı durumlarda muazzam kolaylık sağlayacak.Sen de bilirsin programlama dilerinde olmaz diye birşey yok.Ben de buna istinaden bir çözüm arayışına girdim. :-)
|
11.12.2014 13:35
Travaci
|
Seçilen bir noktayı 0 kabul ettirerek koordinatlar yazdırılabilir tabi ama kuru autocad de böyle bişi yok ;)
|
11.12.2014 13:37
alumina
|
Secilen bir noktayi 0 kabul ettirmekle ucs yi o noktaya taşımak arasında ne fark var?
|
Travaci
|
ucs yi taşıyınca autocad den koordinatları okuyoruz, gösterdiğimiz noktayı 0 kabul ettirerek pointlerin seçtiğimiz noktaya olan uzaklıkları yazdırılacak.
|