cách rải hố ga, điền cao độ, tên hố ga nhanh trên autocad khi thiết kế thoát nước đô thị

chào mọi người , mình là thành viên mới của diễn đàn , mong mọi người hướng dẫn cách vẽ, hay rãi hố ga rồi điền cao độ , tên hố ga khi thiết kế hệ thống thoát nước trên đường đô thị hay trong các khu dân cư, chứ cái này vẽ tay thì lâu quá , cám ơn mọi người nhiều

levihu đã viết:

chào mọi người , mình là thành viên mới của diễn đàn , mong mọi người hướng dẫn cách vẽ, hay rãi hố ga rồi điền cao độ , tên hố ga khi thiết kế hệ thống thoát nước trên đường đô thị hay trong các khu dân cư, chứ cái này vẽ tay thì lâu quá , cám ơn mọi người nhiều

Down Bộ Lisp hỗ trợ CAD2004 cua philipdn đấy. ó trong đấy bạn àh

cám ơn ban tancaox3 , nhưng hình như link bị khóa hết rồi , mình down không được , bạn có thể gởi cho mình 1 bản được không , mail cua mình là viethungtcd@yahoo.com.vn , cám ơn bạn

ai co cho toi dung thu voi. toi dow ve cai khg dung duoc

bác cài ko dùng được là sao?

philipdn đã viết:

bác cài ko dùng được là sao?

uh, minh cai xong chan biet load ntn? ha....a

bạn dùng giống như hướng dẫn kèm theo trên menu lệnh ấy
dễ dùng thôi mà
chúc bạn thành công

toi cung dang can phuong phap rai ho ga va dien cao do ho ga theo cao do tim duong thiet ke. ai co cho minh xin voi. mail: huynhdung8888@yahoo.com hay dungdnls@yahoo.com. cam on nhieu

Mình rải hố ga mà không được ai có file mẫu hoặc video cho mình với
Command: tn

Nhap huong X/Y :
Tang hay Giam (T/G) :
Cao do thiet ke hay tu nhien (T/N):
Invalid option keyword.

Cao do thiet ke hay tu nhien (T/N): t
Select objects: Specify opposite corner: 4 found
4 were filtered out.

Select objects: ; error: bad argument type: lselsetp nil

ai có HDSD va file lisp gui cho minh với.thank trước. yahoo laudaitrencat_1886@yahoo.com

Có lẽ cái này khá lạ với mọi người nhỉ, giờ mình có chỉ qua đây cũng ko thể nào nói bạn hiểu được rồi, trong phần mềm tiện ích mình đã tích hợp và có hiướng dẫn cụ thể mà làm ko được nữa thì chỉ có cách chỉ trực tiếp thì mới làm đựoc thôi.
Thật ra nếu làm được một lần thì lần sau dễ vô cùng dễ.
Mình đang nghiên cứu để viết thêm tiện ích vẽ trắc dọc thoát nước, nhưng chưa có thời gian, mong mọi người ủng hộ và chia sẽ kinh nhgiệm trong vấn đề thoát nước dọc đường ô tô

lệnh full text ra màn hình
[codebox]
(defun c:RFT(/ data f h line pt pXY spc str ten val);Read File Txt
;| By :zizu @ www.zizu.com |;
(vl-load-com)
(defun Split (Str Char / Lst pos)
(while (setq pos (vl-string-search Char Str))
(if (null Lst)
(setq Lst (list (substr Str 1 pos)))
(setq Lst (append Lst (list (read (substr Str 1 pos))))))
(setq Str (substr Str (+ pos 2)) ))
(setq Lst (append Lst (list (read Str)))))

(if (setq ten (getfiled "Chon File txt" (getvar "dwgprefix") "txt" )
(progn
(or (tblsearch "layer" "Point") (command "-layer" "n" "Point" "") )
(or (tblsearch "layer" "Sothutu") (command "-layer" "n" "Sothutu" "c" 3 "Sothutu" "") )
(or (tblsearch "layer" "Caodo") (command "-layer" "n" "Caodo" "c" 4 "Caodo" "") )
(setq spc (vla-get-ModelSpace (vla-get-ActiveDocument(vlax-get-Acad-Object))))
;(setq h 2)
(Setq h (getreal"\nChieu cao chu:"))
(if (= nil h)(setq h 2))
(setq kitu nil)
(initget "X Y")
(setq kitu (getkword "\nChon kieu xuat [X hay Y]:"))
(cond
((= kitu "X") (setq kitu 0))
((= kitu "Y") (setq kitu 1))
)
(if (= nil kitu)(setq kitu 0))
;(* (getvar "dimtxt")(getvar "dimscale")))
(setq f (open (findfile ten) "r"))
(while (setq Line (read-line f))
(if (vl-string-search "\t" Line)
(progn
(setq data (split Line "\t" )
val (car data)
pt (cdr data))
(if (not(vl-catch-all-error-p (vl-catch-all-apply 'vlax-3d-point pt)))
(progn
;(setq pXY (list (car pt)(cadr pt)))
(if (= 0 kitu)
(setq pXY (list (car pt)(cadr pt)))
)
(if (= 1 kitu)
(setq pXY (list (cadr pt)(car pt)))
)
(vla-put-Layer (vla-addpoint spc (vlax-3d-point pXY)) "Point")
;kkkkkkkkkkkkk
(vla-put-Layer (setq str (vla-addtext spc val (vlax-3d-point pXY) h)) "Sothutu")
(vla-put-Alignment str
(vla-put-TextAlignmentPoint str (vlax-3d-point pXY))
(vla-put-Layer (vla-addtext spc (caddr pt) (vlax-3d-point pXY) h) "Caodo") ))))) ))
(princ))
[/codebox]

ai co co the goi mail chominh duoc ko : susolangtu@yahoo.com

cac bac boc phet cha biet gi ca ma la cho to