DIỄN ĐÀN TƯ VẤN XÂY DỰNG THÀNH GIA

Hiện tại bạn đang là khách viếng thăm của Diễn Đàn Tư Vấn Xây Dựng Thành Gia – Nơi Hội Tụ Nhân Tài Xây Dựng. Nếu chưa có tài khoản, xin mời bạn Click chuột vào nút Đăng Ký bên dưới hoặc Click vào nút Đăng Nhập nếu bạn đã là thành viên chính thức để hưởng trọn quyền lợi của Diễn Đàn dành cho bạn. Mọi thắc mắc liên hệ với Ban Quản Trị qua địa chỉ: Ctythanhgia@gmail.com
Cảm ơn bạn đã ghé thăm Diễn Đàn của chúng tôi!
Lưu ý: Bạn chỉ được phép sử dụng Tiếng Việt có dấu hoặc Tiếng Anh trên Diễn Đàn và chỉ có thành viên mới được quyền viết bài, nhận xét trên Diễn Đàn!
Chúc bạn thu được nhiều kiến thức từ việc tham gia Diễn Đàn của chúng ta!
DIỄN ĐÀN TƯ VẤN XÂY DỰNG THÀNH GIA

Chia sẻ tài nguyên chuyên ngành xây dựng

Thông tin Admin


Quản trị: Nguyễn Anh Tuấn
Email: Ctythanhgia@gmail.com
Ctythanhgia@yahoo.com
Điện thoại: 0914.524.611

Latest topics

Lịch vạn niên

Từ điển online


Tra theo từ điển:



Keywords

Poll

Bạn đang dùng phần mềm dự toán nào?
18% 18% [ 111 ]
34% 34% [ 215 ]
15% 15% [ 94 ]
3% 3% [ 18 ]
6% 6% [ 37 ]
15% 15% [ 95 ]
9% 9% [ 54 ]

Tổng số bầu chọn : 624

Quảng Cáo

free forum

free forum

free forum

free forum

free forum

Statistics

Tổng số bài viết đã gửi vào diễn đàn là 1626 in 1210 subjects

Diễn Đàn hiện có 5666 thành viên

Chúng ta cùng chào mừng thành viên mới đăng ký: Thanh2018

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


[ View the whole list ]


Số người truy cập cùng lúc nhiều nhất là 14 người, vào ngày Tue Jul 26, 2016 12:29 pm

Bản đồ online


Lisp tính cao độ

Share
avatar
Admin
Admin
Admin

Giới tính : Nam Tổng số bài gửi : 821
Sinh nhật : 09/04/1981
Ngày tham gia : 13/08/2011
Tuổi : 37
Việc làm/sở thích : Tư vấn thiết kế, giám sát thi công, quản lý dự án...

default Lisp tính cao độ

Bài gửi by Admin on Fri Jun 08, 2012 9:42 pm

Code:
;TINH CAO DO NHAP KHOANG CACH VA VIET VAO DIEM CHON (tạo một block caodo.dwg)
(defun c:tcd1 ()
  (c:setupdesign)
  (setq luu (getvar "osmode"))
  (setvar "osmode" 33)
  (initget 3)
  (setq pt1 (getpoint "\nChon diem goc da biet cao do: " ))
  (setq pt2 (getpoint "\nChon diem can tim cao do: " pt1))

;  (setq pt3 (getreal "\nVao cao do diem da biet:" ))
  (setvar "blipmode" 0)
  (while (null (setq chon (entsel "\nChon so cao do diem truoc:"))))
  (setq dt (entget (car chon)))
  (setq loai (cdr (assoc 0 dt)))
  (if (= loai "TEXT")
      (progn
            (setq gtri (cdr (assoc 1 dt)))

                      (setq pt3 (atof gtri))
                      (initget 0)
                          )
                          (progn
            )
            )

;  (setq B (getreal "\nCao do ghi ben trai (0) hay phai (1) ? : "))
  (setq B 1) 
  (setq dau1 (car pt1))
  (setq cuoi1 (cadr pt1))
  (setq dau2 (car pt2))
  (setq cuoi2 (cadr pt2))
  (setq l (abs (- dau1 dau2)))
  (Setq phia (- 0 0))
  (setq xt (+ dau2 1.10))
  (setq yt (- cuoi2 0.45))
  (setq cht (list xt yt))
  (setq xp (- dau2 1.10))
  (setq yp (- cuoi2 0.45))
  (setq chp (list xp yp))

  (if ( = B phia )
  (command "insert" "cdt" pt2 "" "" "0")
  (command "text" "J" "M" cht "0.36" "0" (rtos (+ pt3 (/ (- cuoi2 cuoi1) ntl)) 2 tphan))
  )
  (if ( > B phia )
  (command "insert" "cdo" pt2 "" "" "0")
  (command "text" "J" "M" chp "0.36" "0" (rtos (+ pt3 (/ (- cuoi2 cuoi1) ntl)) 2 tphan))
  )
  (setvar "osmode" luu)
;  (setvar "blipmode" luublipmode)

  (setq pt3 nil)
  (princ)
  )
  ;het tcd



[You must be registered and logged in to see this image.]
[You must be registered and logged in to see this image.]

    Hôm nay: Sat Apr 21, 2018 3:28 am