Diễn Đàn Sinh Viên Khoa Xây Dựng - Mỏ Địa Chất
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.

Diễn Đàn Sinh Viên Khoa Xây Dựng - Mỏ Địa Chất

Diễn Đàn Sinh Viên Khoa Xây Dựng -Đại Học Mỏ Địa Chất
 
Trang ChínhTrang Chính  Latest imagesLatest images  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng Nhập  
Top posters
joneytran
Help - lệnh cut dim Vote_lcapHelp - lệnh cut dim Voting_barHelp - lệnh cut dim Vote_rcap 
chungdaika
Help - lệnh cut dim Vote_lcapHelp - lệnh cut dim Voting_barHelp - lệnh cut dim Vote_rcap 
LongBien
Help - lệnh cut dim Vote_lcapHelp - lệnh cut dim Voting_barHelp - lệnh cut dim Vote_rcap 
toan_pro
Help - lệnh cut dim Vote_lcapHelp - lệnh cut dim Voting_barHelp - lệnh cut dim Vote_rcap 
david
Help - lệnh cut dim Vote_lcapHelp - lệnh cut dim Voting_barHelp - lệnh cut dim Vote_rcap 
congmanh333
Help - lệnh cut dim Vote_lcapHelp - lệnh cut dim Voting_barHelp - lệnh cut dim Vote_rcap 
titmit
Help - lệnh cut dim Vote_lcapHelp - lệnh cut dim Voting_barHelp - lệnh cut dim Vote_rcap 
xuyensaker
Help - lệnh cut dim Vote_lcapHelp - lệnh cut dim Voting_barHelp - lệnh cut dim Vote_rcap 
dovanthuan.xdct
Help - lệnh cut dim Vote_lcapHelp - lệnh cut dim Voting_barHelp - lệnh cut dim Vote_rcap 
kstrieucong
Help - lệnh cut dim Vote_lcapHelp - lệnh cut dim Voting_barHelp - lệnh cut dim Vote_rcap 
Latest topics
» Bài tập cơ kết cấu 2 (Đào văn tình)
Help - lệnh cut dim Emptyby kstrieucong Thu Mar 15, 2012 3:25 am

» Ai ĐÊ 5 CƠ KẾT CẤU THÌ QUA ĐÂY
Help - lệnh cut dim Emptyby kstrieucong Thu Mar 15, 2012 3:20 am

» đỀ 4 CỦA PHẠM VĂN GIÁP
Help - lệnh cut dim Emptyby haitkhd Tue Mar 13, 2012 11:33 pm

» Top 10 game online được dân cày mong mỏi nhất 2011
Help - lệnh cut dim Emptyby joneytran Wed Jul 20, 2011 7:18 pm

» 10 tổ hợp phím tắt "bí truyền" trong Windows
Help - lệnh cut dim Emptyby joneytran Wed Jul 20, 2011 7:13 pm

» Lời khuyên của con rể
Help - lệnh cut dim Emptyby joneytran Wed Jul 20, 2011 3:34 pm

» Giáo trình học photoshop
Help - lệnh cut dim Emptyby joneytran Mon Jul 18, 2011 4:54 pm

» Áo Đồng Phục - Áo Phông - Sơ Mi - Áo Lớp - Tập Thể
Help - lệnh cut dim Emptyby ao.dongphuc Wed Jul 06, 2011 1:03 pm

» Chuyên cung cấp các loại nguyên phụ liệu phục vụ cho ngành may mặc
Help - lệnh cut dim Emptyby lienkettre Thu Jun 30, 2011 11:25 am

» Thông báo tin buồn
Help - lệnh cut dim Emptyby joneytran Wed Jun 29, 2011 4:42 pm

» Giới thiệu Công ty Sông Đà
Help - lệnh cut dim Emptyby toan_pro Mon Jun 20, 2011 4:26 pm

» in ảnh lên pha lê, quà tặng pha lê,quà tặng thủy tinh-0902156326
Help - lệnh cut dim Emptyby whitecrystal Tue Jun 14, 2011 11:53 am

» Thực tập sinh viên
Help - lệnh cut dim Emptyby joneytran Sat Jun 04, 2011 10:05 pm

