IndexCalendarGalleryTrợ giúpThành viênĐăng kýĐăng Nhập
Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu
Top posters
Admin
 
tvgs
 
HotroAcad
 
ksphanle
 
engineer0405
 
quangthinh01
 
sumakho
 
quoctoa
 
M@trixs
 
tvgtyb08
 
Latest topics
Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm

Không

Số người truy cập cùng lúc nhiều nhất là 9 người, vào ngày Sun Aug 28, 2016 7:30 am
December 2016
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
262728293031 
CalendarCalendar
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search

Share | 
 

 [Lisp]­Vẽ mũi tên 2 chiều

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Thượng úy
Thượng úy


Tổng số bài gửi : 103
Điểm : 291
Reputation : 34
Join date : 15/01/2011

Bài gửiTiêu đề: [Lisp]­Vẽ mũi tên 2 chiều   Thu Oct 20, 2011 9:33 am



Code:
[/color][color=blue][font=Courier New](defun c:sline (/ loop p1 p2)

(grtext -1 "Free from Cadviet.com @Ketxu")

(if (not asize) (setq asize 1))

(if (not PThk) (setq PThk 0.01))

(defun GETR (val msg / tm)

(setq tm (getreal (strcat msg " <" (rtos val 2 4) ">: ")))

(cond ((= (type tm) 'REAL) (eval tm))

((= tm nil) (eval val))

(t (princ "\007 *error* Nh\U+1EADp sai lo\U+1EA1i d\U+1EEF li\U+1EC7u") (eval val)) ) )

(defun loop ()

(cond ((setq p2 (getpoint p1 "\n\U+0110i\U+1EC3m ti\U+1EBFp theo : ")) (command p2)

(setq p0 p1) (setq p1 p2) (loop))

( t (command "u" (polar p1 (angle p1 p0) asize)

"w" (/ asize 3) 0.0 p1 ""))))

(setq asize (getr asize "\nK\U+00EDch th\U+01B0\U+1EDBc m\U+0169i t\U+00EAn :"))

(setq PThk (getr PThk "\n B\U+1EC1 r\U+1ED9ng PLine :"))

(setq p1 (getpoint "\n\U+0110i\U+1EC3m b\U+1EAFt \U+0111\U+1EA7u : "))

(command "pline" p1 "w" 0.0 0.0)

(setq p2 (getpoint p1 "\n\U+0110i\U+1EC3m ti\U+1EBFp theo : "))

(command "w" 0.0 (/ asize 3) (polar p1 (angle p1 p2) asize)

"w" PThk PThk p2)

(setq p1 p2)

(loop)

(eval "Done")

)[/font]


Tác giả : Ketxu
Về Đầu Trang Go down
http://xaydungit.forumvi.com
 
[Lisp]­Vẽ mũi tên 2 chiều
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [12122010][news]Những điều mờ ám đằng sau chiến thắng của SNSD tại GOLDEN DISK AWARDS 2011
» [05032011][news] Lee Teuk đã tặng chiếc áo của anh cho một người bà
» [14022011][Old Info]2NE1, miss A, SNSD - girlgroup nào chiến thắng trên chương trình âm nhạc nhanh nhất?
» [01042011][News]Cách phân loại các thành viên SNSD của Nhật Bản
» [13032011][News]Na móm và Goo Hara có những cảm nhận khác nhau khi mặc cùng một chiếc áo

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Phần mềm xây dựng - Giao thông - Hạ tầng kỹ thuật :: Chuyên về lisp [Sưu tầm]-
Chuyển đến