AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Lisp istekleri
01.02.2023 09:39    
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

01.02.2023 09:49    
baha07
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    
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.

01.02.2023 10:12    
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 .

01.02.2023 10:19    
kyufuk
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    
alumina
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)
)
02.02.2023 09:51    
kyufuk
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    
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?

13.02.2023 15:30    
mttlp
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)

17.03.2023 08:58    
alpayelmas
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    
ehya
alpayelmas



Sta4Cad için yazdığım bir program var. Idecad'in çıktıları ile aynı ise, özelden iletişim kurabilirsiniz...

04.04.2023 08:09    
umittaser
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    
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

10.04.2023 17:28    
umittaser
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    
alisezgin
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    
alumina
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    
alisezgin
örnekler için ; (projede bu şekilde 400 adet text bulunuyor)


Linkleri görebilmek için ÜYE olmalısınız.




Linkleri görebilmek için ÜYE olmalısınız.
12.04.2023 19:27    
alumina
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    
alisezgin
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    
alumina
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] Sonraki Sayfa
Copyright © 2004-2022 SQL: 1.704 saniye - Sorgu: 105 - Ortalama: 0.01623 saniye