01.06.2021 09:14

89011    

çok teşekkür ederim

08.06.2021 11:07

89029    

bildiğim kadarı ile find içinde zoom kullanılamıyor ve standart bir kısmı gösteriyor.
zoom için leveller olsa find/replace çok kullanışlı olurdu.

-------------------------------------
Çizim Okulu

09.06.2021 06:07

89031    

Alıntı

---

mrtelkt

---

Quickselect ile de yapabilirsiniz.

27.06.2021 08:34

89048    

Merhabalar, sitenizi uzun zamandır takip ediyorum ve bana birçok konuda çok faydalı oldu. sayenizde çok zaman tasarrufu yaptım. herkese çok teşekkür ediyorum. şöyle bir konıda yardıma ihtiyacım var, yardımcı olabilirseniz çok sevinirim. farklı boydaki poly lineların boyunu referans alarak aynı uzunlukta düz çizgi çizen lisp ihtiyacım var.
ilgilenen olursa çok müteşekkir olurum.

27.06.2021 10:47

89050    

Alıntı

---

duckula :

---

27.06.2021 16:32

89053    

Alıntı

---

alumina :

Alıntı

---

duckula :

---

Kod:

(defun c:qw (/ dc ns pt)
            (vl-load-com)
  (if (setq dc (vla-get-Activedocument
          (vlax-get-acad-object))
        ns (ssget ":S" '((0 . "lwpolyline"))))
    (progn (redraw (setq ns (ssname ns 0)) 3)
      (if (setq pt (getpoint "\nReferance point:"))
        (progn (vla-StartUndomark dc)
          (vlax-invoke (vla-get-ModelSpace dc)
            'AddLine pt (polar pt 0 (vla-get-Length
              (vlax-ename->vla-object ns))))
          (vla-EndUndomark dc)
        )
      )
      (redraw ns 4)
    )
  ) (prin1)
)

---

sayın alumina, bu lispi içinde değer yazılı olan text ve mtext dosyasından uzunluk ölçüsünü alacak şekilde yapmakta mümkün müdür acaba?

07.07.2021 08:20

89078    

merhaba;

autocad excel tablosunda işaretli çizgiler kopyalama sonrası kendiliğinden çıkıyor.
çözümü nedir acaba;
yardımlarınız için teşekkürler.

14.07.2021 09:53

89086    

14.09.2021 12:23

89160    

(defun c:ü ()
(setq mahal_no (entsel "\n mahal numarasını giriniz : "))
(setq en (car mahal_no))
(setq enlist (entget en))
(setq mahal_no (cdr (assoc 1 enlist)))

(setq mahal_adi (entsel "\n mahal adını giriniz : "))
(setq en (car mahal_adi))
(setq enlist (entget en))
(setq mahal_adi (cdr (assoc 1 enlist)))

(setq mahal_cephe (entsel "\n mahal cephesi giriniz : "))
(setq en (car mahal_cephe))
(setq enlist (entget en))
(setq mahal_cephe (cdr (assoc 1 enlist)))

(setq mahal_alan (entsel "\n mahal Polyline Seçiniz : "))
(setq en (car mahal_alan))
(command "area" "o" en)
(setq mahal_alan (/ (getvar "area") 10000))
(setq mahal_cevre (/ (getvar "perimeter") 100))

(setq metraj_dosya (strcat (getvar "dwgprefix") (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4 )) "-mahal_bilgileri.xls"))
(setq mahal_bilgileri (open metraj_dosya "a"))
(write-line
(strcat mahal_no
"\t"
mahal_adi
"\t"
mahal_cephe
"\t"
(rtos mahal_alan 1 2)
"\t"
(rtos mahal_cevre 1 2)
)
mahal_bilgileri
)
(close mahal_bilgileri)
)


Mimari projeden metraj çıkartmak için polyline ların alan ve çevrelerine ihtiyaç duyuyorum. Yukarıdaki lispte (rtos mahal_cevre 2 2) şeklinde yazınca excel dosyasına bzaı hücrelere çevreyi tarih olarak atıyor. Bunu düzeltmek mümkünmü. Excel dosyasına sayıları noktalı değilde virgüllü olarak gönderebilirmiyiz. Yardımlarınız için şimdiden teşekkürler. İyi çalışmalar.

14.09.2021 13:07

89162    

Ehya çok teşekkür ederim.