Đến nội dung


Hình ảnh
5 stars - based on 24598 reviews
- - - - -

Xin Giúp Đỡ Nâng Cấp Lisp Chèn Block


  • Please log in to reply
1 reply to this topic

#1 TrNghia.Do

TrNghia.Do

    biết zoom

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

Đã gửi 18 March 2017 - 09:08 AM

Chao cac bac

Em co 1 block bat ki, vi du  "block11.dwg" luu trong thu muc support va doạn ma sau de  goi block11

(defun c:isb (/ p1)

(setq p1 (getpoint "\n Select point:"))

(command "insert" "block11.dwg" p1 "" "" "")
(command "change" "l" "" "p" "la" "Commander" "")
)
Em muon nang cap lisp de sau khi dat block co dong sau : Nhap ti le scale:
sau khi nhap ti le thi block11 se dc scale theo ti le da nhap.
Mong cac bac giup do   ^_^  ^_^  ^_^
Thanks

  • 0

#2 Danh Cong

Danh Cong

    biết lệnh block

  • Moderator
  • PipPipPipPipPipPip
  • 404 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 18 March 2017 - 10:13 AM

 

Chao cac bac

Em co 1 block bat ki, vi du  "block11.dwg" luu trong thu muc support va doạn ma sau de  goi block11

(defun c:isb (/ p1)

(setq p1 (getpoint "\n Select point:"))

(command "insert" "block11.dwg" p1 "" "" "")
(command "change" "l" "" "p" "la" "Commander" "")
)
Em muon nang cap lisp de sau khi dat block co dong sau : Nhap ti le scale:
sau khi nhap ti le thi block11 se dc scale theo ti le da nhap.
Mong cac bac giup do   ^_^  ^_^  ^_^
Thanks

 

 

Thay dòng:

(command "insert".....)

 

Bằng:

(setq scale (getreal "\n Nhap ty le Scale: "))

(command "-insert"  "block11.dwg" p1 scale scale "")


  • 0

            *** Vô lo - Vô nghĩ - Vô sầu hận ***
*** Chẳng thương - Chẳng giận - Chẳng đau lòng ***