* E Posta Adresiniz:
* Kodu Girin:

İleti Yazar
31.10.2018 17:21
86765    
alumina

[70] Editör

Online Durumu

651 ileti
Insaat Muhendisi
Istanbul

Alıntı
sadikozer :

Kod:

(defun c:lck (/ dc) (vl-load-com)
  (setq dc (vla-get-ActiveDocument
    (vlax-get-acad-object)))
  (vla-StartUndomark dc)
  (vlax-for m (vla-get-Layers dc)
    (vla-put-Lock m (if (= (vla-get-Color m) 12)
      :vlax-true :vlax-false))) (vla-EndUndomark dc)
  (prin1)
)

31.10.2018 17:29
86767    
sadikozer

[2] Girişimci

Online Durumu

12 ileti

Alıntı
alumina :
Alıntı
sadikozer :

Kod:

(defun c:lck (/ dc) (vl-load-com)
  (setq dc (vla-get-ActiveDocument
    (vlax-get-acad-object)))
  (vla-StartUndomark dc)
  (vlax-for m (vla-get-Layers dc)
    (vla-put-Lock m (if (= (vla-get-Color m) 12)
      :vlax-true :vlax-false))) (vla-EndUndomark dc)
  (prin1)
)




teşekkürler ama bu lisp sadece tüm kilitleri açıyor,benim istediğim ise
tüm kilitleri açıp sadece color 12 renklerini kilitlesin

31.10.2018 17:36
86769    
alumina

[70] Editör

Online Durumu

651 ileti
Insaat Muhendisi
Istanbul

Alıntı
sadikozer :

Oyle yapiyor zaten.

03.11.2018 16:27
86790    
sadikozer

[2] Girişimci

Online Durumu

12 ileti

Alıntı
alumina :
Alıntı
sadikozer :

Oyle yapiyor zaten.



eyvallah çok saolun şimdi oldu

03.11.2018 17:26
86791    
alumina

[70] Editör

Online Durumu

651 ileti
Insaat Muhendisi
Istanbul

Alıntı
sadikozer :

Bir seyi degistirmedik. Nasil oldu

06.11.2018 12:48
86800    
doygun76

[2] Girişimci

Online Durumu

2 ileti
harita teknikeri
istanbul

Merhaba bir lisp'e ihtiyacım var. Autocad de Rakam Text (X,Y,Z'si olan ) sıra numarası ile gitmekte, sıra numarasına göre bu rakam olan text leri birleştirmek istiyorum. Bazı yerlerde sıra numarası atlamakta mesala 85 ten 90'a (86 ,87.88, 89 ara sayılar yok) veya Autocada e atılan noktaları ilk atılan noktadan sırayı takip edecek şekilde çizgi (X,Y,Z ye göre line) çizecek lisp te olabilir ; Kısaca Gazetelerde Bulmacalarda rakamlar olur birleştirip karşımıza çıkan şekilleri bulurduk bunu gibi... Yardımlarınız için teşekkür ederim.

06.11.2018 15:50
86802    
alumina

[70] Editör

Online Durumu

651 ileti
Insaat Muhendisi
Istanbul

Alıntı
doygun76 :

Kod:

(defun c:lc (/ dc sl z n ls k) (vl-load-com)
  (if (setq dc (vla-get-ActiveDocument
        (vlax-get-acad-object))
          sl (ssget '((0 . "text"))))
    (progn
      (repeat (setq z (sslength sl))
        (setq z (1- z) n (entget (ssname sl z))
          ls (cons (list (atof (cdr (assoc 1 n)))
            (cdr (assoc 10 n))) ls)))
      (setq ls (vl-sort ls '(lambda(a b)
        (< (car a) (car b)))) k -1)
      (vla-StartUndomark dc)
      (repeat (1- (length ls))
        (vlax-invoke (vla-get-ModelSpace dc)
          'AddLine (cadr (nth (setq k (1+ k)) ls))
            (cadr (nth (1+ k) ls))))
      (vla-EndUndomark dc)
    )
  ) (prin1)
)

06.11.2018 16:04
86803    
doygun76

[2] Girişimci

Online Durumu

2 ileti
harita teknikeri
istanbul

Alıntı

Teşekkür ederim ...


alumina (06.11.2018 16:19 GMT)

Ö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] > 86 <
Copyright © 2004-2018 | Tüm Hakları Saklıdır | 1075 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam