Xin lips, nhờ hỗ trợ lips stretch theo 1 giá trị cố định

[Vũ quang Hiếu 0]

Lời đầu xin kính chúc diễn đàn ngày càng phát triển và đóng góp được nhiều cho cho cad Việt

Em thường xuyên dùng lệnh stretch, vấn đề là khi các giá trị stretch giống nhau mà mình cứ phải gõ đi gõ lại khoảng cách thì rất mất thời gian, 

Kính nhờ các bác giúp 1 cái lips làm sao để khi stretch thì giá trị stretch cũ được lưu lại và khi lặp lại lệnh thì sẽ có tuỳ chọn stretch luôn mà không cần nhập lại khoảng cách hoặc nhập khoảng cách mới

Xin cảm ơn diễn đàn

[cuongtk2 429]

Đây nhé: 

(defun c:StretchCustom (/ p1 p2 ss p3 p4 dist ang newp4)
  (prompt "\nChon diem dau cua vung chon: ")
  (setq p1 (getpoint))
  
  (prompt "\nChon diem thu hai cua vung chon: ")
  (setq p2 (getcorner p1))

  ;; Chon cac doi tuong trong vung Cross Window
  (setq ss (ssget "C" p1 p2))
  
  (if ss
      (progn
        (prompt "\nChon diem goc de stretch: ")
        (setq p3 (getpoint))
        
        (prompt "\nChon diem de dinh huong: ")
        (setq p4 (getpoint p3))
        
        ;; Nhap khoang cach stretch tu nguoi dung (mac dinh 100 neu bo qua)
        (setq dist (getreal "\nNhap khoang cach stretch (mac dinh 100): "))
        (if (null dist) (setq dist 100)) ;; Neu khong nhap, dung 100

        ;; Tinh toan goc
        (setq ang (angle p3 p4))
        
        ;; Xac dinh lai diem p4 bang Polar
        (setq newp4 (polar p3 ang dist))

        ;; Thuc hien stretch
        (command "_.STRETCH" "_C" p1 p2 "" p3 newp4)
      )
      (prompt "\nKhong co doi tuong nao trong vung chon.")
  )
  (princ)
)

 

[ketxu 3004]

Lệnh Stretch có sẵn option Displacement để lưu lại vector stretch rồi đó b ^^

 

[cuongtk2 429]

Ừ, đã lâu không cập nhật.