Chuyển đến nội dung
Diễn đàn CADViet

whatcholingon

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    222

  • Đã tham gia

  • Lần ghé thăm cuối

  • Ngày trúng

    6

Bài đăng được đăng bởi whatcholingon

  2. Đã đăng · Trả lời báo cáo

    Chào mọi người!

    Mình có một bản vẽ trong đó có rất nhiều đường PL ( các đường này là đường đồng mức)

    Nhưng các pl này có rất nhiều đường gấp khúc nhìn không được đẹp lắm

    mọi người có thể viết cho mình một LSP như sau:

    Chọn đường pl sau đó sẽ tự chạy một đường SPL bám theo đường pl cũ.

    Như hình minh họa dưới

    e71daaed0ba7ab3c94104d18c2029e45_45000838.t3.jpg

     

    Ở trong hình mình MOVE đường SPL lên trên cho dễ nhìn thui. còn vị trị của nó là nằm cùng với PL ban đầu.

    Mình up luôn bản vẽ lên mọi người coi cho dễ:

    http://www.cadviet.com/upfiles/3/96857_t1.dwg

    Mọi người viết giúp mình gấp nhé. mình đang rất cần.

    Thanks!

  10. Đã đăng · Trả lời báo cáo

    Cách Nhập số liệu trên nova thì cũng giống như trên cel thôi. nhưng ở cel thì nó nhanh hơn chút.

    Số liệu của bản gửi lên mình thấy lỗi ở Đỉnh 2 cánh tang không bằng nhau :

    Từ TD2 đến P2 là: 20m

    Từ P2 đến TC2 là : 26.25

    Bạn kiểm tra lại chỗ này nhé.

    Đây là bản vẽ mở lên nó không báo lỗi nữa;

    http://www.mediafire.com/?92vb7c7dkkd5yui

    • Vote tăng 1

  12. Đã đăng · Trả lời báo cáo

    Thật tình chẳng ai muốn làm điều xấu trái lương tâm cả. Chỉ vì hoàn cảnh xô đẩy đưa mình vào thế bí nên bắt buộc phải tìm lối thoát.

    Mình cũng cứ thử đặt thử địa vị của mình ở vị trí của từng người thì sẽ hiểu vấn đề.

    Cuộc sống mà. biết và sống làm sao cho được long người.

  14. Đã đăng

    Lớp dạy hoành tráng bài bản thì chưa biết sao riêng mình có khoảng hâm mấy bài cơ bản đây bạn nào học thì dạo dạo trước cho có chút kiến thức rồi tìm thầy khác cao hơn sẽ thuận tiện hơn.

     

    http://duy782006.blo...1%BA%BFt%20lisp

    Nhảy vào blog của Mr. Duy để ngâm cứu lsp. mà lại chú ý đến cái thằng Lisp di động. Hay quá đang tìm hiểu. Đang làm quen ở máy của mình có những tiện ích đã sử dụng quen. đột nhiên chuyển qua máy khác cứ bỡ ngỡ như chuyển qua nhà cô bạn hàng xóm.

    Sau này tác giả cho mình chỉnh sửa bản gốc chút nhé.( Mạo danh tý cho oai ý mà)

    Thanks!

  16. Đã đăng · Trả lời báo cáo

    Giảm thao tác Undo và cmdecho thì sẽ giảm được 1 nửa time :)

    (defun c:gifpr (/ ss n plst i en el p ma k tmp fw val)
(defun val (a e)(cdr (assoc a (entget e))))
(defun cont(e / tmp)(substr (setq tmp (val 1 e)) (+ 4 (vl-string-search "\\l" tmp))))
(vl-load-com)
(setq Start (getvar "Millisecs"))
(setvar 'cmdecho 0)
(command "undo" "Mark")
(setq ss (ssget (list (cons 0 "acad_proxy_entity")))
     	n (sslength ss)
     	plst (list)
     	i -1
 tmp (getfiled "Chon file xuat Text goc" (getvar "dwgprefix") "csv" 1)
 fw (open tmp "w")
)
(while (< i n)    
(setq en (entlast))
(command "explode" (ssname ss (setq i (1+ i))))
(while (setq en (entnext en))  
  (cond  ((= (val 0 en) "CIRCLE") (setq p (val 10 en)))
(T (if (= (val 62 en) 2)(setq num (cont en))(setq nm (cont en))))
  )  
 )
  (write-line (strcat num (chr 44) nm (chr 44) (apply 'strcat (mapcar '(lambda(x)(strcat (rtos x 2 2) (chr 44))) p))) fw)

)
(close fw)
(command "undo" "back")
(setq End (getvar "Millisecs"))
(alert (vl-princ-to-string (* (- end start) 0.001)))
(princ)
)

     

    Ketxu xem lại lsp:

    Sao khi Lấy text ghi chú thì nó lại bỏ mất ký tự ở trước là lý do gì vậy. ( vd: BD thì chỉ có D, LS thì chỉ có S)

    STT cũng chạy lung tung nữa, Ket sửa lại giùm nhé.

    Thanks!

  18. Đã đăng

    Xã hội phân công hết rùi. Mỗi người có thế mạnh và thế yếu của mình. kẻ dốt thì làm đầy tớ của người giỏi. mình là thầy của người này, nhưng lại là trò của người kia.( cho nên mình giỏi mảng nào thì làm thầy mảng đó. yếu mảng nào thì làm trò mảng đó)

    ( Như mình nè so với mấy người xí trai hơn mình thì mình là nhất :D , còn so sánh với tất cả thì mình chỉ là hạt cát trên sa mạc)

    • Vote tăng 3

  23. Đã đăng · Trả lời báo cáo

    Bạn quả thật là người chịu khó và nhiệt tình.

    Đã là một sản phẩm thì bạn liên hoàn thiện nó. ở đây có rất nhiều người. kiểu gì cũng có người quan tâm tới nó và rất cần nó.

    Nếu bạn đưa nó ra file csv theo dạng

    STT TÊN ĐIỂM TOẠ ĐỘ X TOẠ ĐỘ Y CAO ĐỘ

     

    Nếu được vậy thì nhanh hơn các thao tác mình làm. Thì mình là người cần đầu tiên đó bạn ạ.

    thanhk!

  24. Đã đăng · Trả lời báo cáo

    mình muốn phát sinh cọc nhưng tên cọc nhận mã điểm làm tên cọc. bac có cách không?

     

    Mình chưa hiểu ý của bạn lắm:

    1) bổ sung thêm điểm mia (ví dụ khu địa hình này có chỗ bị lũng mình muốn thêm điểm mia)

    2) chèn thêm cọc trên một tuyến đường.

    Bạn có thể up cái hình or file nên mình ngó cái xem đầu đuôi nó thế nào.

  25. Đã đăng · Trả lời báo cáo

    bạn có sử dụng topo à? mình muốn gán mã diểm cho tên cọc bạn có cách nào nhanh không?

     

    Mình chỉ biết chút xíu về nó thui. đang tìm hiểu mà. mình chủ yếu chạy trên nova ( cũng chỉ biết chạy tuyến và một số lệnh)

    Gán mã điểm ở đây là như thế nào.

    1) gán cho toàn bộ số điểm mia

    2) gán cho điểm mia mà mình chọn

×