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

[ducky_dhkt 0]

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.

[Tue_NV 3918]

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) ()

Chỉnh sửa Tháng 5 22, 2009 theo Tue_NV

[Thaistreetz 539]

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.com/forum/index.php?sho...amp;#entry52919

[VoHoan 6]

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.com/upfiles/Tinh_chieu_dai.lsp