» Ảnh tai nạn kinh hoàng tại đường hầm Mỹ
Help - lệnh cut dim Emptyby joneytran Sat Jun 04, 2011 10:03 pm

» SAP200 V9.03 link download+tai liệu học Bk TP.HCM
Help - lệnh cut dim Emptyby LongBien Fri Jun 03, 2011 1:30 pm

» Lớp bóc tách khối lượng và lập dự toán công trình
Help - lệnh cut dim Emptyby LongBien Fri Jun 03, 2011 1:22 pm

» Bộ cài âcd 2007
Help - lệnh cut dim Emptyby joneytran Thu Jun 02, 2011 11:53 pm

» Chuẩn đầu ra của các ngành đào tạo chính quy Trường ĐH Mỏ - Địa chất
Help - lệnh cut dim Emptyby joneytran Thu Jun 02, 2011 5:46 am

» Hướng dẫn tỷ lệ bình xét danh hiệu thi đua
Help - lệnh cut dim Emptyby joneytran Thu Jun 02, 2011 5:37 am

» Hội chợ việc làm SV-2011
Help - lệnh cut dim Emptyby joneytran Thu Jun 02, 2011 5:30 am


Help - lệnh cut dimXem chủ đề cũ hơn Xem chủ đề mới hơn Go down
Thu May 05, 2011 2:36 pm
Help - lệnh cut dim Bgavatar_01Help - lệnh cut dim Bgavatar_02_newsHelp - lệnh cut dim Bgavatar_03
Help - lệnh cut dim Bgavatar_04_newHelp - lệnh cut dim Bgavatar_06_newsHelp - lệnh cut dim Bgavatar_06
Help - lệnh cut dim Bgavatar_07Help - lệnh cut dim Bgavatar_08_newsHelp - lệnh cut dim Bgavatar_09
[Thành viên] - khaxd★Dân Thường★
★Dân Thường★
Help - lệnh cut dim Vide

Bài gửiTiêu đề: Help - lệnh cut dim

Tiêu đề: Help - lệnh cut dim

anh ơi cho em hỏi lệnh cut dim là gì thế ạ Twisted Evil



Thu May 05, 2011 2:39 pm
Help - lệnh cut dim Bgavatar_01Help - lệnh cut dim Bgavatar_02_newsHelp - lệnh cut dim Bgavatar_03
Help - lệnh cut dim Bgavatar_04_newchungdaikaHelp - lệnh cut dim Bgavatar_06_newsHelp - lệnh cut dim Bgavatar_06
Help - lệnh cut dim Bgavatar_07Help - lệnh cut dim Bgavatar_08_newsHelp - lệnh cut dim Bgavatar_09
[Thành viên] - chungdaika★Đại Tá★
★Đại Tá★
Help - lệnh cut dim Vide

Bài gửiTiêu đề: Re: Help - lệnh cut dim

Tiêu đề: Help - lệnh cut dim

