Trang Chính
Tìm kiếm
Đăng ký
Đăng NhậpSimilar topics
Đăng Nhập
Latest topics
Statistics
Diễn Đàn hiện có 6562 thành viênChúng ta cùng chào mừng thành viên mới đăng ký: vanngubkdn
Tổng số bài viết đã gửi vào diễn đàn là 1668 in 419 subjects
Vận tải Xây dựng
Social bookmarking
Liên kết Website
- Cầu đường Online
- Nhà đất Online
- Bất động sản
- Công ty Cổ phần Tư vấn Xây dựng 533
- Việt Lisp
- Bộ Giao thông vận tải
- Bộ xây dựng
- Diễn đàn CADViet
- Diễn đàn giao thông ZiZu
- Khoa XD Cầu đường ĐHBK Đà Nẵng
- Học tiếng Anh Online
Bookmark and share the address of Cầu đường Online on your social bookmarking website
Số lượt truy cập
Lisp tạo khung viewport bằng cách chọn khung bên Model
Trang 1 trong tổng số 1 trang
Lisp tạo khung viewport bằng cách chọn khung bên Model
by Admin Wed Jan 23, 2013 10:36 am
Lisp này cho phép người dùng chọn các khung có sẵn bên Model để tạo khung viewport bên Layout với tỷ lệ 1:1 (còn tỷ lệ khác thì tự sửa code chút nhá 
)
)- Code:
;;; tạo khung viewport
;;;write by Philipdn - http://nguyentaudn.forumvi.com
(defun c:mlt (/ ss ssn ent ssl c p1 p2 p11 p22 lst)
(vl-load-com)
(vl-cmdf "undo" "be")
(setvar "tilemode" 1)
(setq ss (ssget (list (cons 0 "lwpolyline") (cons 90 4))))
(setq c 0
lst (list))
(repeat (setq ssl (sslength ss))
(setq ssn (ssname ss c)
ent (entget ssn))
(setq p1 (vlax-curve-getPointAtParam ssn 0)
p2 (vlax-curve-getPointAtParam ssn 2))
(setq lst (append (list (list p1 p2)) lst))
(setq c (1+ c))
);repeat
;;; (setq lst (reverse lst))
(setvar "tilemode" 0)
(vl-cmdf "_.erase" (ssget "x") "")
(setq c 0)
(repeat (length lst)
(setq p1 (nth c lst))
(setq p2 (nth 1 p1)
p1 (nth 0 p1))
(setq p11 (list (+ 0.0 (* c 420.0)) 0.0))
(setq p22 (polar p11 (angle p1 p2) (distance p1 p2)))
(vl-cmdf "_.MVIEW" p11 p22)
(vl-cmdf "_.MSPACE")
(vl-cmdf "_zoom" p1 p2)
(vl-cmdf "_.PSPACE")
(setq c (1+ c))
);repeat
(princ)
);defun
Admin- Admin
- Posts : 362
Points : 665
Reputation : 55
Join date : 17/08/2010
Age : 40
Đến từ : Đà Nẵng -
Similar topics» {Nhờ chỉnh sửa} Lisp xuất bảng kê tọa độ và khoảng cách
» Cách load lisp mà ko cần AP
» Lisp vẽ đường tự nhiên!
» Cách load lisp mà ko cần AP
» Lisp vẽ đường tự nhiên!
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 bản đồ địa hình TOPO - San nền HS
» Khai giảng lớp bảo quản, tu bổ phục hồi di tích tại Hà Nội
» Học chứng chỉ quản lý, vận hành nhà chung cư ở đâu tốt nhất
» Đối tượng thi sát hạch chứng chỉ hành nghề giám sát, thiết kế hạng 1
» Địa điểm làm chứng chỉ năng lực xây dựng nhanh nhất
» Học nhanh chứng chỉ quản trị sản xuất tại Đà Nẵng ngày 14-7
» Địa điểm học nhanh chứng chỉ an toàn hóa chất theo TT 36
» Đăng tải thông tin năng lực nhà thầu giá rẻ
» Tại sao cần làm chứng chỉ năng lực xây dựng?
» Lịch thi sát hạch chứng chỉ hành nghề giám sát, khảo sát, thiết kế tháng 6
» Đăng tải hồ sơ năng lực xây dựng
» Thói quen thay dầu máy xe ô tô không đúng cách là nguyên nhân khiến động cơ ôtô nhanh xuống cấp
» Chăm sóc bảo dưỡng bảo trì ôtô đúng cách
» Khi nào cần thay nhớt động cơ xe hơi - ôtô