Kapalı alanlar için özet tablosu dökümü

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 446, Üye: 3
1035ahmet, admin, ercanteke

Detaylar »

Forumlar > AutoCAD Acil Yardım > Kapalı alanlar için özet tablosu dökümü

Bu başlığı inceleyenler : 3 ziyaretçi, 0 üye : ---

İleti	Yazar
22.04.2011 11:47 63994	kdemirkaya Girişimci 24 ileti Harita Müh. istanbul
Öncelikle burada sorduğumuz sorulara cevap veren ve bizlere yardımcı olan herkese teşekkür etmek istiyorum. sayın prohibit hocanın yazdığı "plgn" komutuyla çalışan lisp'i sıkça kullanıyorum. kendisine buradan teşekkür etmek istiyorum. yaptığım çizimde onlarca kapalı alanda bu komutu kullandıktan sonra tek tek numara verdiğim bu kapalı alanların, alan ve çevre değerleri için bir icmal tablosunun yapılması zaruri hale geldi. acaba çizimde bulunan kapalı alanlar için, kendi yazdığımız isim veya numaralar dahilinde ( yada kendisinin vereceği ad veya numaralandırma da olabilir), toplu seçimle alan ve çevre değerlerinin yazdığı özet bir tablo yapılabilirmi. saygılarımla...

22.04.2011 12:55 63995	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
Paylaşımların doğru yerini bulması, arkadaşlarımızın işine yaradığını bilmek, gerçekten çok keyifli. bahsettiğiniz şekilde çoklu kullanım hiç düşünmemiştim. Bu durumda, PLgn fonksiyonunu, birden çok poligon seçerek tek seferde işlem yaptırmak ve her bir Poligonun tablosuyla ilişkilendirerek Özet tablosu oluşturulursa. daha baştan her bir poligona ve o poligonun koordinat tablosuna bir isim ve numara verilerek gidilir ve özel tablosu ile poligon ve diğer tabloların ilişkisi kurulmuş olur. başka bir yöntem de; daha önceden oluşturulmuş koordinat tabloları mevcut iken, çiftler halinde poligon ve tablosu seçilerek bunlara uygun şekilde isim veya numara verilir, seçilen yere de bu numaralarla uyumlu şekilde özet tablosu oluşturulur. bahsettiğim yöntemlerden hangisi daha kullanışlı olur? bu konudaki yorumlarınızı yazarsanız, ilk fırsatta yazmaya çalışırım. kolay gelsin. Beğenmek için anlamak lazım...

22.04.2011 13:12 63996	kdemirkaya Girişimci 24 ileti Harita Müh. istanbul
Sayın prohibit hocam; ilk fikriniz aslında tamda benim düşündüğüm şeydi. yani plgn fonksiyonuna birden çok poligonu toplu seçerek tek seferde işlem yaptırmak ve her bir poligonun tablosuyla ilişkilendirerek özet tablosu oluşturmak ve en alt satıra toplam alan ve toplam çevre uzunluğu yazdırmak.Böylece her bir poligona ve o poligonun koordinat tablosuna bir isim ve numara verilerek gidilir ve özet tablosu ile poligon ve diğer tabloların ilişkisi kurulmuş olur. böyle bir komutun birçok kullanıcının işine yarayacağı düşüncesindeyim. şimdiden kolay gelsin saygılarımla...

