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ẽ Center Line

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ẽ Center Line   Thu Oct 20, 2011 9:38 am



Tên hàm:
Vẽ Center Line
Chức năng:
- Vẽ Center Line (WCS) vào các đối tượng (hình dạng bất kỳ)


Code:
[font=Courier New](defun c:cl(/ eLine ll ur pl pr pt pb ex ss)
(defun eLine(p1 p2)(entmakex (list (cons 0 "LINE")(cons 62 3)(cons 10 p1)(cons 11 p2)(cons 6 "CENTER"))))
(while (setq ss (ssget))
(vlax-for e (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
(vla-getboundingbox e 'll 'ur)
(setq ll (vlax-safearray->list ll)
ur (vlax-safearray->list ur)
ex (/ (abs (-(car ll)(car ur))) 6) ;Extend outside Rectangle
pl (list (- (car ll) ex) (/ (+ (cadr ll)(cadr ur)) 2))
pr (list (+ (car ur) ex) (cadr pl))
pt (list (/ (+ (car ll)(car ur)) 2) (+ (cadr ur) ex))
pb (list (car pt) (- (cadr ll) ex))
)
(eLine pl pr)
(eLine pt pb)
)
)
)[/font]


Tác giả : Ketxu
Về Đầu Trang Go down
http://xaydungit.forumvi.com
 
[Lisp]Vẽ Center Line
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

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