bạn lấy cái này rồi dán vào note pate > save lại tên là cd.txt rồi vào cad gõ ap là xong
Code:
;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=95
(defun c:cdx (/ entdt dcat1 dcat2 sodimsua index sodt ssdt tt)
  (defun cdim (entdt   pchan    pduong     /     tt       old10
         old13   old14    new10     new13     new14    p10n
         p13n   p14n    p10o     p13o     p14o       gocduong
         gocchan   pchanb    pduongb loaidim
         )
    (defun chanvuonggoc   (ph p1 p2 / ptemp pkq goc)
      (setq
   goc  (+ (angle p1 p2) (/ pi 2.0))
   ptemp (polar ph goc 1000.0)
   pkq  (inters ph ptemp p1 p2 nil)
      )
      pkq
    )
    (setq
      tt      (entget entdt)
      old10    (assoc '10 tt)
      old13    (assoc '13 tt)
      old14    (assoc '14 tt)
      p10o    (cdr old10)
      p13o    (cdr old13)
      p14o    (cdr old14)
      loaidim  (logand (cdr (assoc '70 tt)) 7)
      gocduong (cond
       ((= loaidim 1) (angle p13o p14o))
       ((= loaidim 0) (cdr (assoc '50 tt)))
       (t nil)
         )
      pchan (cond
         (pchan (list (car pchan) (cadr pchan) 0.0))
         (t pchan)
       )
      pduong (cond
         (pduong (list (car pduong) (cadr pduong) 0.0))
         (t pduong)
       )
     
    )
    (if   gocduong
      (progn
   (if pchan
     (setq
       pchanb (polar pchan gocduong 1000.0)
       p13n  (chanvuonggoc (list (car p13o) (cadr p13o) 0.0) pchan pchanb)
       p14n  (chanvuonggoc (list (car p14o) (cadr p14o) 0.0) pchan pchanb)
       new13  (cons 13 p13n)
       new14  (cons 14 p14n)
       tt     (subst new13 old13 tt)
       tt     (subst new14 old14 tt)
     )
   )
   (if pduong
     (setq
       pduongb (polar pduong gocduong 1000.0)
       p10n    (chanvuonggoc (list (car p10o) (cadr p10o) 0.0) pduong pduongb)
       new10  (cons 10 p10n)
       tt       (subst new10 old10 tt)
     )
   )
   (entmod tt)
      )
    )
    gocduong
  )

  (init)
  (setq   ssdt    (ssget '((0 . "DIMENSION")))
   dcat1    (getpoint "\nDiem cat chan DIM: ")
   dcat2    (getpoint "\nDiem cat duong DIM: ")
       
   dcat1    (cond
        (dcat1 (trans dcat1 1 0))
        (t nil)
       )
   dcat2    (cond
        (dcat2 (trans dcat2 1 0))
        (t nil)
       )   
   sodt    (sslength ssdt)
   index    0
   sodimsua 0
  )
  (repeat sodt
    (setq entdt   (ssname ssdt index)
     index   (1+ index)
     tt   (entget entdt)

    )
    (if   (cdim entdt dcat1 dcat2)
      (setq sodimsua (1+ sodimsua))
    )
  )
  (princ (strcat "\nSo duong dim da sua: " (itoa sodimsua)))
  (done)
)



Thu May 05, 2011 2:40 pm
Help - lệnh cut dim Bgavatar_01Help - lệnh cut dim Bgavatar_02_newsHelp - lệnh cut dim Bgavatar_03
Help - lệnh cut dim Bgavatar_04_newHelp - lệnh cut dim Bgavatar_06_newsHelp - lệnh cut dim Bgavatar_06
Help - lệnh cut dim Bgavatar_07Help - lệnh cut dim Bgavatar_08_newsHelp - lệnh cut dim Bgavatar_09
[Thành viên] - khaxd★Dân Thường★
★Dân Thường★
Help - lệnh cut dim Vide

Bài gửiTiêu đề: Re: Help - lệnh cut dim

Tiêu đề: Help - lệnh cut dim

thanks anh nhá, em làm được rồi



Help - lệnh cut dim Bgavatar_01Help - lệnh cut dim Bgavatar_02_newsHelp - lệnh cut dim Bgavatar_03
Help - lệnh cut dim Bgavatar_04_newHelp - lệnh cut dim Bgavatar_06_newsHelp - lệnh cut dim Bgavatar_06
Help - lệnh cut dim Bgavatar_07Help - lệnh cut dim Bgavatar_08_newsHelp - lệnh cut dim Bgavatar_09
[Thành viên] - Sponsored content
Help - lệnh cut dim Vide

Bài gửiTiêu đề: Re: Help - lệnh cut dim

Tiêu đề: Help - lệnh cut dim



Help - lệnh cut dim

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang
* Không dùng những ngôn từ thiếu lịch sự.
* Bài viết sưu tầm nên ghi rõ nguồn.
* Tránh spam nhảm không liên quan đến chủ đề.

Yêu cầu viết tiếng Việt có dấu.


Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn Đàn Sinh Viên Khoa Xây Dựng - Mỏ Địa Chất :: IT-CP-DS :: IT Xây Dựng :: Auto Cad :: Hỏi Đáp Auto Cad-
Help - lệnh cut dim Footer10
Create a forum on Forumotion | ©phpBB | Free forum support | Báo cáo lạm dụng | Thảo luận mới nhất