Đến nội dung


Hình ảnh
- - - - -

Xin lisp vẽ đường chéo


  • Please log in to reply
3 replies to this topic

#1 Phidoi_gabay

Phidoi_gabay

    biết vẽ rectang

  • Members
  • PipPip
  • 89 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 05 April 2010 - 02:32 PM

Hi các pác. E đang làm cái ctrình này mà nó nhiều lỗ kỹ thuật quá, có bác nào có lisp hoặc cách nào vẽ nhanh 2 đường chéo (ký hiệu lỗ rỗng, lỗ kỹ thuật) trong một hình khép kín như chữ nhật ko ? Bác nào biết chỉ em với, thanks !
  • 0

#2 hoa35ktxd

hoa35ktxd

    biết lệnh move

  • Members
  • PipPipPip
  • 125 Bài viết
Điểm đánh giá: 38 (tàm tạm)

Đã gửi 07 April 2010 - 08:16 PM

Bình thường khi vẽ các cấu kiện giống nhau ta vẽ đầy đủ chi tiết rồi copy, ai lại đi vẽ 1 loạt hình chữ nhật sau đó lại đi vẽ đường chéo cho chúng như thế.
Trường hợp bạn thấy cần thiết thì vẫn có thể làm được bằng Lisp sau với điều kiện các lỗ của bạn phải là polyline.
(defun c:VeDuongCheo()
(setq SS (ssget '((-4 . "")))
SSlen (sslength ss)
I -1
J -1)
(while (setq LWPL (ssname ss (setq I (1+ I))))
(setq LWPL (entget LWPL))
(setq LstPoint '())
(while (setq Att (nth (setq J (1+ J)) LWPL))
(if (= (car Att) 10)
(setq LstPoint (append Lstpoint (list att)))
)
)
(setq J -1)
(command "LINE" (cdr (nth 0 LstPoint)) (cdr (nth 2 LstPoint)) "")
(command "LINE" (cdr (nth 1 LstPoint)) (cdr (nth 3 LstPoint)) "")
)
)

  • 0

#3 phatgtvt

phatgtvt

    Chưa sử dụng CAD

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

Đã gửi 17 July 2016 - 08:53 AM

Mấy a giúp dùm e viết 1 lisp vẽ đường chéo hình chữ nhật với.

E có 10 khung in hình chữ nhật (khổ A3), e muốn viết lisp nối đường chéo khung. Khi ta nhập lệnh, chọn 10 khung thì lisp sẽ vẽ 1 polyline nối 10 đường chéo khung hình chữ nhật lại với nhau và đánh số thứ tự từ 1 -10 tại mỗi hình chữ nhật. (polyline và số dùng layer depoint để ko in ra).

Cám ơn mọi người nhiều lắm.


  • 0

#4 VUVUZELA

VUVUZELA

    biết lệnh chamfer

  • Members
  • PipPipPipPip
  • 210 Bài viết
Điểm đánh giá: 97 (tàm tạm)

Đã gửi 18 July 2016 - 02:47 PM

:)


  • 0

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong