* E Posta Adresiniz:
* Kodu Girin:

İleti Yazar
23.08.2019 15:29
87546    
derogatory

[2] Girişimci

Online Durumu

4 ileti

aynı anda seçilen birkaç çizginin başlangıç ve bitiş koordinatlarını bulmak için nasıl bir autolisp kodu kullanmalıyım ?

23.08.2019 19:19
87551    
Travaci

[70] Editör

Online Durumu

2195 ileti
Teknik Ressam
Konstantinopol

Böyle birşey işte

Kod:

(defun c:cor (/ ss n en)
  (if (setq ss (ssget (list (cons 0 "line"))))
    (progn
      (setvar "cmdecho" 0) (command "_.undo" "be")
      (repeat (setq n (sslength ss))
        (setq en (entget (ssname ss (setq n (1- n)))))
        (command "_.text" (cdr (assoc 10 en)) "" "" (cdr (assoc 10 en))
                 "_.text" (cdr (assoc 11 en)) "" "" (cdr (assoc 11 en)))
      ) (command "_.undo" "end")
    )
  ) (princ)
)

09.09.2019 23:57
87594    
derogatory

[2] Girişimci

Online Durumu

4 ileti

Hocam geç oldu kusura bakma çok teşekkür ederim...

> 1 <
Copyright © 2004-2019 | Tüm Hakları Saklıdır | 1977 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim