14.10.2015 11:31

82203    

Ayni isimde baska bir blok varsa uyari vermesi daha mi iyi olurdu?

14.10.2015 12:49

82205    

alumina

---

---

Olmaz :D

19.10.2015 08:04

82239    

Saygıdeğer arkadaşlar,aşağıda detayını yazdığım bir lisp var elimde.Metraj çıkarmak için gayet kullanışlı.Bir eksiği var sadece buda aslında ciddi bir sorun benim için şöyleki ; her line veya poliline olan çizgiler sadece bir kez seçilebiliyor.halbuki aynı olan bir line veya poliline çizgiyi toplam içine birden fazla dahil etmek gerekebiliyor..yazdığım bu lispte bahsettiğim sorunun çözümüne yardımcı olursanız gerçekten çok memnun olurum..

(defun C:UU()

(setvar "cmdecho" 0)

;;;--- Function to get the length of an ARC entity
(defun getArc(en)
(command "lengthen" en "")
(getvar "perimeter")
)

;;;--- Function to get the length of a LINE entity
(defun getLine(en)
(setq enlist(entget en))
(distance (cdr(assoc 10 enlist)) (cdr(assoc 11 enlist)))
)

;;;--- Function to get the length of a POLY, CIRCLE, SPLINE, OR ELLIPSE
(defun getPoly(en)
(command "area" "Object" en)
(getvar "perimeter")
)

;;;--- Main application

;;;--- Let the user select objects
(if(setq eset(ssget))
(progn

;;;--- Set up a variable to hold the length
(setq totalLen 0)

;;;--- Set up a counter
(setq cntr 0)

;;;--- Cycle through each entity in the selection set
(while(< cntr (sslength eset))

;;;--- Get the first entity's name
(setq en(ssname eset cntr))

;;;--- Get the DXF group codes
(setq enlist(entget en))

;;;--- Get the type of entity
(setq enType(cdr(assoc 0 enlist)))

;;;--- Get the length based on entity type
(cond
((= enType "ARC" )(setq len(getArc en)))
((= enType "CIRCLE" )(setq len(getPoly en)))
((= enType "ELLIPSE" )(setq len(getPoly en)))
((= enType "LINE" )(setq len(getLine en)))
((= enType "LWPOLYLINE")(setq len(getPoly en)))
((= enType "POLYLINE" )(setq len(getPoly en)))
((= enType "SPLINE" )(setq len(getPoly en)))
(T (setq len 0.0))
)

;;;--- Format the entity type to be 12 characters long
(while(< (strlen enType) 12)(setq enType(strcat enType " ")))

;;;--- Inform the user of progress
(princ "\n Found ")
(princ enType)
(princ " with a length of: ")
(princ (rtos len))

;;;--- Total the length
(setq totalLen(+ totalLen len))


;;;--- Increment the counter to get the next entity
(setq cntr (+ cntr 1))
)
)
)

(setvar "cmdecho" 1)

;;;--- Inform the user of the results
(alert (strcat " obje sayisi= " (itoa cntr) " toplam uzunluk= " (rtos totalLen)))

;;;--- Suppress the last echo for a clean exit
(princ)
)

19.10.2015 09:06

82241    

Sn ehya,
Evet söylediğiniz gibi seçilen nesnelerin toplam uzunluğunu veriyor.Ayrıca kaç nesne seçildiği bilgiside veriyor.paylaştığınız lispide indirip kullandım.Hemen hemen aynı görevi yapıyor.Benim paylaştığımda hem seçilen adet bilgisi hem seçilenlerin toplam uzunluğunu,sizin yazdığınızda sadece seçilenlerin toplam uzunluğunu gösteriyor...Ama muzdarip olduğum sorunun çözümü noktasında faydalanamadım.Benim sorunum benim paylaştığım lisp üzerinde değişiklikler yapılarak line veya poliline olan veya uzunluk ölçmek için ne seçilmişse aynı toplam içine o çizgi veya şekli birden çok dahil ettirmek.Benim paylaştığımda da sizin paylaştığınızdada aynı toplam içine bir line veya poliline sadece birkez dahil edilebiliyor..Umarım derdimi anlatabilmişimdir..İnşallah dermanıda siz saygıdeğer arkadaşlarda vardır..

22.10.2015 08:36

82259    

Can bunla seni kandırabilirmiyim :D

22.10.2015 08:53

82261    

CAN123

---

---

Ozaman vla-transformby ı araştır bakalım :D

26.10.2015 11:26

82277    

Arkadaşlar merhaba,

Aşağıdaki yapmaya çalıştığım pozlandırma lispinde daire içerisinde kalan leader'i nasıl trimlayabilirim?
inters ile yapamadım.

(defun c:SDX ()
(setvar "cmdecho" 0) (command "_.undo" "group")
(setq oldlayer (getvar "CLAYER"))
(setq text (getint "\n Enter pos number :"))
(setq QL1 ( getpoint "\n Start Point : "))
(setq QL2 ( getpoint "\nsecond a Point : "))
(setq p1 ( getpoint "\nChoose a Point : "))
(command-S "._layer" "_M" "P" "color" "1" "" "ltype" "continuous" "" "")
(command "_qleader" QL1 QL2 p1 ^C )
(command-S "circle" p1 80 "")
(command-S "STYLE" "ARIAL_NARROW" "ARIAL NARROW" "60" "1" "0" "" "" "")
(setvar "CECOLOR" "3")
(command-S "text" "j" "mc" p1 0 text)
(setvar "CECOLOR" "bylayer")
(setvar "CLAYER" oldlayer)
(princ)
)

26.10.2015 13:03

82281    

alumina hocam cevabınız için teşekkürler.

28.10.2015 06:47

82299    

Arkadaşlar merhaba,

Birinci sorunu hallettim. ikinci soru hakkında ne yapabilirim.

teşekkürler

28.10.2015 07:12

82302    

Cevap için teşekkürler