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

phamdung

Thành viên
  • Số lượng nội dung

    8
  • Đã tham gia

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

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


  1. Lệnh của tôi là làm như cái bạn muốn, cấu hình cad của bạn sai. Bạn hãy thử dùng lisp với máy khác sẽ thấy.

     

    Tôi không nhớ là biến hệ thống gì gây ra hiện tượng này, để tôi tìm lại rồi cho bạn biết sau.

    tôi đã làm theo bạn nhưng sử dụng ở bản vẽ mới thì không có vấn đề gì còn bản vẽ đó vẫn bị hiện tượng trên. bạn có cách khắc phục điều này nếu lần sau tôi có gặp trương hợp này không?


  2. chương trình này mình chạy thấy tốt rồi nhưng cho minh hoi cái file để apload đó là thể loại gì để phù hợp với điều kiện của từng người dùng mà chỉnh sửa cho thích hợp.

    Có chương trình vẽ trắc dọc Được xây dựng và cung cấp bởi Dương Đình Thành - Cựu sinh viên ngành Cấp thoát nước - ĐH Xây dựng.

    Nhập dữ liệu trong Excel -> vẽ trong môi trường AutoCAD, cũng được nhiều kỹ sư Nước dùng hiện nay.

    <a href="http://www.cadviet.com/upfiles/Trac_doc.zip" target="_blank">http://www.cadviet.com/upfiles/Trac_doc.zip</a>

    Có hướng dẫn kèm theo

    Note:pass: www.cadviet.com


  3. sao mình không vào được nó đòi pass

     

    Có chương trình vẽ trắc dọc Được xây dựng và cung cấp bởi Dương Đình Thành - Cựu sinh viên ngành Cấp thoát nước - ĐH Xây dựng.

    Nhập dữ liệu trong Excel -> vẽ trong môi trường AutoCAD, cũng được nhiều kỹ sư Nước dùng hiện nay.

    <a href="http://www.cadviet.com/upfiles/Trac_doc.zip" target="_blank">http://www.cadviet.com/upfiles/Trac_doc.zip</a>

    Có hướng dẫn kèm theo

    Note:pass: www.cadviet.exe


  4. cái lệnh này của bác Hoanh thiệt là hay, nhưng bác có thể bổ sung thêm cho em được không?

    với câu lệnh trên thì khi nhập giá trị chênh lệch vào ( VD như cao độ cũ là 4.20 bây giờ đưa giá trị chênh lệch vào là -0.2 thì kết quả trả về là 4 như vậy bản vẽ sẽ không đẹp tôi muốn kết quả là 4.00 thì làm sao?)

    mong bác bớt chút thời gian trả lời tôi.

    thanks!

    Bạn mất thời gian 1 thì người viết lisp mất thời gian 10. Không nên than vãn.

    Nhờ có file bạn gửi tôi mới hiểu đúng ý bạn, nếu không tự nhiên mất công viết ra 1 đống lisp rồi vứt đi.

     

    Tên lệnh là DEH (deltaH):

    (defun c:deh ()
     (defun sudung	(ham ss / sodt index entdt soapp)
       (setq sodt	(cond
    	  (ss (sslength ss))
    	  (t 0)
    	)
      soapp	0
      index	0
       )
       (repeat sodt
         (setq entdt (ssname ss index)
        index (1+ index)
         )
         (if (ham entdt)
    (setq soapp (1+ soapp))
         )
       )
       soapp
     )
     (defun addstring (str so)
       (rtos (+ (atof str) so) 2 2)
     )
     (defun addone	(ent / tt)
       (setq ent (entnext ent))
       (setq tt  (entget ent)
      old (assoc 1 tt)
      new (cons 1 (addstring (cdr old) deltah))
      tt  (subst new old tt)
       )
       (entmod tt)
       (entupd ent)
     )
     (setq	ss     (ssget '((0 . "INSERT") (66 . 1)))
    deltah (getreal "\nVao gia tri chenh: ")
     )
     (sudung addone ss)
     (princ)
    )
    


  5. Mình đã up bộ cài mà mình đang dùng (có hình minh hoạ ở trên). Lỗi cụ thể như thế nào bạn post lên nhé.

    sau khi cài xong mình tiến hành chạy "Hwase tool 1" thì máy tính báo lỗi với dòng chữ sau:

    " component 'msflxgrd.ocx' or one of its dependencies not correctly registered: a file is missing or invailid"

    mình không hiểu tại sao lại vậy. giúp mình với

×