Xin giúp lấy lại cao độ trong Nova

[nguyennam2907 1]

Hiện mình đang làm tốt nghiệp bên đường đô thị. Mìnnh có xin được cái bình đồ quy hoạch của đô thị Hà Tĩnh, nhưng không lấy lại được cao độ của các điểm trong bình đồ! Nhờ các cao thủ lấy lại giúp mình với! MÌnh xin cảm ơn.
P/s: nếu được nhờ anh em gửi vào mail nguyennam0709@gmail.com dùm mình với! Thân.

http://www.mediafire.com/download/8q95ye23114vg13/BINH+DO+TIM+TUYEN+R14.dwg

[hiepttr 538]

Cái này có nghĩa là bạn muốn nhận lại cao độ của các điểm đo ?!

Nếu vậy, có 2 cách:

1. Dùng HS để nhận text và tạo mô hình.

2. Lisp: vòng lặp qua các text có hieght = 3.6 (BV của bạn), tạo point có toạ độ X, Y là X, Y của text, Z = (distof) text.

Được point rồi thì Nova đã làm việc đc.

p/s:

Đang bận nên ko làm luôn cho bạn đc, nếu bạn có thể đợi thì mình làm sau vậy

[nguyennam2907 1]

Cái này có nghĩa là bạn muốn nhận lại cao độ của các điểm đo ?!

Nếu vậy, có 2 cách:

1. Dùng HS để nhận text và tạo mô hình.

2. Lisp: vòng lặp qua các text có hieght = 3.6 (BV của bạn), tạo point có toạ độ X, Y là X, Y của text, Z = (distof) text.

Được point rồi thì Nova đã làm việc đc.

p/s:

Đang bận nên ko làm luôn cho bạn đc, nếu bạn có thể đợi thì mình làm sau vậy

 Cảm ơn bạn đã đọc bài, mình làm mà không được! Bạn giúp được thì tốt quá, cũng không gấp lắm vì chủ nhật này mình mới cần bạn à. 

[hiepttr 538]

Tạm thế này đã

Bạn thử xem, nếu vướng chổ nào thì làm tiếp

 

Lisp tạo point:

(defun c:mp( / ss sl i x y z int_pt)
;make point
(prompt "\nChon vung co text cao do: ")
(setq ss (ssget '((0 . "TEXT") (40 . 3.6)))
sl (sslength ss)
i 0
)
(while (and ss (> (sslength ss) 0))
	(cond
		((setq z (distof (cdr (assoc 1 (entget (setq ent (ssname ss 0)))))))
		(setq x (car (setq int_pt (cdr (assoc 10 (entget (setq ent (ssname ss 0)))))))
			  y (cadr int_pt)
			  i (1+ i))
		(entmake (list (cons 0 "POINT") (list 10 x y z)))
		)
	)
(ssdel ent ss)
)
(princ (strcat "\nDa tao " (itoa i) " point cao do !"))
(princ)
)

[nguyennam2907 1]

Cảm ơn bạn đã giúp nhiệt tình nhé! Để mình làm thử xem thế nào!