Lisp istekleri | Forumlar

Forumdan

99 kategoride 17 binden fazla konu başlatıldı bu konulara yaklaşık 90 bin cevap verildi tüm bunlar yaklaşık 109 milyon kez görüntülendi

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Özel Yazılımlar

Program Ekle

Ziyaretçi: 458, Üye: 3
atalay23, dincramazan, sevo123

Detaylar »

Forumlar > AutoLISP > Lisp istekleri

İnceleyenler : 20 ziyaretçi, 0 üye : ---

İleti	Yazar
01.02.2023 09:39 90113	kyufuk Girişimci 5 ileti
Alıntı baha07 : Alıntı kyufuk : Merhaba, küçük bi isteğim olacaktı kendim yapmaya çalıştım ama yapamadım. Bir ölçüyü seçtikten sonra o ölçüyü 0.104 ve 0.292 ile çarpıp ölçünün ortasından hem sağına hem soluna 2 şer tane xline atması . Örnek verecek olursam 100 ölçüsü düşünün 0.104 ile çarpıp 10.4 hemen ölçünün solundan bi tane xline atıcak 10.4 e sonra aynı ölçüyü tekrar 0.292 ile çarpıcak bu seferde 29,2 çıkıyor ama bu sefer 10.4 attığımız ölçüden 29,2 ötesine xline atıcak ve bu iki çizgiyi ölçünün ortasından diğer tarafa mirrorlıcak gibi düşenebiliriz. Örneğe ait bi resim paylaşıyorum Yardımlarınız için şimdiden teşekkürler. verdigin degerler her zaman sabit mi evet hocam her zaman sabit