27.04.2011 12:55 64064	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
- Birden çok Polyline seçebilirsiniz, hatta çizim içindeki tüm polyline'ları da seçebilirsiniz. - Her bir Polyline objesine, PoLigon-01 şeklinde birer isim vererek devam edilir. - her poligonun koordinat tablosuna poligon adı başlık olarak eklenir. - sırası gelen poligon uygun şekilde zoom alınarak adıyla birlikte ekrana getirilir ve koordinat tablosu seçeceğiniz yerde oluşturulur. - tüm poligonlar bittikten sonra özet tablosu seçeceğiniz yerde oluşturulur. - özet tablosunda, poligonların isimleri, yanında alanı ve çevresi yazıldıktan sonra, en alt satırda alan ve çevrenin toplam değerleri yazılır. - yalnızca bir tek poligon seçerseniz, fonksiyon eski halinde olduğu gibi çalışır, poligona isim vermez, özet tablosu da oluşturmaz. Kolay gelsin. Kod: ;;;Prepared by: M. Şahin Güvercin 27.04.2011 - Ankara (write-line "\nHazırlayan, M. Şahin Güvercin - www.autocadokulu.com") (defun c:MpLgn (/ PLgns M o aLns cvRs PoLigon alan cevr ln yr noks Xx Yy pLNo n cen Lx Ly L mrk nk0 nk1 nk2 nk3 nk4 nk5 nk6 nk7 nk8 nk9 nk10 nk11 nk12 nk13 Nno uznlk TArea TPeri) (setvar "cmdecho" 0) (command "undo" "group") (setvar "modemacro" "Prepared by: M.S Güvercin") (setq da (* 1.5 pi)) (if (not txh) (setq txh (* (getvar "dimscale") (getvar "dimtxt")))) (if (setq tx (getreal (strcat "\Yazı Yüksekliği'ni giriniz <" (rtos txh) "> : "))) (setq txh tx)) (princ "\nPoligonları seçiniz...") (setq PLgns (ssget (list (cons 0 "LwpoLyLine"))) M (sslength PLgns) o -1 aLns nil cvRs nil) (while (< (setq o (1+ o)) M) (setq PoLigon (entget (ssname PLgns o))) (command "_Area" "e" (cdr (assoc -1 PoLigon))) (setq alan (rtos (getvar "area") 2 2) cevr (rtos (getvar "perimeter") 2 2) ln (strlen alan) yr (vl-string-position 46 alan) alan (cond ((= yr 0) (strcat "0" alan)) ((= yr nil) (strcat alan ".00")) ((= (- ln yr) 2) (strcat alan "0")) (T alan))) (setq ln (strlen cevr) yr (vl-string-position 46 cevr) cevr (cond ((= yr 0) (strcat "0" cevr)) ((= yr nil) (strcat cevr ".00")) ((= (- ln yr) 2) (strcat cevr "0")) (T cevr)) noks nil) (while (assoc 10 PoLigon) (setq Noks (append Noks (list (cdr (assoc 10 PoLigon)))) PoLigon (vl-remove (assoc 10 PoLigon) PoLigon))) (if (> M 1) (progn (if (< o 10) (setq Xx 0 Yy 0 pLNo (strcat "PoLigon-0" (itoa (1+ o))) n -1) (setq Xx 0 Yy 0 pLNo (strcat "PoLigon-" (itoa (1+ o))) n -1)) (while (< (setq n (1+ n)) (length noks)) (setq Xx (+ Xx (car (nth n Noks))) Yy (+ Yy (cadr (nth n Noks))))) (setq cen (list (/ Xx (length noks)) (/ Yy (length noks))) aLns (append aLns (list alan)) cvRs (append cvRs (list cevr))) (entmake (list (cons 0 "TEXT") (cons 10 cen) (cons 40 txh) (cons 1 pLNo) (cons 50 0) (cons 71 0) (cons 72 4) (cons 11 cen))) (setq Lx (* txh 26.25) Ly (* txh (/ (* 3 (+ (length Noks) 4)) 2.0)))) (setq Lx (* txh 26.25) Ly (* txh (/ (* 3 (+ (length Noks) 3)) 2.0)))) (setq L (length Noks) n -1) (command "_.zoom" "o" (cdr (assoc -1 PoLigon)) "") (command "_.zoom" "0.75x") (while (/= 3 (car (setq mrk (grread T 4 1)))) (setq mrk (cadr mrk)) (redraw) (setq nk1 (list (- (car mrk) Lx) (+ (cadr mrk) Ly)) nk2 (list (- (car mrk) Lx) (- (cadr mrk) Ly)) nk3 (list (+ (car mrk) Lx) (- (cadr mrk) Ly)) nk4 (list (+ (car mrk) Lx) (+ (cadr mrk) Ly))) (grdraw nk1 nk2 7) (grdraw nk2 nk3 7) (grdraw nk3 nk4 7) (grdraw nk4 nk1 7)) (redraw) (setq nk5 (polar nk1 0 (* 7.5 txh)) nk6 (polar nk5 0 (* 15.0 txh)) nk7 (polar nk6 0 (* 15.0 txh)) nk8 (polar nk1 0 (* 1.5 txh)) nk9 (polar nk5 0 (* 7.5 txh)) nk10 (polar nk6 0 (* 7.5 txh)) nk11 (polar nk7 0 (* 1.5 txh)) nk12 (polar nk5 0 (* 1.5 txh)) nk13 (polar nk6 0 (* 1.5 txh))) (entmake (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0) (cons 100 "AcDbPolyline") (cons 90 4) (cons 70 1) (cons 43 0.0) (cons 38 0.0) (cons 39 0.0) (cons 10 nk1) (cons 10 nk2) (cons 10 nk3) (cons 10 nk4))) (if (> M 1) (progn (setq nk0 (polar (list (/ (+ (car nk1) (car nk4)) 2.0) (cadr nk8)) da (* 2 txh))) (entmake (list (cons 0 "TEXT") (cons 10 nk0) (cons 40 txh) (cons 1 pLNo) (cons 50 0) (cons 71 0) (cons 72 1) (cons 11 nk0))) (entmake (list (cons 0 "LINE") (cons 10 (polar nk1 da (* 3 txh))) (cons 11 (polar nk4 da (* 3 txh))))) (setq nk1 (polar nk1 da (* 3 txh)) nk4 (polar nk4 da (* 3 txh)) nk5 (polar nk5 da (* 3 txh)) nk6 (polar nk6 da (* 3 txh)) nk7 (polar nk7 da (* 3 txh)) nk8 (polar nk8 da (* 3 txh)) nk9 (polar nk9 da (* 3 txh)) nk10 (polar nk10 da (* 3 txh)) nk11 (polar nk11 da (* 3 txh)) nk12 (polar nk12 da (* 3 txh)) nk13 (polar nk13 da (* 3 txh))))) (entmake (list (cons 0 "LINE") (cons 10 (polar nk1 da (* 3 txh))) (cons 11 (polar nk4 da (* 3 txh))))) (entmake (list (cons 0 "LINE") (cons 10 nk5) (cons 11 (polar nk5 da (* (+ L 2) 3 txh))))) (entmake (list (cons 0 "LINE") (cons 10 nk6) (cons 11 (polar nk6 da (* (+ L 3) 3 txh))))) (entmake (list (cons 0 "LINE") (cons 10 nk7) (cons 11 (polar nk7 da (* (+ L 2) 3 txh))))) (entmake (list (cons 0 "TEXT") (cons 10 (polar nk8 da (* 2 txh))) (cons 40 txh) (cons 1 "NOKTA") (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 (polar nk9 da (* 2 txh))) (cons 40 txh) (cons 1 "X") (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 (polar nk10 da (* 2 txh))) (cons 40 txh) (cons 1 "Y") (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 (polar nk11 da (* 2 txh))) (cons 40 txh) (cons 1 "UZUNLUK") (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 (polar nk8 da (* (+ (* (+ L 2) 3) 2) txh))) (cons 40 txh) (cons 1 (strcat "ALAN: " alan)) (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 (polar nk13 da (* (+ (* (+ L 2) 3) 2) txh))) (cons 40 txh) (cons 1 (strcat "T. UZUNLUK: " cevr)) (cons 50 0) (cons 72 0))) (setq nk8 (polar nk8 0 (* 2.0 txh)) n -1) (while (< (setq n (1+ n)) L) (setq Nno (1+ n) nokta (nth n Noks) X (rtos (car nokta) 2 2) Y (rtos (cadr nokta) 2 2) nk14 (polar nk8 da (* (+ (* Nno 3) 2) txh)) nk15 (polar nk14 0 (* 5.5 txh)) nk16 (polar nk15 0 (* 15.0 txh)) nk17 (polar nk11 da (* (+ (+ (* Nno 3) 2) 1.5) txh)) nk18 (polar nk1 da (* (* (+ Nno 1) 3) txh)) nk19 (polar nk7 da (* (* (+ Nno 1) 3) txh)) nk20 (polar nk19 da (* 1.5 txh)) nk21 (polar nk20 0 (* 15 txh))) (entmake (list (cons 0 "TEXT") (cons 10 nokta) (cons 40 txh) (cons 1 (itoa Nno)) (cons 72 4) (cons 11 nokta))) (entmake (list (cons 0 "CIRCLE") (cons 10 nokta) (cons 40 (* 1.15 txh)))) (entmake (list (cons 0 "TEXT") (cons 10 nk14) (cons 40 txh) (cons 1 (itoa nno)) (cons 50 0) (cons 71 0) (cons 72 0))) (setq ln (strlen X) yr (vl-string-position 46 X) X (cond ((= yr 0) (strcat "0" X)) ((= yr nil) (strcat X ".00")) ((= (- ln yr) 2) (setq X (strcat X "0"))) (T X)) ln (strlen Y) yr (vl-string-position 46 Y) Y (cond ((= yr 0) (strcat "0" Y)) ((= yr nil) (strcat Y ".00")) ((= (- ln yr) 2) (strcat Y "0")) (T Y))) (entmake (list (cons 0 "TEXT") (cons 10 nk15) (cons 40 txh) (cons 1 X) (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 nk16) (cons 40 txh) (cons 1 y) (cons 50 0) (cons 71 0) (cons 72 0))) (if (= n (1- L)) (setq uznlk (rtos (distance nokta (nth 0 Noks)) 2 2)) (setq uznlk (rtos (distance nokta (nth (1+ n) Noks)) 2 2))) (setq ln (strlen uznlk) yr (vl-string-position 46 uznlk) uznlk (cond ((= yr 0) (strcat "0" uznlk)) ((= yr nil) (strcat uznlk ".00")) ((= (- ln yr) 2) (strcat uznlk "0")) (T uznlk))) (if (= n (1- L)) (setq uznlk (strcat (itoa Nno) "-" "1=" uznlk)) (setq uznlk (strcat (itoa Nno) "-" (itoa (1+ Nno)) "=" uznlk))) (entmake (list (cons 0 "TEXT") (cons 10 nk17) (cons 40 txh) (cons 1 uznlk) (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "LINE") (cons 10 nk18) (cons 11 nk19))) (if (/= n (1- L)) (entmake (list (cons 0 "LINE") (cons 10 nk20) (cons 11 nk21))))) (entmake (list (cons 0 "LINE") (cons 10 (polar nk1 da (* (+ L 2) 3 txh))) (cons 11 (polar nk4 da (* (+ L 2) 3 txh)))))) (if (> M 1) (progn (setq L (length aLns) Lx (* txh 22.50) Ly (* txh (/ (* 3 (+ L 3)) 2.0)) n -1 dy (list 0.0 (* 3 txh))) (while (/= 3 (car (setq mrk (grread T 4 1)))) (setq mrk (cadr mrk)) (redraw) (setq nk1 (list (- (car mrk) Lx) (+ (cadr mrk) Ly)) nk2 (list (- (car mrk) Lx) (- (cadr mrk) Ly)) nk3 (list (+ (car mrk) Lx) (- (cadr mrk) Ly)) nk4 (list (+ (car mrk) Lx) (+ (cadr mrk) Ly))) (grdraw nk1 nk2 7) (grdraw nk2 nk3 7) (grdraw nk3 nk4 7) (grdraw nk4 nk1 7)) (redraw) (setq nk5 (polar nk1 da (* 3 txh)) nk6 (polar nk4 da (* 3 txh)) nk7 (polar nk5 da (* 3 txh)) nk8 (polar nk6 da (* 3 txh)) nk9 (polar nk5 0 (* 15 txh)) nk10 (polar nk9 0 (* 15 txh)) nk11 (polar nk2 0 (* 15 txh)) nk12 (polar nk11 0 (* 15 txh)) nk13 (list (/ (+ (car nk1) (car nk4)) 2.0) (cadr (polar nk4 da (* 2 txh)))) nk14 (list (car (polar nk1 0 (* 2 txh))) (cadr (polar nk13 da (* 3 txh)))) nk15 (polar nk14 0 (* 15 txh)) nk16 (polar nk15 0 (* 15 txh))) (entmake (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0) (cons 100 "AcDbPolyline") (cons 90 4) (cons 70 1) (cons 43 0.0) (cons 38 0.0) (cons 39 0.0) (cons 10 nk1) (cons 10 nk2) (cons 10 nk3) (cons 10 nk4))) (entmake (list (cons 0 "LINE") (cons 10 nk5) (cons 11 nk6))) (entmake (list (cons 0 "LINE") (cons 10 nk7) (cons 11 nk8))) (entmake (list (cons 0 "LINE") (cons 10 nk9) (cons 11 nk11))) (entmake (list (cons 0 "LINE") (cons 10 nk10) (cons 11 nk12))) (entmake (list (cons 0 "TEXT") (cons 10 nk13) (cons 40 txh) (cons 1 "POLİGON ÖZET TABLOSU") (cons 50 0) (cons 71 0) (cons 72 1) (cons 11 nk13))) (entmake (list (cons 0 "TEXT") (cons 10 nk14) (cons 40 txh) (cons 1 "POLİGON ADI") (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 nk15) (cons 40 txh) (cons 1 "ALAN") (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 nk16) (cons 40 txh) (cons 1 "ÇEVRE") (cons 50 0) (cons 71 0) (cons 72 0))) (setq TArea 0 TPeri 0) (while (< (setq n (1+ n)) L) (setq nk7 (mapcar '(lambda (nn1 nn2) (- nn1 nn2)) nk7 dy) nk8 (mapcar '(lambda (nn1 nn2) (- nn1 nn2)) nk8 dy) nk14 (mapcar '(lambda (nn1 nn2) (- nn1 nn2)) nk14 dy) nk15 (mapcar '(lambda (nn1 nn2) (- nn1 nn2)) nk15 dy) nk16 (mapcar '(lambda (nn1 nn2) (- nn1 nn2)) nk16 dy) TArea (+ TArea (atof (nth n aLns))) TPeri (+ TPeri (atof (nth n cvRs)))) (if (< n 10) (setq pLNo (strcat "PoLigon-0" (itoa (1+ n)))) (setq pLNo (strcat "Poligon-" (itoa (1+ n))))) (entmake (list (cons 0 "TEXT") (cons 10 nk14) (cons 40 txh) (cons 1 pLNo) (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 nk15) (cons 40 txh) (cons 1 (nth n aLns)) (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 nk16) (cons 40 txh) (cons 1 (nth n cvRs)) (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "LINE") (cons 10 nk7) (cons 11 nk8)))) (setq nk14 (mapcar '(lambda (nn1 nn2) (- nn1 nn2)) nk14 dy) nk15 (mapcar '(lambda (nn1 nn2) (- nn1 nn2)) nk15 dy) nk16 (mapcar '(lambda (nn1 nn2) (- nn1 nn2)) nk16 dy)) (entmake (list (cons 0 "TEXT") (cons 10 nk14) (cons 40 txh) (cons 1 "TOPLAM") (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 nk15) (cons 40 txh) (cons 1 (rtos TArea)) (cons 50 0) (cons 71 0) (cons 72 0))) (entmake (list (cons 0 "TEXT") (cons 10 nk16) (cons 40 txh) (cons 1 (rtos TPeri)) (cons 50 0) (cons 71 0) (cons 72 0))))) (setvar "modemacro" "") (command "undo" "e") (prin1) ) ProhibiT (28.04.2011 05:37 GMT) Beğenmek için anlamak lazım...

