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

Lisp thay đổi chiều dài DIM như lệnh Lengthen

Các bài được khuyến nghị

Chào các anh em.

 

Trong Cad có lệnh nào thay đổi chiều dài đường DIM như dùng lệnh Lengthen thay đổi chiều dài Line không nhỉ, anh em nào biết chỉ giáo giúp nhé.

image.png.d61571f780b81c4dd0963b71b7ac6281.png

 

Như đường DIM này mình muốn về 1200 ngoài cách STRETCH về 300. Nếu như line thì mìnhlengthen - total  rồi nhập 1200 pick vào là được, còn DIM thì không biết có cách nào hay hơn không.

 

Cảm ơn anh em.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Anh nhầm, trong cad không có lệnh này vì hầu như vẽ xong mới đo, nhưng có thể tạo ra 1 lệnh mô phỏng lại ý của em. Tất nhiên mới chỉ viết cho Dimlinear, và còn thô

(defun c:test(/ D1 D2 DIM ENT GOC P13 P14 P2 SCALE STYLE)
(setq ent (car (entsel "\nPick dim"))
      dim (entget ent)
      style (entget (TBLOBJNAME "dimstyle" (acet-dxf 3 dim)))
      
      p13 (acet-dxf 13 dim)
      p14 (acet-dxf 14 dim)
      goc (acet-dxf 50 dim)
      
      scale (acet-dxf 144 style)
      

      d1 (GETDIST "\nGia tri moi<100>:")
      )
  (if (null d1) (setq d1 100))
  
  (setq d2 (/ d1  scale)
      p2 (polar p14 goc d2)
      
      )
(setq dim (subst (cons 13 p2) (assoc 13 dim) dim)      )
(entmod dim)
(entupd ent)
(princ)
  )

   

  • Like 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Anh lúc test với tỉ lệ 1-2 nên không để ý trường hợp 1-1

(defun c:test(/ D1 D2 DIM ENT GOC P13 P14 P2 SCALE STYLE)
(setq ent (car (entsel "\nPick dim"))
      dim (entget ent)
      style (entget (TBLOBJNAME "dimstyle" (acet-dxf 3 dim)))
      
      p13 (acet-dxf 13 dim)
      p14 (acet-dxf 14 dim)
      goc (acet-dxf 50 dim)
      
      scale (acet-dxf 144 style)
      

      d1 (GETDIST "\nGia tri moi<100>:")
      )
  (if (null scale) (setq scale 1.0));; voi dimscale bang 1
  (if (null d1) (setq d1 100))
  
  (setq d2 (/ d1  scale)
      p2 (polar p14 goc d2)
      
      )
(setq dim (subst (cons 13 p2) (assoc 13 dim) dim)      )
(entmod dim)
(entupd ent)
(princ)
  )

 

  • Like 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

×