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

nhat2233

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

    17
  • Đã tham gia

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

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


  1. Mình xin chào cả nhà! Vì nhu cầu công việc in Giấy chứng nhận QSDĐ hiện nay thể hiện sơ đồ trên trang 3 GCN có bảng thống kê số hiệu đỉnh thửa và kích thước các cạnh thửa đất (không có tọa độ đỉnh). MÌnh tìm kiếm trên diễn đàn nhưng không có lisp nào đáp ứng theo yêu cầu. Do đó, mình xin các pro diễn đàn CadViet giúp đỡ cho mình với. Mình xin cám ơn và chúc sức khỏe cả nhà! 

    image003.jpg


  2. Nếu bạn cần dimaligned thì dùng lệnh cad thôi. còn LSP ghikt đó phù hợp với y/c của bạn mà. text đc ghi ra chính là giá trị cạnh của 2 điểm bạn chọn đó. còn bạn muốn to nhỏ hay cách bao nhiêu thì sửa lsp lại chút là đc .

    Vậy nhờ bạn TaiNguyen79 sửa dùm lại cho mình lisp đó được không. Cảm ơn ơn bạn.


  3. Tôi nghĩ lệnh "Command: _dimaligned" thì sao?

    lệnh _dimaligned thì ok nhưng tại nhu cầu công việc gồm nhiều cạnh thửa đất mà dùng lệnh _dimaligned để ghi kt thì mình phải mất 1 công đoạn nữa đó là nhập khoảng cách of text với đg line mới đc như ý muốn. Nên mình mới cấn lisp mà khi pick 2 đầu của 1 đoạn thẳng sẽ cho ra kq nằm song song tại trung điểm của đoạn thằng đó và cách đoạn thẳng đó 2cm.


  4. Vấn đề này đã có nhiều rồi. tuy nhiên có lẽ đoạn lsp sau đây là hợp với ý bạn :

    
    

    ;ghi kich thuoc

    ;Luu gia tri bien PTC trong bo nho dung de lay diem truoc do

    ;neu enter o buoc chon PT1 thi se lay PT1 la diem lien truoc (lastpoint)

    (defun c:ghikt (/ OSM PT0 PT1 PT2 DIST A12 MID12)

    (setq OSM (getvar "osmode"))

    (if (null PTC) (setq PT0 (getvar "Lastpoint")) (setq PT0 PTC))

    (setvar "osmode" 1)

    (if (null (setq PT1 (getpoint "\nChon diem thu nhat :\n"))) (setq PT1 PT0))

    (initget 1) (setq PT2 (getpoint PT1 "\nChon diem thu hai :\n"))

    (setvar "osmode" 0)

    (setq PTC PT2)

    (if (equal PT1 PT2 0.001)

    (princ "\nHai diem trung nhau\n")

    (progn

    (setq DIST (distance PT1 PT2) A12 (angle PT1 PT2) MID12 (polar PT1 A12 (/ DIST 2.0)))

    (setq pt (polar MID12 (+ A12 (/ PI 2)) 1))

    (if (or (<= A12 (/ PI 2)) (>= A12 (* PI 1.5)))

    (command ".TEXT" "M" pt 1 (* (/ A12 pi) 180) (rtos DIST 2 2) "")

    (command ".TEXT" "M" pt 1 (+ (* (/ A12 pi) 180) 180) (rtos DIST 2 2) ""))))

    (setvar "osmode" OSM)(princ))

     

    Cảm ơn bạn TaiNguyen79 đã giúp đỡ mình nhưng yêu cầu của mình là làm sao text ghi kích thước sẽ song song với đường line, nằm trung điểm và cách line 1 khoảng cách là 2cm chẳng hạn. Chân thành cảm ơn!


  5. Mình dùng cad 2004 khi viết chữ bằng mtext thì font chữ tiếng việt hiển thị bình thường nhưng khi dùng lệnh explode để chuyển về dtext thì khi kích đúp vào dòng chữ đó để sửa thì trong ô dtext hiển thị bị lỗi font tiếng việt. Mình đã tìm đủ cách nhưng không khắc phục được. Mong mọi người giúp đỡ.


  6. Chào tất cả mọi người!

    Mình dùng cad 2004 và file cad cũng là file 2004 nhưng hôm nay tự nhiên mở file Cad không được. Cụ thể là mình vào Cad->Open-> sau đó mở 1 file cad thì có file mở được file không. Đối với file không mở được thì thư mục chứa nhiều file cad nhưng khi nhấp vào thì chỉ còn lại 1 file đã chọn và chọn vào thì không được. Và sau đó undo trong cửa sổ Open cũng không đc. Tuy nhiên những máy nối mạng lan với máy mình thì lại mở được. Có ai biết lỗi này xin chỉ giáo giúp mình với. Mình xin cảm ơn!

×