Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.



 
Trang ChínhGalleryLatest imagesĐă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
[Lisp]Vẽ Center Line Vote_lcap[Lisp]Vẽ Center Line Voting_bar[Lisp]Vẽ Center Line Vote_rcap 
tvgs
[Lisp]Vẽ Center Line Vote_lcap[Lisp]Vẽ Center Line Voting_bar[Lisp]Vẽ Center Line Vote_rcap 
HotroAcad
[Lisp]Vẽ Center Line Vote_lcap[Lisp]Vẽ Center Line Voting_bar[Lisp]Vẽ Center Line Vote_rcap 
ksphanle
[Lisp]Vẽ Center Line Vote_lcap[Lisp]Vẽ Center Line Voting_bar[Lisp]Vẽ Center Line Vote_rcap 
engineer0405
[Lisp]Vẽ Center Line Vote_lcap[Lisp]Vẽ Center Line Voting_bar[Lisp]Vẽ Center Line Vote_rcap 
quangthinh01
[Lisp]Vẽ Center Line Vote_lcap[Lisp]Vẽ Center Line Voting_bar[Lisp]Vẽ Center Line Vote_rcap 
sumakho
[Lisp]Vẽ Center Line Vote_lcap[Lisp]Vẽ Center Line Voting_bar[Lisp]Vẽ Center Line Vote_rcap 
quoctoa
[Lisp]Vẽ Center Line Vote_lcap[Lisp]Vẽ Center Line Voting_bar[Lisp]Vẽ Center Line Vote_rcap 
M@trixs
[Lisp]Vẽ Center Line Vote_lcap[Lisp]Vẽ Center Line Voting_bar[Lisp]Vẽ Center Line Vote_rcap 
tvgtyb08
[Lisp]Vẽ Center Line Vote_lcap[Lisp]Vẽ Center Line Voting_bar[Lisp]Vẽ Center Line Vote_rcap 
Latest topics
» hotroacadv2.09
[Lisp]Vẽ Center Line Icon_minitimeMon Mar 30, 2015 11:14 pm by ninh621

» Phần mềm san nền + Phân lớp nền đường + Các ứng dụng
[Lisp]Vẽ Center Line Icon_minitimeMon Oct 06, 2014 8:59 am by tamky

» Bộ cài nova full trên Autocad 2005 và win7
[Lisp]Vẽ Center Line Icon_minitimeThu Apr 17, 2014 4:29 pm by frowin2013

» Chuyên nhận thi công tiểu cảnh sân vườn
[Lisp]Vẽ Center Line Icon_minitimeSun Apr 13, 2014 2:45 pm by stingdau

» Phần mềm tổ hợp nội lực từ SAP, ETABS,TK cấu kiện theo TCVN DSAP 2.x
[Lisp]Vẽ Center Line Icon_minitimeMon Mar 24, 2014 5:49 pm by nha.ksxd

» Ứng dụng HotroAcad hỗ trợ kết cấu xây dựng
[Lisp]Vẽ Center Line Icon_minitimeFri Mar 21, 2014 1:43 pm by HotroAcad

» Phần mềm soft_xdit thay thế phần mềm hotrocad
[Lisp]Vẽ Center Line Icon_minitimeWed Mar 12, 2014 2:31 pm by HotroAcad

» lisp Thước lỗ ban
[Lisp]Vẽ Center Line Icon_minitimeFri Dec 06, 2013 4:06 pm by leminhlapvl

»  MDW - Phần mềm tính toán móng đơn
[Lisp]Vẽ Center Line Icon_minitimeThu Dec 05, 2013 10:15 am by ngominhha

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à 10 người, vào ngày Mon Nov 07, 2022 3:26 pm
March 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031
CalendarCalendar
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search

 

 [Lisp]Vẽ Center Line

Go down 
Tác giảThông điệp
Admin
Thượng úy
Thượng úy
Admin


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

[Lisp]Vẽ Center Line Empty
Bài gửiTiêu đề: [Lisp]Vẽ Center Line   [Lisp]Vẽ Center Line Icon_minitimeThu Oct 20, 2011 9:38 am

[Lisp]Vẽ Center Line CenterLine

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ỳ)
[Lisp]Vẽ Center Line 364988687 [Lisp]Vẽ Center Line 364988687 [Lisp]Vẽ Center Line 364988687 [Lisp]Vẽ Center Line 364988687

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
https://xaydungit.forumvi.com
 
[Lisp]Vẽ Center Line
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [Sưu tầm]Lisp căn lề chữ
» [Lisp]Copy tăng dần
» [Lisp]­Vẽ mũi tên 2 chiều
» lisp Thước lỗ ban
» Lisp copy cao độ - đánh cos

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