23.08.2019 15:29    

derogatory
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    

Travaci
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    

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

> 1 <
Copyright © 2004-2022 SQL: 1.005 saniye - Sorgu: 49 - Ortalama: 0.02051 saniye