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.
Đă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
Or
Top posters
Admin
tvgs
HotroAcad
ksphanle
engineer0405
quangthinh01
sumakho
quoctoa
M@trixs
tvgtyb08
Latest topics
»
hotroacadv2.09
Mon 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
Mon Oct 06, 2014 8:59 am by tamky
»
Bộ cài nova full trên Autocad 2005 và win7
Thu Apr 17, 2014 4:29 pm by frowin2013
»
Chuyên nhận thi công tiểu cảnh sân vườn
Sun 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
Mon Mar 24, 2014 5:49 pm by nha.ksxd
»
Ứng dụng HotroAcad hỗ trợ kết cấu xây dựng
Fri Mar 21, 2014 1:43 pm by
HotroAcad
»
Phần mềm soft_xdit thay thế phần mềm hotrocad
Wed Mar 12, 2014 2:31 pm by
HotroAcad
»
lisp Thước lỗ ban
Fri Dec 06, 2013 4:06 pm by leminhlapvl
»
MDW - Phần mềm tính toán móng đơn
Thu 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
Mon
Tue
Wed
Thu
Fri
Sat
Sun
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Calendar
Tìm kiếm
Inside
G
o
o
g
l
e
Display results as :
Posts
Topics
Advanced Search
feeds
::
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]
[Lisp]Vẽ Center Line
Tác giả
Thông điệp
Admin
Thượng úy
Tổng số bài gửi
:
103
Điểm
:
291
Reputation
:
34
Join date
:
15/01/2011
Tiê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
Like
Dislike
[Lisp]Vẽ Center Line
Trang
1
trong tổng số
1
trang
Similar topics
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]
::
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
:
Chọn Diễn Đàn
|
|--Nội quy diễn đàn
|--Góp ý - Giải đáp
|--Thông báo
|--Box dành cho ban quản trị
|--Phần mềm xây dựng - Giao thông - Hạ tầng kỹ thuật
| |--Phần mềm HotroAcad
| |--Phần mềm Xây dựng dân dụng & công nghiệp
| |--Phần mềm Giao thông - Hạ tầng kỹ thuật
| |--Phần mềm khác
| |--Chuyên về lisp [Sưu tầm]
| |--Thảo luận Phần mềm
|
|--Softwares hỗ trợ
| |--Softwares ngoại
| |--Softwares Việt
| |--Softwares kế toán tài chính
|
|--Sách - Tài liệu chuyên ngành
| |--Thông báo giá - Các tài liệu khác
| |--Sách chuyên nghành
| |--Phong thủy xây dựng
|
|--Giải trí - Chém gió - Quảng cáo
|--Giải trí
|--Giao lưu - Chém gió
|--Quảng cáo
|--Tâm sự nghề