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

[Phu Cuong 0]

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é.

 

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.

[cuongtk2 330]

Cái 1200 thành 1500 làm được, còn stretch về phía nào còn phụ thuộc vào startpoint.

[Phu Cuong 0]

cái này làm như thế nào à anh cuongtk2, có thể sử dụng lệnh như lệnh lengthen - total không anh.

 

[cuongtk2 330]

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)
  )

   

[Doan Van Ha 3.180]

Chú @cuongtk2 chơi một lúc mấy ngôn ngữ code, mà thứ nào cũng rành, thì ai đuổi cho kịp?

[Phu Cuong 0]

cảm ơn anh cuongtk2 nha. Nhưng lisp này em load thì DIM không thay đổi giá trị, báo lỗi như này là bị gì vậy anh.

[cuongtk2 330]

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)
  )

 

[Phu Cuong 0]

em sử dụng thì DIM bị nhảy vẽ phương X, có thể giữ nguyên hướng như cũ không anh.

[cuongtk2 330]

Anh đã nói chỉ mới áp dụng cho Dinlinear(lệnh DLI) thôi. Để có thời gian anh viết tiếp.