28.04.2011 17:16 64086	kdemirkaya Girişimci 24 ileti Harita Müh. istanbul
Sayın prohibit hocam; elinize sağlık, tek kelime ile muhteşem olmuş. özellikle zoom olayını gerçekten çok iyi düşünmüşsünüz.Emeğinize sağlık. fonksiyon kapalı alanlarda sorunsuz çalışıyor. kapalı olmayan polyline objeler için de bu fonksiyonu kullanmak istesem ( örneğin çok sayıda polyline çizgi ) nasıl yardımcı olabilirsiniz. çünkü fonksiyon bu tip objelerin toplu seçiminde hata kodu veriyor. şimdiden teşekkürler saygılarımla..

28.04.2011 17:46 64088	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
Öncelikle işinize yaramasına sevindim. poligon koordinatlarını tablo halinde yazmaktan başladık, gene çay kaşığında uçak gemileri yüzdürdük gibi geliyor bana :) fonksiyonun ilk hareket noktası, aplikasyon krokisi (çap) şeklindeki poligonlar olduğu için, daima kapalı bir polyline düşündüm. seçilen polyline'ın kapalı veya açık olmasını kontrol ettirmedim. eğer seçtiğimiz polyline kapalı değilse, autocad area komutu ile işleme aldığımızda, başlangıç nokası ile bitiş noktası birleşmiş gibi (kapanmış gibi) alan hesaplanır. aslına bakarsanız açık polyline objesinin alanı olmaz, tanımsızdır. gelelim bahsettiğiniz konuya, fonksiyon bu haliyle alanlarda bir hataya sebep olmaz. yalnızca çevresini hesaplarken, bitiş noktası ile başlangıç noktası arasında da bir ara mesafe hesapladığı için, çevre değeri fazla çıkar. tam olarak nerede kullandığınız anlayamamakla birlikte, eğer işinize yararsa, açık polyline'larda bitiş ve başlangıç arasında ara mesafe yazmayacak, ve çevre hesabına katmayacak şekilde düzenleyebilirim fonksiyonu. kolay gelsin... Beğenmek için anlamak lazım...

