AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Çoklu Pah Lispi
11.02.2016 08:46    
jakuza99
çoklu pah lispi elinde olan varmıdır.

jakuza99 (16.02.2016 08:29 GMT)

16.02.2016 11:42    
Travaci
Nesneler kapalı plyline olmalıdır, pah için chamfer komutunda en son kullanılan değer geçerlidir.
Kod:

(defun c:chf (/ ss)
  (if (setq ss (ssget (list (cons 0 "lwpolyline") (cons 70 0))))
    (progn
      (setvar 'cmdecho 0) (command "_.undo" "be")
      (repeat (setq n (sslength ss))
        (command "_.chamfer" "p" (ssname ss (setq n (1- n)))))
      (command "_undo" "e") (setvar 'cmdecho 1)
    )
  ) (princ)
)
17.02.2016 06:08    
jakuza99
hem line hemde polyline çizgileri seçecek gibi ayarlayabilirmisiniz.
birde bu lispte değeri sorsun ben manuel gireceğim bu şekilde yapabilirmisiniz.


alumina aşağıdaki kodları yazmıştı fakat çalışmıyor yazdığı lisp

(defun c:ph (/ p1 p2 ss pa pb)
(if (setq p1 (getdist "\nFirst dist:"))
(if (setq p2 (getdist "\nSecond dist:"))
(if (setq ss (ssget '((0 . "*line"))))
(progn
(setvar "cmdecho" 0)
(setq pa (getvar 'chamfera) pb (getvar 'chamferb))
(setvar 'chamfera p1) (setvar 'chamferb p2)
(command "._pedit" (ssname ss 0) "" "j" ss "" """._chamfer" "p" (entlast))
(setvar 'chamfera pa) (setvar 'chamferb pb)
(princ)
)

17.02.2016 06:43    
Travaci
Sen line ları polyline a çeviremiyormusun :O_o

17.02.2016 10:32    
alumina
Raskoln;
"Alumina aşağıdaki kodları yazmıştı fakat çalışmıyor yazdığı lisp" diyorsun ya, Alumina ne zaman burda calismayan bir kod paylasti? Linkteki videoyu izle lutfen.

https://cizimokulu.com/datas/users/333661-untitled.rar

Kod:

(defun c:ph (/ p1 p2 ss pa pb)
  (if (setq p1 (getdist "\nFirst dist:"))
    (if (setq p2 (getdist "\nSecond dist:"))
      (if (setq ss (ssget '((0 . "*line"))))
        (progn
          (setvar "cmdecho" 0)
          (setq pa (getvar 'chamfera) pb (getvar 'chamferb))
          (setvar 'chamfera p1) (setvar 'chamferb p2)
          (command "._pedit" (ssname ss 0) "" "j" ss "" ""
                   "._chamfer" "p" (entlast))
          (setvar 'chamfera pa) (setvar 'chamferb pb)
        )
      )
    )
  ) (princ)
)
17.02.2016 11:17    
Travaci
İstediği gibi çalışmıyor. İz düşümü kesişen line ları kapatıcak, polyline yapıcak, pah vericek ... :D
Dimi raski doğru anlamışmıyım ?

17.02.2016 12:09    
alumina
Uc uca kesisen line leri polyline olarak birlestirip pah vermek istiyordu.

17.02.2016 12:23    
jakuza99
yok ben sadece alumina nın yazdığı lispi çalıştıramadım hala çalışmadı lispi ekledim kontrol edermisiniz.doğrumudur.
yada siz kendiniz bu kodları lisp dosyasına çevirip eklermisiniz.

381688-pah.rar

> 1 <
Bu konu kilitli, yeni ileti kabul edilmiyor.
Copyright © 2004-2022 SQL: 0.955 saniye - Sorgu: 62 - Ortalama: 0.01541 saniye