01.02.2023 09:49 90114	baha07 Kıdemli Uzman 137 ileti harita teknikeri antalya
Alıntı kyufuk : Alıntı baha07 : Alıntı kyufuk : Merhaba, küçük bi isteğim olacaktı kendim yapmaya çalıştım ama yapamadım. Bir ölçüyü seçtikten sonra o ölçüyü 0.104 ve 0.292 ile çarpıp ölçünün ortasından hem sağına hem soluna 2 şer tane xline atması . Örnek verecek olursam 100 ölçüsü düşünün 0.104 ile çarpıp 10.4 hemen ölçünün solundan bi tane xline atıcak 10.4 e sonra aynı ölçüyü tekrar 0.292 ile çarpıcak bu seferde 29,2 çıkıyor ama bu sefer 10.4 attığımız ölçüden 29,2 ötesine xline atıcak ve bu iki çizgiyi ölçünün ortasından diğer tarafa mirrorlıcak gibi düşenebiliriz. Örneğe ait bi resim paylaşıyorum Yardımlarınız için şimdiden teşekkürler. verdigin degerler her zaman sabit mi evet hocam her zaman sabit multiline isini gormuyor mu , mlstyle`den kendi stilini olusturup

01.02.2023 09:58 90115	kyufuk Girişimci 5 ileti
örnekte verdiğimin 100 ölçüsünün değeri her zaman farklı olduğu için multiline işimi görmeyebilir hocam sonuç her seferinde farklı cıkacak cünkü. İşi kolaylaştırmak adına 100 ölçüsünün soluna bi xline atmış olsam çıkan sonuçlara göre o xline i kopyalama şansımı yok mu 2 tane atmış olsa bile ben sağ tarafa mirrorlasam bile kafi.

01.02.2023 10:12 90117	baha07 Kıdemli Uzman 137 ileti harita teknikeri antalya
Alıntı kyufuk : örnekte verdiğimin 100 ölçüsünün değeri her zaman farklı olduğu için multiline işimi görmeyebilir hocam sonuç her seferinde farklı cıkacak cünkü. İşi kolaylaştırmak adına 100 ölçüsünün soluna bi xline atmış olsam çıkan sonuçlara göre o xline i kopyalama şansımı yok mu 2 tane atmış olsa bile ben sağ tarafa mirrorlasam bile kafi. multiline da scale giriyorsun . sablonunu 100 gore ayarlarsan , olculerin ornegin 320 ise 3.2 scale dersin, sablonu 1 olacak sekilde ayarlarsan , scale olarak direk olcuyu yazarsin 320.22 gibi .. fakatilk gonderini tekrar okuyunca sen olcuyu gosterip xline ler otomatik olusturursun diyorsun .

01.02.2023 10:19 90118	kyufuk Girişimci 5 ileti
Alıntı baha07 : Alıntı kyufuk : örnekte verdiğimin 100 ölçüsünün değeri her zaman farklı olduğu için multiline işimi görmeyebilir hocam sonuç her seferinde farklı cıkacak cünkü. İşi kolaylaştırmak adına 100 ölçüsünün soluna bi xline atmış olsam çıkan sonuçlara göre o xline i kopyalama şansımı yok mu 2 tane atmış olsa bile ben sağ tarafa mirrorlasam bile kafi. multiline da scale giriyorsun . sablonunu 100 gore ayarlarsan , olculerin ornegin 320 ise 3.2 scale dersin, sablonu 1 olacak sekilde ayarlarsan , scale olarak direk olcuyu yazarsin 320.22 gibi .. fakatilk gonderini tekrar okuyunca sen olcuyu gosterip xline ler otomatik olusturursun diyorsun . aslında evet istediğim ilk gönderi de ki gibi. Hocam kısa bi özet geçiyim sana tekrar kendim de yapmaya çalıştığımda şöyle yaptım ama sonunu getiremedim. 100 ün sol bacağına bi tane xline attım sonra komutumu çalıştırıp xline ı seçip ölçüye tıkladığımda ölçüyü algılayıp 0.104 ile çarpıp seçmiş olduğum xline ı çıkan sonuca kopyalıyordu. bunun biraz daha geliştirilmiş halini istiyorum onu tamamlayamadım ben sadece. benim istediğim parça parça değilde toplu bi şekilde hepsini halletmek.

02.02.2023 09:41 90124	alumina Editör 771 ileti Insaat Muhendisi Istanbul
Alıntı kyufuk : Gozden kacirilan bir hata duzeltilerek guncellendi.. assoc 50 degeri dimension nesnesinin ilk create edildigi aci olup rotate ile dondurulmedigi surece daima 0 degerine sahiptir. Nedeni ise dimension nesnesinin de aslinda bir blok nesnesi olmasidir. Kod: (defun c:dx (/ a b dc ns z ds n0 n3 n4 d1 d2 a1 a2) (vl-load-com) (defun m1 (x /) (cdr (assoc x (entget (ssname ns z))))) (defun m2 (x /) (vlax-invoke (vla-get-ModelSpace dc) 'AddXline x (polar x (+ a2 a1) 1.))) (if (setq a 0.104 b 0.292 dc (vla-get-ActiveDocument (vlax-get-acad-object)) ns (ssget '((0 . "Dimension")))) (progn (vla-StartUndomark dc) (repeat (setq z (sslength ns)) (setq z (1- z) n0 (m1 10) n3 (m1 13) n4 (m1 14) ds (m1 42) d1 (* ds a) d2 (* ds (+ a b)) a1 (/ pi 2.) a2 (angle n3 (inters n3 (polar n3 (+ (angle n4 n0) a1) 1.) n4 n0 nil))) (mapcar '(lambda(a) (m2 (polar n3 a2 a))) (list d1 d2 (- ds d1) (- ds d2)))) (vla-EndUndomark dc) ) ) (princ) )
k005, kyufuk
02.02.2023 09:51 90125	kyufuk Girişimci 5 ileti
Alıntı alumina : Alıntı kyufuk : @alumina hocam mükemmelsin Allah razı olsun tam istediğim gibi olmuş alumina (02.02.2023 09:56 GMT)

13.02.2023 09:42 90171	hasatan06 Girişimci 8 ileti mimar ankara
Merhaba arkadaşlar. şöyle bir lisp ihtiyacım var. autocaddeki alan p.linelarını excele aktarmak istiyorum. örneğin excelde belirli sütun ve satırdaki yazmış olduğum alan içeren rakamı autocad ile eşleştirip, autocaddeki alan değişince otomatik olarak excellde ki alan da değişsin istiyorum. Böyle bir lisp yazılabilirmi?

13.02.2023 15:30 90176	mttlp Kıdemli Uzman 189 ileti Makine mühendisi ankara
Alıntı hasatan06 : Merhaba arkadaşlar. şöyle bir lisp ihtiyacım var. autocaddeki alan p.linelarını excele aktarmak istiyorum. örneğin excelde belirli sütun ve satırdaki yazmış olduğum alan içeren rakamı autocad ile eşleştirip, autocaddeki alan değişince otomatik olarak excellde ki alan da değişsin istiyorum. Böyle bir lisp yazılabilirmi? Yazılır özelden yazabilirsiniz mttlp (14.02.2023 05:33 GMT) Size özel gelişmiş arayüzlerle yazılımlar yapılır. C#, Vb, .Net, python, Revit, Autocad, Autolisp ve Visuallisp yazılım.

17.03.2023 08:58 90232	alpayelmas Kıdemli Uzman 121 ileti İnşaat Mühendisi İstanbul
Herkeze merhabalar arkadaşlar ; Umarım herkez iyidir. Arkadaşlar idestatik yazılımının projelerinden demir metrajı yapabilen bir lisp ihtiyacım var. Yardımcı olmanız mümkünmü ? Teşekkürler.

17.03.2023 13:59 90233	ehya Yönetici 3590 ileti Teknik Ressam Ankara
alpayelmas Sta4Cad için yazdığım bir program var. Idecad'in çıktıları ile aynı ise, özelden iletişim kurabilirsiniz...
alpayelmas, umittaser, alumina
04.04.2023 08:09 90260	umittaser Kıdemli Girişimci 43 ileti inşaat teknikeri ankara
Herkese selamlar ve kolay gelsin. yine bir lisp isteğiyle karşınızdayım :) sadece işimiz düşünce geliyoruz maalesef :( Benim isteğim şöyle olacak eğer mümkünse. seçtiğim spline, pline, arc vs objenin lenght uzunluğunu ofset atan bir lisp. yani komutu girince obje seçtirecek ve onun uzunluğunu offset atacak. normalde list ile objeyi seçiyorum uzunluğu kopyalıyorum offset komutuna giriyorum oraya yapıştırıyorum ve öyle atıyorum. buda işimi fazlasıyla uzatıyor :( yardımcı olabilirseniz sevinirim. umittaser (04.04.2023 09:26 GMT)

10.04.2023 14:07 90264	alisezgin Kıdemli Girişimci 31 ileti mühendis Ankara
Öncelikle herkese selamlar . talep ettiğim lispin mantığı şu şekilde olacak örn ; projemizde 400 adet text var , bunların içerisinde X ve Y koordinatları aynı olan textleri birleştirip tek bir text yapmasını istiyorum. Şimdiden teşekkürler

10.04.2023 17:28 90265	umittaser Kıdemli Girişimci 43 ileti inşaat teknikeri ankara
Alıntı alisezgin : Öncelikle herkese selamlar . talep ettiğim lispin mantığı şu şekilde olacak örn ; projemizde 400 adet text var , bunların içerisinde X ve Y koordinatları aynı olan textleri birleştirip tek bir text yapmasını istiyorum. Şimdiden teşekkürler ne kadar farklı koordinatlar var bilemiyorum ama find , quick select veya filter ile aynı olan içeriği textleri seçip ve txt2mtxt komutunu kullanıp hepsini tek bir mtext haline getirebilirsiniz. en hızlı böyle bir çözüm olur :)

11.04.2023 14:37 90267	alisezgin Kıdemli Girişimci 31 ileti mühendis Ankara
Hocam teşekkürler ama text içeriğiyle veya yazıyla istediğim lispin bir bağlantısı yok . örneği biraz daha açayım ; 400 textim var . bu textler ikili şekilde koordinatları aynı olan 200 grubum var . normalde text birleştirme lispim var ama tek tek uğraşırsam zaman kaybederim bu yüzden projede işaretlediğim bölgede bulunan koordinatları aynı olan text leri birleştirecek bir lispe ihtiyacım var . teşekkürler

12.04.2023 02:28 90268	alumina Editör 771 ileti Insaat Muhendisi Istanbul
Alıntı alisezgin : Bir ornek dosya paylasip uzerinde yapmak istediginizi isaretlerseniz (yan yana duran texler bunlar, birlesmis halide bu gibi) cozulur.

12.04.2023 08:14 90269	alisezgin Kıdemli Girişimci 31 ileti mühendis Ankara
örnekler için ; (projede bu şekilde 400 adet text bulunuyor) Linkleri görebilmek için Üye Ol veya Giriş Yap Linkleri görebilmek için Üye Ol veya Giriş Yap

12.04.2023 19:27 90270	alumina Editör 771 ileti Insaat Muhendisi Istanbul
Alıntı alisezgin : ornekte koordinatlari ayni olan "kalem" ve "tıras" var, sonuca kalem / tıras yazmissiniz ama oncelik nasil belirleniyor? tras / kalem de olabilir bu.

13.04.2023 05:51 90271	alisezgin Kıdemli Girişimci 31 ileti mühendis Ankara
hangi textin önce yazacağının benim için pek bir önemi yok . Eğer sizin için önem arz ediyorsa karakter sayısı fazla olan önce yazabilir

14.04.2023 03:10 90276	alumina Editör 771 ileti Insaat Muhendisi Istanbul
Alıntı alisezgin : Siralama onemsenmedi.. Kod: (defun c:qw (/ dc ss s0 sn ns nn nr) (vl-load-com) (if (setq dc (vla-get-ActiveDocument (vlax-get-acad-object)) ss (ssget '((0 . "Text")))) (progn (vla-StartUndomark dc) (while (> (sslength ss) 0) (setq s0 (ssname ss 0) sn (entget s0)) (ssdel s0 ss) (if (> (sslength (setq ns (ssdel s0 (ssget "_X" (list '(0 . "Text") (assoc 10 sn)))))) 0) (progn (setq nn (entget (ssname ns 0)) nr (assoc 1 nn)) (entmod (subst (cons 1 (strcat (cdr (assoc 1 sn)) " / " (cdr nr))) nr nn)) (entdel s0) ) ) ) (vla-EndUndomark dc) ) ) (prin1) )

Önceki Sayfa

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] [25] [30] [35] [40] [45] [50] [55] [60] [65] [70] [75] [80] [85] [90] [95] > 97 < [100] [101]

Sonraki Sayfa