Çoklu Pah Lispi | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 626, Üye: 7
ahmet17761, allperto, ceyhun60, ecesraca, ehya, mttlp, rasimgunduz

Detaylar »

Forumlar > AutoLISP > Çoklu Pah Lispi

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
11.02.2016 08:46 82967	jakuza99 Kıdemli Girişimci 44 ileti tasarımcı istanbul
çoklu pah lispi elinde olan varmıdır. jakuza99 (16.02.2016 08:29 GMT)

16.02.2016 11:42 83004	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
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 83023	jakuza99 Kıdemli Girişimci 44 ileti tasarımcı istanbul
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 83025	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Sen line ları polyline a çeviremiyormusun :O_o

17.02.2016 10:32 83030	alumina Editör 769 ileti Insaat Muhendisi Istanbul
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 83031	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
İ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 83036	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Uc uca kesisen line leri polyline olarak birlestirip pah vermek istiyordu.

17.02.2016 12:23 83038	jakuza99 Kıdemli Girişimci 44 ileti tasarımcı istanbul
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.