Đến nội dung


Hình ảnh
- - - - -

[Yêu Cầu] Lisp Scale Theo Đối Tượng Mẫu


  • Please log in to reply
11 replies to this topic

#1 pdhuyxn2

pdhuyxn2

    biết vẽ circle

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

Đã gửi 26 February 2016 - 11:25 AM

Nhờ các Bác viết hộ lisp .

 

Em có 2 block .

Trong đó có 1 block (mẫu) bây giờ em scale blocke 2 sao cho cạnh A’B’ và A’’B’’ bằng với kích thước của cạnh AB của Block mẫu.

Cám ơn Các Bác!http://www.cadviet.c...khungbcktkt.dwg


  • 0

#2 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 26 February 2016 - 10:43 PM

Bạn thử cái này xem: (scale 1 lúc nhiều khung - Chọn vào block, không cần chọn vào cạnh)

(defun c:tt  (/ bk1 bkx bp2 ds1 dsx i lp1 lp2 obj ss)
 (and (setq bk1 (car (entsel "\nChon mau: ")))
      (princ "\nChon blks scale:")
      (setq ss (ssget '((0 . "INSERT"))))
      (setq lp1 (acet-ent-geomextents bk1)
            ds1 (distance (car lp1) (list (caar lp1) (cadadr lp1))))
      (repeat (setq i (sslength ss))
       (setq bkx (ssname ss (setq i (1- i)))
             lp2 (acet-ent-geomextents bkx)
             dsx (distance (car lp2) (list (caar lp2) (cadadr lp2)))
             obj (vlax-ename->vla-object bkx)
             bp2 (vla-get-insertionpoint obj))
       (vla-ScaleEntity obj bp2 (/ ds1 dsx))))
 (princ))

  • 0

#3 pdhuyxn2

pdhuyxn2

    biết vẽ circle

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

Đã gửi 27 February 2016 - 08:29 AM

Cám ơn Bác

Lisp của Bác em sử dụng nhưng không scale được Mong Bác và Anh Em trên diễn đàn xem lại lisp có bị lỗi gì không nhé.

Em chạy trên cad2008.


  • -1

#4 Kỳ Đặng Quốc

Kỳ Đặng Quốc

    Chưa sử dụng CAD

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

Đã gửi 27 February 2016 - 08:46 AM

Chào mọi ng, e mới tham gia diễn đàn, mong m.ng chỉ giáo. Hiện e đang làm cho 1 cty khuôn dùng yanxiu 2.81. Có ai cũng dùng  hay biết về p.mem này ko ạ??? Tksss all.


  • 0

#5 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 27 February 2016 - 09:30 AM

Cám ơn Bác

Lisp của Bác em sử dụng nhưng không scale được Mong Bác và Anh Em trên diễn đàn xem lại lisp có bị lỗi gì không nhé.

Em chạy trên cad2008.

Bạn chụp ảnh màn hình gửi lên xem sao!

Nghi vấn:

1. Chưa cài Express

2. Chưa load Vlisp -> thêm cái này (vl-load-com) vào đầu hoặc cuối lsp.


  • 0

#6 pdhuyxn2

pdhuyxn2

    biết vẽ circle

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

Đã gửi 27 February 2016 - 11:48 AM

Em Ơn Bác Nhiều


  • 0

#7 pdhuyxn2

pdhuyxn2

    biết vẽ circle

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

Đã gửi 27 February 2016 - 03:06 PM

Lisp này chỉ sử dụng được khi copy lisp vào ổ C.

Khi copy lisp sang chỗ khác thì bị lỗi.Bác có thể chỉnh lại giúp em khắc phục lỗi đó được không ạ.

Cám ơn Bác. 


  • -1

#8 pdhuyxn2

pdhuyxn2

    biết vẽ circle

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

Đã gửi 29 February 2016 - 09:01 AM

Nhờ Các Bác Hoàn thiện

Lisp


  • 0

#9 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 29 February 2016 - 10:00 AM

+ Lsp này chẳng liên quan gì đến ổ C hay D... Thậm chí không copy vào ổ nào nó cũng chạy (Bạn thử copy nội dung lsp ở trên và paste vào dòng command).

+ Bạn hai lần kêu lỗi, vậy cụ thể là lỗi thế nào, Cad nó báo thể nào...Chụp hình gửi lên đây.

(Gửi bạn câu chuyện: Trong hiệu thuốc ...

- Khách : Chị bán cho em ít thuốc chữa bệnh!

- Người bán hàng: Em bị gì vậy?

- Khách: Dạ... Em bị bệnh ạ...!

- Người bán hàng: Biến con mẹ mày đi để tao còn làm ăn...)


  • 1

#10 pdhuyxn2

pdhuyxn2

    biết vẽ circle

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

Đã gửi 29 February 2016 - 11:09 AM

Gửi báchttp://www.cadviet.c...062_command.rar


  • 0

#11 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 314 (khá)

Đã gửi 29 February 2016 - 11:22 AM

- Với thư mục chứa lsp của bạn (bạn thử copy 1 lsp khác vào xem thử có load được không???)

- Cái thư mục chứa file lsp, bạn đừng để tiếng việt có dấu (ScaletheodoitươngMau).


  • 0

#12 pdhuyxn2

pdhuyxn2

    biết vẽ circle

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

Đã gửi 29 February 2016 - 11:37 AM

Vâng Cám ơn Bác


  • 0