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

AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim

aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A

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

22.04.2011 11:47

kdemirkaya

Ö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...

63995

22.04.2011 12:55

ProhibiT

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.

63996

22.04.2011 13:12

kdemirkaya

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...

64064

27.04.2011 12:55

ProhibiT

PoLigon-01

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)

64086

28.04.2011 17:16

kdemirkaya

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..

64088

28.04.2011 17:46

ProhibiT

Ö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...

64089

28.04.2011 19:06

kdemirkaya

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...

66533

15.11.2011 04:32

kesinhesapci

Bilgisi ve emeği geçen her kesden rabbim razı olsun.
emeğinize sağlık.

66534

15.11.2011 04:39

kesinhesapci

Sayın abilerim peki bu fonksiyon regionlarla çizilmiş kapalı alanlarda kullanılmaz mı :))

66535

15.11.2011 06:28

ProhibiT

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...

66538

15.11.2011 15:05

msermus

Gercekten onemlı bır calısma hem basarılı hem faydalı.Bende tesekkur etmek ıstıyorum.

66542

15.11.2011 20:12

ProhibiT

"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...

66565

18.11.2011 09:59

kesinhesapci

Tekrar tekrar teşekkürler abi.

79078

14.11.2014 06:47

tankaray

elinize sağlık hocam sayenizde evde çocuklara zaman ayırabiliyoruz hep var olun SAYGILARIMLA....

79086

14.11.2014 11:03

ProhibiT

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. :)

> 1 <


	Forum	Download	Galeri	Üye Ol \| Giriş