28.04.2011 19:06 64089	kdemirkaya Girişimci 24 ileti Harita Müh. istanbul
Sayın prohibit hocam; "plgn" fonksiyonunu çizimde noktalardan geçen ve onlarca kırıktan oluşan onlarca polyline hattın (örneğin kanal, bordür, kablo hattı gibi) koordinat özet tablolu metrajını çıkartmada kullanıyorum. şöyleki; çizimde oluşturduğum herbir polyline hat için fonksiyonun oluşturduğu tablonun son satırında hattın başlangıç ve bitiş noktaları arası mesafeyi siliyorum.Polyline hatta ve tabloya bir sıra numarası veriyorum.Çizimde bulunan her polyline hat için bu işlemi tekrarladıktan sonra tablosunu oluşturduğum tüm hatlar için özet bir tablo oluşturuyorum.Fonksiyonu belkide gerçek yazılış amacının biraz dışında kullanmış oluyorum aslında ama neticede sonuca ulaşmış oluyorum. işte özet tablolu ve toplu seçimli fonksiyonu sormamın sebebi bu işlemleri daha kısa hale getirebilmek içindi. umarım çaykaşığında gemi yüzdürmeyi istememişimdir sizden :) saygılarımla...

15.11.2011 04:32 66533	kesinhesapci Kıdemli Girişimci 38 ileti teknik ofis şefi konstantin
Bilgisi ve emeği geçen her kesden rabbim razı olsun. emeğinize sağlık.

