Chuyển đến nội dung
Diễn đàn CADViet
Huỳnh Chánh Tổng

nho cac bac sua gium em lisp nay no bi loi va phan biet dau cham dau phay may nha e su dung win 7 autocad 2007

Các bài được khuyến nghị

(princ "\nThi hanh bang lenh 1QM")
(defun C:1QM (/ Tenmc dc1 dc2 dc pdao pdap Sdap Sdap1 Sdao Sdao1 tyle fo fname)
  (setvar "CMDECHO" 0)
  (if (= fname nil)
    (setq fname (getfiled "Chon tap tin luu so lieu" "//" "txt" 1))
  )
  (setq fo (open fname "a"))
  (princ "Tenmcat DTDao DTDap" fo)
  (princ "\n" fo)
  (if (= tylen nil)
    (progn
      (setq tylen (getreal "\nTy le ban ve 1/<1000>:"))
      (if (= tylen nil)
    (setq tylen 1000.0)
      )
    )
  )
  (setq tyle (/ (expt tylen 1) 1000000.0))
  (setq nhom nil)
  (setq nhom (car (entsel "\nChon ten mat cat: ")))
  ;(setq pdao (getpoint "\nChon diem giua dao:"))
  (while (/= nhom nil)
    (setq Tenmc (cdr (assoc '1 (entget nhom))))
    (setq pdao (getpoint "\nChon diem giua dao:"))
    (setq Sdao 0)
    (while (/= pdao nil)
      (command "layer" "n" "Dao" "c" "magenta" "Dao" "")
      (command "layer" "s" "Dao" "")
      (command "bpoly" pdao "")
      (command "Area" "O" "L")
      ;(command "erase" "L" "")
      (setq Sdao1 (getvar "AREA"))
      (setq Sdao (+ Sdao1 Sdao))
      (setq pdao (getpoint "\nCong them dao:"))
      (if (= pdao nil)
        (progn
      (setq Sdao (* Sdao tyle))
          (setq Sdao (rtos Sdao 2 2))
      ;(command "layer" "s" "Dao" "")
            ;(setq Sdao (strcat Sdao " m2"))
            ;(setq dc1 (getpoint "\nChon diem chen:"))
      ;(command "text" "c" dc1 2.5 0,0 Sdao)
        )
      )
    )
    ;(setq pS (getpoint "\nChon diem giua:"))
    (setq dc (getpoint "\nChon diem chen:"))
        (princ Tenmc fo)
    (princ " " fo)
          (princ S fo)
          (princ "\n" fo)
   (command "layer" "s" "QM" "")
   (command "insert" "1QM2" dc "" "" "" Tenmc S)
   (setq nhom (car (entsel "\nChon ten mat cat: ")))
   ;(setq pdao (getpoint "\nChon diem giua dao:")) 
  )
  (close fo)
  (princ)
  (setvar "CMDECHO" 1)
)

  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

×