Lisp istekleri | Forumlar

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

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

29.10.2019 19:10

ayak

Alıntı
ehya :
;;; İSTENİLENE GÖRE BİR LISP HAZIRLADIM. İSTEYEN KİŞİ BAKSIN, EĞER İSTEDİĞİ BİR DÜZELTME VARSA TEKRAR DÜZENLERİM...

(defun c:uy ()
(setq uy_os (getvar "osmode"))
(setq uy_sec nil)
(setq uy_sec (ssget (list (cons 0 "LINE"))))
(if (= uy_sec nil)
(progn
(princ "
Nesne seçimi yok. Komut bitirildi..."))
(progn

(if (= uy_yaz_yuk nil)(setq uy_yaz_yuk 12))
(initget 2)
(setq uy_yaz_y (getdist (strcat "
Yazılacak yazının Yüksekliği:<" (rtos uy_yaz_yuk) ">:")))
(if (= uy_yaz_y nil)(setq uy_yaz_y uy_yaz_yuk))
(setq uy_yaz_yuk uy_yaz_y)
(setq uy_c 0)
(setq uy_say (sslength uy_sec))
(while (< uy_c uy_say)
(setq uy_sec_tek (ssname uy_sec uy_c))
(setq uy_sec_tek_10 (cdr (assoc 10 (entget uy_sec_tek)))
uy_sec_tek_11 (cdr (assoc 11 (entget uy_sec_tek))))
(setq uy_sec_tek_mes (distance uy_sec_tek_10 uy_sec_tek_11))
(setq uy_sec_tek_10_x (car uy_sec_tek_10)
uy_sec_tek_10_y (cadr uy_sec_tek_10)
uy_sec_tek_11_x (car uy_sec_tek_11)
uy_sec_tek_11_y (cadr uy_sec_tek_11))
(setq uy_yaz_x (/ (+ uy_sec_tek_10_x uy_sec_tek_11_x) 2.00)
uy_yaz_y (/ (+ uy_sec_tek_10_y uy_sec_tek_11_y) 2.00)
uy_yaz (list uy_yaz_x uy_yaz_y))
(if (< uy_sec_tek_10_x uy_sec_tek_11_x)
(progn
(setq uy_sec_aci_bas uy_sec_tek_10)
(setq uy_sec_aci_son uy_sec_tek_11)
)
(progn
(setq uy_sec_aci_bas uy_sec_tek_11)
(setq uy_sec_aci_son uy_sec_tek_10)))
(setq uy_sec_tek_aci (angle uy_sec_aci_bas uy_sec_aci_son))
(command "style" "cizgiyazi" "" "" "" "" "" "" "")
(command "osnap" "node")
(command "text" "j" "bc" uy_yaz uy_yaz_yuk (angtos uy_sec_tek_aci) (rtos uy_sec_tek_mes))
(setq uy_c (+ uy_c 1))
)))(setvar "osmode" uy_os)(princ))
(princ "
Komutu çalıştırmak için [UY] yazın")(princ)

Sevgili arkadaşlar bu çok kullanışlı.
Başta ehya olmak üzere tüm emeği geçenlere teşekkür ederim.
Fakat arc spline veya polyline gibi nesnelerini uzunluğunu yazmıyor.
Bunu yapabilmek mümkün mü?
Bir de hakikaten çizginin ait olduğu layerı da uzunluğun önüne yazabilse harika olurdu

87757

19.11.2019 14:30

proje86

Herkese merhaba,
3 boyutlu surface modelleri solide modele çevirebileceğim,
herhangi bir lisp mevcutmudur.
Teşekkürler.

87758

19.11.2019 14:32

proje86

Alıntı
ehya :

Alıntı
ibrahimbahce :
Merhabalar,
Autocad 3D solid çizdiğim dolabın her parçasının en boy yükseklik değerlerini çıkaran ve liste halinde excel e alabileceğim bir lisp varmıdır?

Böyle bir lisp yoktur. Lisp ile yazılabilecek bir durum değildir. Profesyonel destek almanız gerekir.

VBA excel dosyası olarak adet en boy yükseklik olarak çıkaran dosya hazırlanabilir.

87760

20.11.2019 17:51

vnyvolkan

Alıntı
atesersin62 :
Arkadaslar Merhabalar herkese,

Oncelikle yemin ediyorum bircok web sitesinden daha yararli bir website ve emegi gecen herkese cok tesekkur ediyorum.
Benim su sekilde bir lisp istegim olucak eminimki herkesinde isine yarayacak.

Bir duvar olsun ben dimension komutuyla Olcu verirken bir noktadan bir noktaya ayni zamanda da o cizginin ustune poz no vericek. Misal bir line cizgisi olsun dimension komutuyla olcu aldigimizda altta uzunluk olucak usttede mesela duvar 1 - uzunluk ( sectigimiz line uzunlugu ) olcuyu yazicak yalniz duvar 1 - uzunluk yazisini text olarak yazicak dimension ile yazi blok halde olmadan. Bu sekilde her olcu verdigimizde sirayla duvar 2- uzunluk , duvar 3-uzunluk gibi artis saglanarak bir lisp yazma sansimiz var mi acaba ?
Herkese iyi aksamlar iyi calismalar, !!!

1- Cizgileri tek tek mi dimension komutuyla seçiyorum
2- Poz numaralarini ve uzunlugu duvar 1 - uzunluk (numaralar 3 basamağa kadar çıkabilir 001-002 ....)
3- Dosyaniz uzerinde mesela 100 tane duvar pozu verdik bittikten sonra yine aynı dosya içinde farklı layer kullanarak misal kapı 001 - uzunluk diye ardışık olarak yeni pozlandırma yapabilmek istiyorum.
4- ayni cizgi boyundan onceki pozlarin icerisinde varsa yeni numara verilsin i
5- Duvar 1 -uzunluk yazisi sabit olmasin ornek ben istedigimde duvar yerine baska bir yazi yazabileyim
6-yukarıdada belirtiğim gibi dimensiyon ve duvar 001 - 250 iki komut blok olmadan yazı kısmı text olarak kullanılacak.
6- Poz numaralarınıda excele atabilirsek 2 sutun halinde 1.sutun duvar 001 2. sutun uzunluk. (olsada olur olmassa hiç problem değil yardımcı olmanız yeter onuda elle yaparız siz o kadar yardımcı oluyorsunuz SAYGILARIMLA...)

87761

20.11.2019 19:04

vnyvolkan

Arkadaşlar Merhaba;
Öncelikle emeği geçen herkese teşekkürler.Bütün forumu okudum ama ufakta olsa talebime yakın şeyler buldum. Ama bunları birleştiremedim. Benim istediğim lisp;

-Polyline ile çizmiş olduğum sıva katmanına çizim üzerinde (olabilirse çizgiye paralel,herhangi bir yerine) önce pozu yanına da uzunluğu sonunu yazsın (mt) olarak , birde eğer olabilirsen her polyline tıkladığımda poz numarası artarak gitmesi,

Örnek;
S1-12,23 mt
S2-15,76 mt

Bu konuda yardımcı olabilirseniz çok ama çok sevinirim.
şimdiden teşekkürler.

87763

20.11.2019 20:16

yanginkaplin

Arkadaşlar merhaba;

Benim bir ricam olacak. İki farklı lisp kullanıyorum. Birinci lispi measfeyi bulmak için diğerini ise array etmek için kullanıyorum.

Bu iki lispi birleştirip (önce mesafeyi bulup sonra bu measfe ve adete göre otomatik array yapacak) tek lisp yapabilir miyiz?

1. LİSP
(defun c:ds (/ d a b)
(if (setq d (getdist "\nDist:"))
(alert (strcat "X= " (rtos (setq a (/ d 1200)) 2 2)
"\nY= " (rtos (setq b (1+ (fix a))) 2 2) "\nZ= " (rtos (/ (- d 122) b) 2 2)))
) (princ)
)

2.LİSP
(defun c:tt (/ ss p1 p2 num ang dst dst2)
(if (and (setq ss (ssget "_:L"))
(setq p1 (getpoint "\nSpecify first point: "))
(setq p2 (getpoint p1 "\nSpecify next point: "))
(progn (initget 6) (setq num (getint "\nSpecify number of copies: ")))
)
(progn
(setq ang (angle p1 p2)
dst (distance p1 p2)
dst2 0.
)
(repeat num (command "_.copy" ss "" "_non" p1 "_non" (polar p1 ang (setq dst2 (+ dst dst2)))))
)
)
(princ)
)

87777

26.11.2019 09:30

cngzklc

Değerli arkadaşlarım ve Hocalarım,
Bir lisp konusunda yardımınıza ihtiyacım var. Aşağıdaki işlemleri her obje için teker teker yapıyorum.
Bunu lisp'e dönüştürme konusunda yardımcı olabilirseniz sevinirim.

1- FACETERSMOOTHLEV komutunu çalıştırarak, dönüştürülecek mesh objelerine "0" değeri girerek düzgünleştirmesini engelliyorum.
2- Seçili "Polyface Mesh" objelerini, MESHSMOOTH komutu ile mesh'e convert ediyorum.
3- MEASUREGEOM komutu ile her parçanın teker teker Alan ve Hacmini çıkarmaya çalışıyorum.

Burada benim ihtiyacım olan, Seçili Tüm Polyface Mesh objelerini, tek seferde mesh'e convert etmek ve tüm objelerin Toplam Alanı ve Ağırlığını öğrenmek.
Alan için; Area (mm^2) * 0.000001 formülü
Ağırlık için; Volume (mm^3) *0.00000785 formulü ile toplam alan ve ağırlığına ulaşmak.

Ekte örnek dosya mevcut. Yardımcı olabilirseniz sevinirim.
Şimdiden herkese teşekkürler.

81833-test.dwg

cngzklc (26.11.2019 11:20 GMT)

87782

28.11.2019 06:25

cngzklc

Alıntı
proje86 :
Herkese merhaba,
3 boyutlu surface modelleri solide modele çevirebileceğim,
herhangi bir lisp mevcutmudur.
Teşekkürler.

Modify / 3D Operations / Convert to Solid komutu ile yapabilirsin.

87991

13.02.2020 11:27

kursadustundag

Selamlar . Şahin bey'in daha önce yazmış oldugu şu lisp içerisinde Nokta Adlandırmayı harfle de başlatabilmek için bir değişiklik yapılması mümkün mü acaba ? Vereceği dosya formatını ve sütun yerlerini istediğiniz şekilde değiştirebiliyorsunuz haritacılar için mükemmel bir çalışma .

Kod:

;|---------------------------------------------------------------------------|
| Nokta seçilmeye devam edildiği sürece, seçilen noktalara |
| istenilen sayıdan başlamak üzere numaralar verilir, ilgili noktanın |
| numarası, X, Y ve Z koordinatları belirlenen -.xls dosyasına yazılır. |
| Hazırlayan: M. Şahin Güvercin - www.autocadokulu.com 19.12.2011 |
----------------------------------------------------------------------------|;
(write-line "\nHazırlayan: M. Şahin Güvercin - www.autocadokulu.com")
(defun c:nxyz (/ *error* oDz oLp Nm Yy Dp Kd bL)
(command "_.undo" "group") (setvar "cmdecho" 0)
(defun *error* (er) (princ (strcat "\n" er)) (close Kd)
(setvar "dimzin" oDz) (setvar "Luprec" oLp) (command "_.undo" "e") (prin1))
(setq oDz (getvar "dimzin") oLp (getvar "Luprec"))
(if (not (tblsearch "layer" "nxyz-nno"))
(entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord") '(2 . "nxyz-nno") '(70 . 0)
'(62 . 5) '(6 . "Continuous"))))
(if (not (tblsearch "layer" "nxyz-nokta"))
(entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord") '(2 . "nxyz-nokta")
'(70 . 0) '(62 . 1) '(6 . "Continuous")))) (initget 7)
(setq Nm (getint "\n Başlangıç Numarası: ")
Yy (getreal "\n Yazı Yüksekliği: ")
Dp (getint "\n Ondalık Basamak Sayısı: ")
Kd (open (getfiled "Kayıt Dosyası" "" "xls" 1) "w"))
(setvar "dimzin" 0) (setvar "Luprec" Dp) (initget "Evet Hayır")
(setq bL (getkword "\nPoint isteniyor mu? [E/H]: ")) (princ "\n")
(write-line "Nm\tX\tY\tZ" Kd)
(while (setq nK (getpoint "\r... Yeni Nokta: "))
(write-line (strcat (itoa Nm) "\t" (rtos (car nK) 2 Dp) "\t"
(rtos (cadr nK) 2 Dp) "\t" (rtos (caddr nK) 2 Dp)) Kd)
(entmake (list '(0 . "TEXT") (cons 10 nK) (cons 40 Yy) (cons 1 (itoa Nm))
'(8 . "nxyz-nno")))
(if (= bL "Evet") (entmake (list '(0 . "POINT") (cons 10 nK)
'(8 . "nxyz-nokta")))) (setq Nm (1+ Nm)))
(close Kd) (setvar "dimzin" oDz) (setvar "Luprec" oLp)
(command "_.undo" "e") (prin1)
)

Ben yıllar önce KLS ve NXYZ lisplerini kullanarak işlerimi yürütüyordum . Ancak zaman içerisinde kullanmaya kullanmaya dosya arşivlerimizi de kaybettik . Şu an çok araştırmama rağmen baştan aşağı doğru çalışan bir KLS ve nokta adını "TT.1" vs şeklinde başlatabileceğim bir NXYZ bulamadım . Kendim yapabileceğimi düşünüp Visual Lisp Editörde bayagı karıştırdım ama bu konuda bir temelim olmadıgı için yapamadım yardımlarınızı bekliyorum . Şimdiden teşekkürler

88017

18.02.2020 06:32

sysf1453

Merhaba bir lisp isteğim olacak solid dikey ve yatay levhaları ucs z o noktasından nesneleri yatay bi şekilde yan yana siralayacak lisp lazim teşekkürler

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

sysf1453 (19.02.2020 20:21 GMT)

88057

12.03.2020 15:04

elaura

Arkadaşlar merhaba.

AutoCAD'de sırasıyla "Area » Add Area » Object" yaptığımda her tıkladığım objenin alanını ekleyerek toplam alanı yazıyor fakat her objeye tek tek tıklamam gerekiyor. Bunun yerine, aynı komutu tek tek seçtirmek yerine, pencere seçimi ile yapabileceğimiz bir lisp var mıdır?
Yok ise;"Surface" ve "Surface (Planar)" gibi objelerin alanlarını toplayabilecek bir lisp var mıdır?

88058

12.03.2020 16:13

Travaci

Kod:

(defun c:surfacearea (/ ee tt)
(if (setq ee 0 tt (ssget '((0 . "PLANESURFACE"))))
(progn
(setvar 'cmdecho 0)
(repeat (setq n (sslength tt))
(command "_.area" "o" (ssname tt (setq n (1- n))))
(setq ee (+ ee (getvar "area")))
) (princ (rtos ee 2 2))
)
) (princ)
)

88080

28.03.2020 17:31

umutdogan62

Merhaba arkadaşlar... Autocad üzerinde çizilmiş kare şeklinde yüzlerce adet kiriş mesnetlerim var. Benim istediğim tek komutla seçtiğim karelerin yani (line) çizgilerinin uçlarına nokta atması ve numaralandırması. Yardımlarınızı bekliyorum teşekkürler )

88233

26.06.2020 17:37

fmy0685

Herkese Selam
Oncelikle herkese kolay gelsin. Sizden bir ricam olucak asagia belirttigim sekilde .dat file dosyalari geliyor design tarafindan. Benim bu gelen datalari nokta dosyasina cevirmem gerekiyor. Excel den bir yolunu buldum fakat cok ugrastiriyor her data bu sekilde cunki.
Belki lisp degil makro lazim tam hakim olamadigim icin buraya actim konuyu. Simdiden tesekkurler ilgi ve alakaniz icin.

Sestion station:7500.00
Section number:403
Layer name:EARTHWORKS
-17.477,133.351 ; -16.868,133.699 ; -15.570,133.783 ; -8.125,134.267 ; -1.034,134.728 ; 1.065,134.605 ; 8.125,135.064 ; 15.257,135.527 ; 16.146,135.585 ; 20.003,133.381 ;

Sestion station:7480.00
Section number:402
Layer name:EARTHWORKS
-17.192,133.429 ; -16.868,133.614 ; -15.570,133.699 ; -8.125,134.183 ; -1.034,134.643 ; 1.065,134.520 ; 8.125,134.979 ; 15.257,135.442 ; 16.146,135.500 ; 19.910,133.349 ;

Sestion station:7460.00
Section number:401
Layer name:EARTHWORKS
-17.328,133.283 ; -16.868,133.545 ; -15.570,133.630 ; -8.125,134.114 ; -1.034,134.575 ; 1.065,134.451 ; 8.125,134.910 ; 15.257,135.374 ; 16.146,135.431 ; 19.892,133.291 ;

Sestion station:7440.00
Section number:400
Layer name:EARTHWORKS
-17.525,133.117 ; -16.868,133.493 ; -15.570,133.577 ; -8.125,134.061 ; -1.034,134.522 ; 1.065,134.398 ; 8.125,134.857 ; 15.257,135.321 ; 16.146,135.379 ; 20.344,132.980 ;

Sestion station:7431.89
Section number:399
Layer name:EARTHWORKS
-17.531,133.097 ; -16.868,133.476 ; -15.570,133.560 ; -8.125,134.044 ; -1.034,134.505 ; 1.065,134.381 ; 8.125,134.840 ; 15.257,135.304 ; 16.146,135.362 ; 20.312,132.981 ;

Sestion station:7420.00
Section number:398
Layer name:EARTHWORKS
-17.546,133.114 ; -16.849,133.512 ; -15.566,133.591 ; -8.125,134.047 ; -1.032,134.482 ; 1.067,134.365 ; 8.125,134.798 ; 15.259,135.235 ; 16.157,135.290 ; 20.171,132.996 ;

88290

24.07.2020 16:45

ferhat3858

ARKADAŞLAR MERHABA TOPLU PDF VE ÇIKTI ALMA LİSP İÇİN YARDIMCI OLURMUSUNUZ ÖRNEK DOSYAYI GÖNDERİ YORUM TEK DOYADA BİR KAÇ TANE ANTET VAR ONLARI TEK TEK SEÇİP ALMAKTAN SA HEPSİNİ SEÇİP İŞİMİ YAPMAK İSTİYORUM BU MÜMKÜN MÜ ACABA

88302

30.07.2020 17:37

ustatek

merhaba bome lispine veya konusuna ulaşamadım yardımcı olurmusunuz

88303

31.07.2020 07:50