[GIÚP ĐỠ] LISP CẮT DIM ĐO ĐOẠN CUNG TRÒN

[legend_moon 1]

Em có 1 bản vẽ, em đo kích thước rồi nhưng không thẻ nào cắt dim được. Em dùng lisp cắt dim bình thường ạ. Có cao nhân nào chỉ dùm em vấn đề này với nhé. Hoăc có cách nào giải quyết vấn đề này không ạ ? E  cám ơn cả nhà nhiều

vi du test.dwg

[legend_moon 1]

có ai giúp em với ạ 

[legend_moon 1]

cao thủ nào đi qua check dùm e phát với 

[Danh Cong 422]

+ Lisp cắt Dim hiện tại chỉ áp dụng cho đường kích thước thẳng hoặc xiên ( DLI hoặc DAL ). Không áp dụng cho đường kích thước đo cung tròn DAR. 

[legend_moon 1]

2 giờ trước, Danh Cong đã nói:

+ Lisp cắt Dim hiện tại chỉ áp dụng cho đường kích thước thẳng hoặc xiên ( DLI hoặc DAL ). Không áp dụng cho đường kích thước đo cung tròn DAR. 

vậy có cách nào mình cắt được đường dim cung tròn không bác. em nghĩ tới explore dim ra rồi trim nhưng mà thấy nó ngộ ngộ sao quá T_T

[Danh Cong 422]

Hiện tại chưa có lisp nào thực hiện vấn đề này, mà nói chung cũng không khả thi để viết.

Cách đơn giản nhất là bật Property ( Ctrl+1), chỉnh thông số sau cho phù hợp.... dĩ nhiên phải chỉnh bằng tay từng Dim hoặc dùng lệnh "MA" để cho các Dim na ná nhau rồi chỉnh tiếp.

 

[tien2005 242]

Bạn dùng thử xem co được  không. Lệnh là SD2

(vl-load-com)
(defun c:sd2 (/ lstd en hd objTStyle objDoc tstyle m)
  (setvar "cmdecho" 0)

  (princ "\nChon cac DIM can sap xep")
  (setq	lstd (vl-remove-if
	       'listp
	       (mapcar 'cadr (ssnamex (ssget '((0 . "DIMENSION")))))
	     )
  )
  (setq m (getreal "\nHe so nhan: "));dung de chinh chieu dai chan dim theo ty le chieu cao text
  (setq
    en	      (vlax-ename->vla-object (car lstd))
    tstyle    (vla-get-textstyle en)
    objDoc    (vla-get-activedocument (vla-get-application en))
    objTStyle (vla-item (vla-get-textstyles objdoc) tstyle)
    hd	      (vla-get-height objTStyle)
  )
  (if (= hd 0.0)
    (setq hd (vla-get-Textheight en))
  )
  (foreach e1 lstd
    (setq en (vlax-ename->vla-object e1))
    (vla-put-extlinefixedlensuppress en :vlax-true)
    (vla-put-extlinefixedlen en (* m hd))
  )
  (princ)
)

 

[dinhvantrang 151]

ko biết ý chủ thớt có p hải vậy không nhỉ?

 

Nếu đúng thì dùng lệnh DimBreak là được thôi mà

[quocmanh04tt 635]

Vào lúc 8/1/2018 tại 23:06, tien2005 đã nói:

Bạn dùng thử xem co được  không. Lệnh là SD2

• sd2.lsp
  
• [✎]
   

(vl-load-com)
(defun c:sd2 (/ lstd en hd objTStyle objDoc tstyle m)
  (setvar "cmdecho" 0)

  (princ "\nChon cac DIM can sap xep")
  (setq	lstd (vl-remove-if
	       'listp
	       (mapcar 'cadr (ssnamex (ssget '((0 . "DIMENSION")))))
	     )
  )
  (setq m (getreal "\nHe so nhan: "));dung de chinh chieu dai chan dim theo ty le chieu cao text
  (setq
    en	      (vlax-ename->vla-object (car lstd))
    tstyle    (vla-get-textstyle en)
    objDoc    (vla-get-activedocument (vla-get-application en))
    objTStyle (vla-item (vla-get-textstyles objdoc) tstyle)
    hd	      (vla-get-height objTStyle)
  )
  (if (= hd 0.0)
    (setq hd (vla-get-Textheight en))
  )
  (foreach e1 lstd
    (setq en (vlax-ename->vla-object e1))
    (vla-put-extlinefixedlensuppress en :vlax-true)
    (vla-put-extlinefixedlen en (* m hd))
  )
  (princ)
)

 

Mr tien2005, tại sao không cho lisp pick điểm như những  lisp khác nhỉ??? 

[legend_moon 1]

Vào lúc 8/1/2018 tại 23:33, dinhvantrang đã nói:

ko biết ý chủ thớt có p hải vậy không nhỉ?

 

Nếu đúng thì dùng lệnh DimBreak là được thôi mà

Không phải đâu ạ. kiểu giống như cútdim bình thường ý

[legend_moon 1]

Vào lúc 8/1/2018 tại 17:14, Danh Cong đã nói:

Hiện tại chưa có lisp nào thực hiện vấn đề này, mà nói chung cũng không khả thi để viết.

Cách đơn giản nhất là bật Property ( Ctrl+1), chỉnh thông số sau cho phù hợp.... dĩ nhiên phải chỉnh bằng tay từng Dim hoặc dùng lệnh "MA" để cho các Dim na ná nhau rồi chỉnh tiếp.

 

cảm ơn bạn nhiều nghen

[legend_moon 1]

Vào lúc 8/1/2018 tại 23:06, tien2005 đã nói:

Bạn dùng thử xem co được  không. Lệnh là SD2

• sd2.lsp
  
• [✎]
   

(vl-load-com)
(defun c:sd2 (/ lstd en hd objTStyle objDoc tstyle m)
  (setvar "cmdecho" 0)

  (princ "\nChon cac DIM can sap xep")
  (setq	lstd (vl-remove-if
	       'listp
	       (mapcar 'cadr (ssnamex (ssget '((0 . "DIMENSION")))))
	     )
  )
  (setq m (getreal "\nHe so nhan: "));dung de chinh chieu dai chan dim theo ty le chieu cao text
  (setq
    en	      (vlax-ename->vla-object (car lstd))
    tstyle    (vla-get-textstyle en)
    objDoc    (vla-get-activedocument (vla-get-application en))
    objTStyle (vla-item (vla-get-textstyles objdoc) tstyle)
    hd	      (vla-get-height objTStyle)
  )
  (if (= hd 0.0)
    (setq hd (vla-get-Textheight en))
  )
  (foreach e1 lstd
    (setq en (vlax-ename->vla-object e1))
    (vla-put-extlinefixedlensuppress en :vlax-true)
    (vla-put-extlinefixedlen en (* m hd))
  )
  (princ)
)

 

hay quá.. cám ơn bạn nhaé

[quocmanh04tt 635]

Lisp cắt, kéo chân DIM và vị trí DimLine (dùng chung cho 3 loại  "DLI, DAL, DAR") - Thao tác Pick điểm.

Lệnh CD, BD: 

CD_BD.rar