|
10.08.2016 16:44
boldpilot70
|
|
seçilen iki çizgi arasina eksen çizgisi atan makro lazım
boldpilot70 (10.08.2016 17:51 GMT)
|
|
11.08.2016 05:10
boldpilot70
|
|
demek istedigim biraz kısa olmus fakat tam olarak
secilen iki cizginin tam oryasina secilen cizgilere paralel eksen cizgisi atan lisp.
boldpilot70 (11.08.2016 14:36 GMT)
|
|
11.08.2016 19:17
boldpilot70
|
|
liap olmasada olur mechanical daki gibi iki cizgi arasina ekswn atma yontemi varmidir
|
|
12.08.2016 16:37
boldpilot70
|
|
en azindan su sekilde yapilabilir diyecek kadar bilgisi olan yok mu
|
|
13.08.2016 12:19
map23
|
|
en azından iki çizgi arasını ölç ikiye böl ve herhangi bir tane çizgiyi böldüğün sonuç kadar ofsetle eksen olmasını istediğin tarafa..
Kolay gelsin
|
|
13.08.2016 12:44
 ehya
|
Kod:
(defun c:c1 ()
(if (setq ent1 (entsel "\n1. çizgi:"))
(progn
(if (setq ent2 (entsel "\n2. çizgi:"))
(progn
(setq e1_10 (cdr (assoc 10 (entget (car ent1))))
e1_11 (cdr (assoc 11 (entget (car ent1)))))
(setq e2_10 (cdr (assoc 10 (entget (car ent2))))
e2_11 (cdr (assoc 11 (entget (car ent2)))))
(if (< (distance e1_10 (cadr ent1))(distance e1_11 (cadr ent1)))
(setq e1_10 e1_10 e1_11 e1_11)
(setq e1_10 e1_11 e1_11 e1_10))
(if (< (distance e2_10 (cadr ent2))(distance e2_11 (cadr ent2)))
(setq e2_10 e2_10 e2_11 e2_11)
(setq e2_10 e2_11 e2_11 e2_10))
(setq ort1 (polar e1_10 (angle e1_10 e2_10) (/ (distance e1_10 e2_10) 2.0))
ort2 (polar e1_11 (angle e1_11 e2_11) (/ (distance e1_11 e2_11) 2.0)))
(command-s "_.line" ort1 ort2 "")))))(princ))
|
|
13.08.2016 17:24
ertu33
|
|
autocad de ekranda manuel olrak düzeltilmiş enkesitlerin pl çizgileri .txt formatına dönüştüren bir lsp var mı acaba.. ( eksene mesafe ve kotların AKTARILMASI.)
|
|
13.08.2016 19:20
boldpilot70
|
|
eline saglik ehya cok guzel olmus fakat cizgi tipi center ve cizgi boyu sectigimiz 1 ve 2. cizgiden 10 mm yukaridan 10 mm asagidan uzun olsa cok guzel olurdu acaba lispi modifiye edebilirmisiniz.
yani kesit alınmıs bir delige eksen cizgisi atmak icin kullanacagim
|
|
13.08.2016 19:48
 Travaci
|
|
once
seçilen iki çizgi arasina eksen çizgisi atan
sonra
cizgi tipi center ve cizgi boyu sectigimiz 1 ve 2. cizgiden 10 mm yukaridan 10 mm asagidan uzun olsa
daha sonra
çizginin rengi kırmızı olsa
daha sonra
10 mm lik uzunluğu sorsa
...
|
|
13.08.2016 19:51
Travaci
|
ertu33
Böyle birşey mi ?
Linkleri görebilmek için ÜYE olmalısınız.
|
|
14.08.2016 15:21
ehya
|
|
Modifiye dediğiniz ne ise o dediğinizden yapamam...
|
|
14.08.2016 20:20
boldpilot70
|
Alıntı
ehya :
Modifiye dediğiniz ne ise o dediğinizden yapamam...
demek istedigim lisp guzel calisiyor ihtiyaci tam anlami ile karsilayabilmesi icin yukarida yazdigim
iki ozellik te olursa tam anlami ile on numara olmus olur
cizgi tipi center renk kirmizi secilen cizgilerden 10 mm asagida ve yukarida olsa tamamen stabil calisan bir lisp haline gelmis olur ve herkes yararlanabilir bu lisp cunku cok kullanilan bir is icin olmus olur
|
|
15.08.2016 07:31
ehya
|
|
Herkes için kullanışlı bir lisp için bir kerede istekte bulunur ve yazılır. Kod yazıldıktan sonra, şunu da şöyle yapalım, bunu da böyle yapalım der isek, bu işin hiç ama hiç zevki kalmaz.
|
boldpilot70
|
|
anladım dogru soyluyorsunuz
yinede bu sekilde lispi duzenlerseniz sevinirim...
|
