Cầu đường Online
Cảm ơn bạn đã ghé thăm diễn đàn! Bạn chưa đăng kí để trở thành những Members!
Xem phim 3D - http://3dsmartcoffee.com.vn
Đăng Nhập

Quên mật khẩu

Latest topics
» Đăng tải hồ sơ năng lực xây dựng
Thu Jun 23, 2016 11:10 am by dangtaixd

» 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
Thu Apr 07, 2016 10:46 am by thuanit64

» Chăm sóc bảo dưỡng bảo trì ôtô đúng cách
Thu Apr 07, 2016 10:46 am by thuanit64

» Khi nào cần thay nhớt động cơ xe hơi - ôtô
Thu Apr 07, 2016 10:45 am by thuanit64

» Tại sao phải chăm sóc thay dầu hộp số ô tô định kỳ
Thu Apr 07, 2016 10:45 am by thuanit64

» Mở lớp thẩm định giá tại Vũng Tàu, Khánh Hòa ngày 22/4
Mon Mar 28, 2016 1:50 pm by viengiaoduc

» Cơ hội có chứng chỉ hành nghề giám sát, thiết kế, khảo sát không phải thi sát hạch
Mon Mar 14, 2016 3:08 pm by viengiaoduc

» Học chứng chỉ thẩm định giá ở đâu tốt nhất
Tue Mar 08, 2016 9:26 am by viengiaoduc

» Học chứng chỉ an toàn leo cao, thoát hiểm nhà cao tầng, làm việc trong không gian kín
Wed Feb 24, 2016 2:59 pm by viengiaoduc

» Địa điểm học nhanh chứng chỉ giám sát thi công công nghệ thông tin
Wed Feb 17, 2016 3:05 pm by viengiaoduc

» Học chứng chỉ giám sát thi công công nghệ thông tin giá rẻ
Mon Jan 25, 2016 4:09 pm by viengiaoduc

» Hỗ trợ xin cấp nhanh chứng chỉ hành nghề tu bổ di tích
Tue Jan 12, 2016 4:39 pm by viengiaoduc

» Địa điểm học chứng chỉ lập và quản lý dự án công nghệ thông tin uy tín nhất
Wed Dec 30, 2015 10:06 am by viengiaoduc

» Tại sao cần công khai năng lực nhà thầu lên web bộ XD/0967343258
Wed Dec 16, 2015 1:59 pm by viengiaoduc

» Địa điểm học chứng chỉ bảo quản, tu bổ di tích nhanh nhất
Sat Dec 05, 2015 9:55 am by viengiaoduc

Statistics
Diễn Đàn hiện có 6502 thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký: vandung

Tổng số bài viết đã gửi vào diễn đàn là 1657 in 410 subjects
Vận tải Xây dựng
Số lượt truy cập
0982.767.231

Lisp tạo khung viewport bằng cách chọn khung bên Model

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

NewPost Lisp tạo khung viewport bằng cách chọn khung bên Model

Bài gửi by Admin on 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á Very Happy)
Code:

;;; tạo khung viewport
;;;write by Philipdn - http://nguyentaudn.findtalk.biz
(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


Chung tay xây dựng nền tảng vững chắc - [You must be registered and logged in to see this link.]
Sàn giao dịch bất động sản - Cafe xem phim 3D Đà Nẵng

Admin
Admin

Posts : 362
Points : 663
Reputation : 53
Join date : 17/08/2010
Age : 32
Đến từ : Đà Nẵng

http://nguyentaudn.findtalk.biz

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết