Đến nội dung


Hình ảnh

Text trong Dim?


  • Please log in to reply
4 replies to this topic

#1 hugo75

hugo75

    biết vẽ polygon

  • Members
  • PipPip
  • 72 Bài viết
Điểm đánh giá: -4 (bình thường)

Đã gửi 15 January 2014 - 11:01 PM

Lúc trước mình thấy có người làm khi dim kích thước đoạn thẳng xong dung ED nhấn vào chỗ kích thước họ thêm vào gì đó thì tự động nhảy thêm hàng dưới text kích thước và đoạn dim.Mong mọi người chỉ giúp.Thanks.
  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 15 January 2014 - 11:58 PM

\P hoặc \X hoặc xuống dòng như bình thường tùy phiên bản CAD bạn dùng

Chú ý text trong Dim là Mtext, nên nó còn nhận một số mã khác.

Hiện nay việc sửa text trong Dim cũng được CAD cải tiến hơn


  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 lenhatanh

lenhatanh

    biết vẽ polygon

  • Members
  • PipPip
  • 75 Bài viết
Điểm đánh giá: 2 (bình thường)

Đã gửi 29 May 2014 - 05:09 PM

Bạn có thể viết một đoạn code thể hiện \p hoặc \x được không ? mình đang vướng chỗ này.

(defun c:dii ()
  (setq i 1)
  (while
    (setq ee (car (entsel "\n Chon Doi tuong: ")))
    (setq di (cdr (assoc 10 (entget ee))))
    (setq tbl (strcat "Block " (rtos i 2 0)))
    (command "_Dimaligned" "L" "M" "" tbl di)
    (setq i (+ i 1))
  )
  (princ)
)

  • 0

#4 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 29 May 2014 - 06:51 PM

Có 2 cách:

1. Dùng nentsel nhấp ngay vào text dim.

2. Tạo một hàm để tìm Mtext trong Dim, vì dim cũng là dynamic block nên có nhiều thành phần.

Code như sau:

(defun c:tmp()
  (setq mtxt (car (nentsel "\nChon Text Dim:"))
txt (strcat (cdr (assoc 1 (entget mtxt))) "\\PBlaBla"))
  (entmod (subst (cons 1 txt) (assoc 1 (entget mtxt)) (entget mtxt)))
  (vl-cmdf "regen")
  (princ)
)
 
(defun c:tmp1()
  (defun GeD(v / l en)
    (setq l nil)
    (vlax-for item (vla-item (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
    (cdr (assoc 2 (entget v))))
      (if (= "MTEXT" (cdr (assoc 0 (entget (setq en (vlax-vla-object->ename item))))))
(setq l en))
    ) l
  )
  
  (setq mtxt (Ged (car (entsel "\nChon Dim:")))
txt (strcat (cdr (assoc 1 (entget mtxt))) "\\PBlaBla"))
  (entmod (subst (cons 1 txt) (assoc 1 (entget mtxt)) (entget mtxt)))
  (vl-cmdf "regen")
  (princ)
)

  • 1

#5 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 29 May 2014 - 09:21 PM

Ngắn gọn thì như này :

(command "dimedit" "n" "<>\\PBLABLA")


  • 1