Đến nội dung


Hình ảnh
- - - - -

Xin code ghi độ dài đoạn thằng được chọn


  • Please log in to reply
3 replies to this topic

#1 ducky_dhkt

ducky_dhkt

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 22 May 2009 - 08:36 AM

Mình đang cần code thể hiện độ dài của đoạn thẳng đặt ngay trung điểm của đoạn với đặc tính là phải thuộc layer hiện hành và style hiện hành. THanhks gấp gấp.
  • 0

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 22 May 2009 - 09:06 AM

Mình đang cần code thể hiện độ dài của đoạn thẳng đặt ngay trung điểm của đoạn với đặc tính là phải thuộc layer hiện hành và style hiện hành. THanhks gấp gấp.

đây bạn :
(defun c:gchu()
(vl-load-com)
(setq curve (car(entsel "\n Chon Line :")))
(setq cao (getreal "\n Nhap chieu cao chu :"))
(setq ddau (vlax-curve-getStartPoint curve))
(setq dcuoi (vlax-curve-getEndPoint curve))
(setq ang (/ (* (angle ddau dcuoi) 180) pi))
(setq dtb (list (/ (+ (car ddau) (car dcuoi)) 2) (/ (+ (cadr ddau) (cadr dcuoi)) 2) 0))
(setq kc (distance ddau dcuoi))
(command "style" "" "" "0" "1" "0" "n" "n")
(command "Text" "J" "BC" dtb cao (gocve ang) (rtos kc 2 0))
(princ)
)
;
(defun gocve( goc)
(if (and (> goc 90.0) (< goc 270.0)) (+ goc 180.0) goc)
)

Bài viết đã được chỉnh sửa nội dung bởi Tue_NV: 22 May 2009 - 09:14 AM

  • 0

#3 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 22 May 2009 - 10:20 PM

Mình đang cần code thể hiện độ dài của đoạn thẳng đặt ngay trung điểm của đoạn với đặc tính là phải thuộc layer hiện hành và style hiện hành. THanhks gấp gấp.


Đề bài của bạn còn thiếu chiều cao của text được ghi nữa.
Bạn có thể tham khảo 1 lisp rất hay của bạn Phamthanhbinh.
http://www.cadviet.c...amp;#entry52919
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#4 VoHoan

VoHoan

    biết lệnh move

  • Members
  • PipPipPip
  • 129 Bài viết
Điểm đánh giá: 8 (bình thường)

Đã gửi 22 May 2009 - 11:18 PM

Mình đang cần code thể hiện độ dài của đoạn thẳng đặt ngay trung điểm của đoạn với đặc tính là phải thuộc layer hiện hành và style hiện hành. THanhks gấp gấp.

Không biết lisp này có vừa ý bạn chưa: http://www.cadviet.c...h_chieu_dai.lsp
  • 0