15.11.2011 04:39 66534	kesinhesapci Kıdemli Girişimci 38 ileti teknik ofis şefi konstantin
Sayın abilerim peki bu fonksiyon regionlarla çizilmiş kapalı alanlarda kullanılmaz mı :))

15.11.2011 06:28 66535	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
Region objelerini bu fonksiyonla işleme almak mümkün değil. seçim filtresine region objeleri eklense ve seçilse de, region objelerin listesinde, lwpolyline'larda olduğu gibi (assoc 10 ... şeklinde köşe koordinatları bulunmaz... Beğenmek için anlamak lazım...

15.11.2011 15:05 66538	msermus Kıdemli Girişimci 14 ileti teknıker izmir
Gercekten onemlı bır calısma hem basarılı hem faydalı.Bende tesekkur etmek ıstıyorum.

15.11.2011 20:12 66542	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
"marifet iltifata tabidir, talebi olmayan marifet zayidir" misali, yazılanların işinize yaraması, iltifat görmesi emeğe değer katıyor. güzel sözleriniz için herkese teşekkür ediyorum. lakin kafama takılan bir şey var. bu başlık altında bilgi vermemişiz, bizim eksiğimiz olmuş. söz konusu pLgn fonksiyonun daha gelişmiş halini sitemizin download bölümünde bulabilirsiniz. Linkleri görebilmek için ÜYE olmalısınız. fonksiyonun bu son hali, bu başlık altında sorulan soruların ve isteklerin pek çoğunu karşılıyor. download bölümünde hiç yorum yazılmadığı için, konuyu arkadaşlarımıza duyurmak anlamında bir eksiklik olduğunu düşündüm. kesinhesapci arkadaşımızın sorusuna kısa cevap yazmışım, kestirip atmak gibi olmuş. aşağıda verdiğim autolisp ifadesini buradan aynen kopyalayıp komut satırına paste ederek, bir lwpolyline bir de region objesi seçerek uygularsanız, f2 tuşuna basarak autocad text screen'e baktığınızda, iki obje türünün farkını, neden plgn fonksiyonu ile kullanılamayacağını, benim neyi kasdettiğimi görebilirsiniz. (entget (car (entsel))) kolay gelsin... Beğenmek için anlamak lazım...

18.11.2011 09:59 66565	kesinhesapci Kıdemli Girişimci 38 ileti teknik ofis şefi konstantin
Tekrar tekrar teşekkürler abi.

14.11.2014 06:47 79078	tankaray Girişimci 7 ileti topograf gaziantep
elinize sağlık hocam sayenizde evde çocuklara zaman ayırabiliyoruz hep var olun SAYGILARIMLA....

14.11.2014 11:03 79086	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
Merhaba tankray Allah bağışlasın, çocuklara mutlaka vakit ayırmak gerek. Bunu sağlamakta katkımız oluyorsa ne mutlu bize. :) Bu arada ilginç bir şey dikkatimi çekti. Sizden önce son mesajı kesinhesapci arkadaşımız 2011 yılında yani neredeyse 3 yıl önce yazmış. Böyle örnekleri görünce, cizimokulu sitesinin ne kadar sağlam ve sürekliliği olan bir kaynak olduğu anlaşılıyor. Bu vesiyele Aydın hocama ve emeği geçen tüm arkadaşlara bir kere daha teşekkür etmek isterim. Ellerinize emeğinize sağlık. :) Beğenmek için anlamak lazım...

> 1 <