|
07.03.2015 11:49
ozati
|
|
Evet doğru anlamışsınız üstad, "line" kotlu olduğunda başı ve sonuna line ucundaki yere point atmak istiyorum ( x,y,z)
Burada amaç kotlu line boyları değiştirdiğimde line uçlarındaki "point" lerinde kayması gerekekiyor.Bu çizgilerin çok olduğunu varsayarsak lisple işim pratikleştirir.
|
|
07.03.2015 12:21
 ehya
|
noktalar çizgilerin ucuna yerleşir ancak bu çizgileri yer değiştirdiğinizde point'ler yer değiştirmez..
Kod:
(defun c:plp ()
(if (setq ss (ssget (list (cons 0 "LINE"))))
(progn
(setq c 0 say (sslength ss))
(while (< c say)
(setq tek (ssname ss c)
n10 (cdr (assoc 10 (entget tek)))
n11 (cdr (assoc 11 (entget tek))))
(command-s "point" n10 "")
(command-s "point" n11 "")
(setq c (1+ c)))))(princ))
|
|
07.03.2015 14:23
ozati
|
|
Teşekkür ettim işimi kolaylaştırdı.
|
|
08.03.2015 17:22
 alumina
|
Alıntı
ozati :
Teşekkür ettim işimi kolaylaştırdı.
Bu da hizli olani :)
Kod:
(defun c:lp (/ so os) (vl-load-com)
(defun *error* (msg) (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*")) (princ (strcat "nError: " msg)) (princ)))
(if (setq so (ssget '((0 . "line"))))
(progn
(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for os (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
(vla-addpoint (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point (vlax-safearray->list (vlax-variant-value (vla-get-startpoint os)))))
(vla-addpoint (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point (vlax-safearray->list (vlax-variant-value (vla-get-endpoint os))))))
(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))))
(princ))
|
|
08.03.2015 18:38
 Travaci
|
Buda çeşiti :)
Kod:
(defun c:lpt (/ ss) (vl-load-com)
(defun apt (p /) (entmake (list (cons 0 "point") (cons 10 p))))
(if (setq ss (ssget (list (cons 0 "line"))))
(progn
(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
(repeat (setq n (sslength ss))
(setq dt (entget (ssname ss (setq n (1- n)))))
(apt (cdr (assoc 10 dt))) (apt (cdr (assoc 11 dt))))
(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
)
) (princ)
)
Adem Abi kitap yazar gibi kod yazmayı bırak artık :) Gerçi kitapta bile satır başı falan var :D
|
|
08.03.2015 19:07
alumina
|
Alıntı
Travaci :
Adem Abi kitap yazar gibi kod yazmayı bırak artık :) Gerçi kitapta bile satır başı falan var :D
Erkan performansin mi dustu senin. Bu seferki kulp 30 dk gecikti :)
|
|
08.03.2015 19:10
Travaci
|
|
Dışardaydım :D
|
|
09.03.2015 07:19
 emasi
|
|
Selamun Aleykum
Bu cizgide gösterilen K ve K1-i kendim eklemek şartı ile D ve D-1 - i bulan lisp yazmak mümkünmü?
[img][URL=http://www.radikal.ru][IMG]http://s40.radikal.ru/i087/1503/44/0acdde7969a1.jpg[/IMG][/URL][/img]
Uğurlar
|
|
09.03.2015 07:23
ehya
|
|
emasi
aleyküm selam,
resim çok küçük ve birşey okunmuyor. Biraz daha büyük resim olursa bakabiliriz.
|
|
09.03.2015 07:28
emasi
|
|
[img][URL=http://www.radikal.ru][IMG]http://s40.radikal.ru/i087/1503/44/0acdde7969a1.jpg[/IMG][/URL][/img]
|
|
09.03.2015 08:03
ehya
|
|
Lispin yapılabilirliği var ancak matematik lazım. O da bende yok. :)
Diğer arkadaşlar inş. ilgilenir.
|
|
09.03.2015 08:46
emasi
|
|
İnşəAllah
Şurada BEAM- lerin en kesik ölçülerinin farklı olmasını dikkatda saxlamaq gerek :blush
|
|
09.03.2015 12:13
emasi
|
Autokadda bunun nasıl çabuk çizilmesini buldum. Sakıncası yoksa anlatayım:
1. K ve K-1 belirledikden sonra hemen noktalardan BEAM 5in en kesiyi kaçsa o radiusda çevre çiziyoruz. Ve ardıcıllıqla bir çevrenin merkezinden diyer çevreye toxunan (tangent) çiziyoruz.
Umarım köməyim deydi.
Uğurlar:)
|
|
11.03.2015 18:39
vadav
|
|
block icersinde ( diyelim ki kare olsun) belirlenecek iki notkaya(hem alt hem ust kenar noktalarina olsun) daha onceden tanimlanmis block oturtmak nasil mumkun olabilir.
tesekkurler.
-sinan
|
|
17.03.2015 13:11
alpayelmas
|
|
Merhaba;
aşağıdaki resimde açık mavi renkli perde çizimini sarı renkli kirişlerle birleştiği yerden ayırarak ayrı ayrı line lar haline getiren stabil çalışan bir lisp ihtiyacım var. Çoklu seçim yaptığımda autocad içerisinde oluşturma sırasını baz alarak bu işi yapan bir lisp im var ama kolon perde mavi çizgili polyline obje sarı cızgılı kiriş objesinden once oluşturulmuşsa bu ayırma işlemini yapmıyor. Ben istiyorum ki bir projeyi komple seceyım ve bu işlemi her durumda gerçekleştirsin.
[img]https://cizimokulu.com/datas/users/205353-yeni-bit-eslem-resmi.bmp[/img]
|
|
17.03.2015 13:24
Travaci
|
alpayelmas
Döşemeye alttan bakmıyormusun ? Oraları parçalarsan çizimin yanlış olucak !
|
|
17.03.2015 21:50
alpayelmas
|
|
Travaci
Oraları parçalamak istememin sebebi kalıp metrajı için yazdıgım bır lispte kiriş kanatlarını seçerken sadece dosemeye bırlesen kolon parcalarını alıp kırıs kanatları arasında kalan kolon perde cızgılerını secmemek . bazen kırıs kanadı sarılar mavılerı kesmedıgı ıcın parcalama yapamıyordu uzat secenegı ıle sarıları uzatıp hallettım. bır kac santım kanat uzun olabılıyor ama metraja cıddı bır etkısı yok . ama kalıp parcalarını metraj ıcın secerken bahsettıgım parcalama eksık kaldıgı yerlerde cok fazla angarya ıslem gerekıyor bu yuzden lısp ım cokta verımlı oldugunu dusunmuyorum. bu yuzden parçalamak ıstıyorum
|
|
01.04.2015 08:32
razara
|
|
Merhaba arkadaşlar; yaptığım bir işte 1000 adetin üzerinde block kütüphanesi oluşturmuş durumda, bu bloklar oluşturulurken copy paste ile çoklandığı için, bütün bloklarda yazı ve ölçü stilleri aynı kalmış.Benim sorunum bu blokları topluca bir kerede seçip belirttiğim yazı ve ölçü stiline değiştirebilecek bir lisp varmıdır ? Batch Standart Checker' in hataları raporlayan değil düzelten versiyonu yani.
Tek Tek düzeltmek istediğimde CHECKSTANDARTS komutu işe yarıyor ama bu çok uzun zaman alacak.
|
|
01.04.2015 10:07
Travaci
|
|
Block içine girip sitil ayarlarınızı yapın, attsync uygulayın. 1000 farklı block olduğunu sanmıyorum.
|
razara
|
|
Meselede o zaten 1000 adet tek tek yapılmış , içinde 5 ayrı tag olan block kütüphanesi, ben küçük bile söyledim, kütüphane
1000 değil , toplamı 4700 adet buluyor kütüphaneni.Ondan mesele böyle biraz karmaşık.
|
Sonraki Sayfa
