Đến nội dung


Hình ảnh
* * * - - 8 Bình chọn

Viết lisp theo yêu cầu [phần 2]


  • Chủ đề bị khóa Chủ đề bị khóa
3783 replies to this topic

#1561 Hoa Trang trắng

Hoa Trang trắng

    biết vẽ ellipse

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

Đã gửi 18 August 2010 - 09:34 AM

Lâu rồi kg có dịp làm phiền các bác, em có việc này nhờ các bác giúp.
Em có 1 file số liệu gồm tọa độ X, Y, và tên điểm, giá trị cao độ, các bác giúp em viết lisp làm sao để khi bắn điểm lên mình có thể cho hiện cột tên điểm đó hoặc hiển thị giá trị cao độ theo ý mình.
Em cám ơn ạ.
  • 0

#1562 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 18 August 2010 - 09:57 AM

Lâu rồi kg có dịp làm phiền các bác, em có việc này nhờ các bác giúp.
Em có 1 file số liệu gồm tọa độ X, Y, và tên điểm, giá trị cao độ, các bác giúp em viết lisp làm sao để khi bắn điểm lên mình có thể cho hiện cột tên điểm đó hoặc hiển thị giá trị cao độ theo ý mình.
Em cám ơn ạ.

Những yêu cầu như này cứ là kèm theo file số liệu và file dwg minh họa + giải thích ý muốn của bạn thì dể cho mọi người hơn bạn ạ!
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#1563 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 18 August 2010 - 12:35 PM

Trong Express có lệnh XLIST có thể truy cập các thuộc tính của 1 đối tượng trong block nên việc này chắc là được. Nhưng block trong block thì lệnh XLIST chưa đáp ứng đc.

Chào bác Duy782006,
Bác cho mình hỏi thêm về cách sử dụng lệnh Xlist này với. Khi mình sử dụng thì thấy có một số vấn đề như sau:
1/- Lệnh này chỉ xài được với các block tổ hợp từ nhiều đối tượng và phải chọn một trong các đối tượng này , Khi đó nó trả về một bảng liệt kê các thông số của đối tượng như loại đối tượng, lớp của đối tượng, màu của đối tượng, ltype của đối tượng....
2/- Từ bảng này làm sao để lấy được các thông số này đưa vào sử dụng trong lisp???
3/- Trong trường hợp block được tạo từ các block thì việc truy xuất mới thực hiện được, còn nếu block được tạo từ các đối tượng khác sẽ không truy xuất được bác ạ.
Bác chỉ dẫn thêm cho mình nhé. Cám ơn bác trước.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1564 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 18 August 2010 - 01:45 PM

Chào bác Duy782006,
Bác cho mình hỏi thêm về cách sử dụng lệnh Xlist này với. Khi mình sử dụng thì thấy có một số vấn đề như sau:
1/- Lệnh này chỉ xài được với các block tổ hợp từ nhiều đối tượng và phải chọn một trong các đối tượng này , Khi đó nó trả về một bảng liệt kê các thông số của đối tượng như loại đối tượng, lớp của đối tượng, màu của đối tượng, ltype của đối tượng....
2/- Từ bảng này làm sao để lấy được các thông số này đưa vào sử dụng trong lisp???
3/- Trong trường hợp block được tạo từ các block thì việc truy xuất mới thực hiện được, còn nếu block được tạo từ các đối tượng khác sẽ không truy xuất được bác ạ.
Bác chỉ dẫn thêm cho mình nhé. Cám ơn bác trước.

Èo cái nhà bác Bình này. Em đã nói là thấy có Lệnh Xlist ko cần phá block mà vẩn lấy đc thuộc tính đối tượng bên trong nên đoán yêu cầu của bạn í chắc làm đc bằng lisp chứ em có viết đc đâu mừ. :D
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#1565 Hoa Trang trắng

Hoa Trang trắng

    biết vẽ ellipse

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

Đã gửi 18 August 2010 - 03:07 PM

Những yêu cầu như này cứ là kèm theo file số liệu và file dwg minh họa + giải thích ý muốn của bạn thì dể cho mọi người hơn bạn ạ!

Hơ hơ, xin lỗi, em upload file từ nãy đến giờ mà nó kg cho, nó báo lỗi 102. Em thua.
Đại loại thế này:
Trong Excel có 3 cột: X, Y, giá trị.
em có thể bắn điểm lên với tọa độ X, Y đó, nhưng em kg biết cách dán cái nhãn giá trị kia vào kiểu gì, hic hic.........toàn phải nhập bằng tay.............kinh khủng.
Các bác giúp em với. Em cám ơn ạ.
  • 0

#1566 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 18 August 2010 - 03:21 PM

Hơ hơ, xin lỗi, em upload file từ nãy đến giờ mà nó kg cho, nó báo lỗi 102. Em thua.
Đại loại thế này:
Trong Excel có 3 cột: X, Y, giá trị.
em có thể bắn điểm lên với tọa độ X, Y đó, nhưng em kg biết cách dán cái nhãn giá trị kia vào kiểu gì, hic hic.........toàn phải nhập bằng tay.............kinh khủng.
Các bác giúp em với. Em cám ơn ạ.

Hề hề hề,...
Quả là kinh khủng thật. Nhất là chưa biết cái cấu tạo của file Excel của bạn nữa, ba cột nhưng nó nằm ở vị trí nào chớ, cột A,B,C hay cột X,Y,Z. Lại còn số liệu bắt đầu từ dòng nào nữa chứ ??? dòng 2 hay dòng 200??? Hề hề hề.
Thôi thì bạn chịu khó một chút, (cho dù có hơi khó chịu) tìm cách post cả file excel và file bản vẽ kết quả lên nhé. Post lên diễn đàn không được thì post lên các trang khác rồi gửi link vậy. Hề hề hề, chịu khó nha.
Chúc bạn cười to, hề hề hề,....
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1567 tnmtpc

tnmtpc

    biết dimcontinue

  • Members
  • PipPipPipPipPip
  • 370 Bài viết
Điểm đánh giá: 206 (khá)

Đã gửi 18 August 2010 - 03:38 PM

Hơ hơ, xin lỗi, em upload file từ nãy đến giờ mà nó kg cho, nó báo lỗi 102. Em thua.
Đại loại thế này:
Trong Excel có 3 cột: X, Y, giá trị.
em có thể bắn điểm lên với tọa độ X, Y đó, nhưng em kg biết cách dán cái nhãn giá trị kia vào kiểu gì, hic hic.........toàn phải nhập bằng tay.............kinh khủng.
Các bác giúp em với. Em cám ơn ạ.

Khuyên bạn nên dùng chương trình rapiddxf, đã giới thiệu trên diễn đàn, chương trình này rất nhẹ, chạy độc lập, chấp nhận tất cả các kiểu file kể cả excel và chấp nhận file có số cột dữ liệu tùy ý do người dùng chọn, cho phép hiển thị nhãn theo yêu cầu người dùng. Tìm trên diễn đàn với từ khóa rapiddxf 4.0
  • 1

#1568 Hoa Trang trắng

Hoa Trang trắng

    biết vẽ ellipse

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

Đã gửi 18 August 2010 - 03:40 PM

Hề hề hề,...
Quả là kinh khủng thật. Nhất là chưa biết cái cấu tạo của file Excel của bạn nữa, ba cột nhưng nó nằm ở vị trí nào chớ, cột A,B,C hay cột X,Y,Z. Lại còn số liệu bắt đầu từ dòng nào nữa chứ ??? dòng 2 hay dòng 200??? Hề hề hề.
Thôi thì bạn chịu khó một chút, (cho dù có hơi khó chịu) tìm cách post cả file excel và file bản vẽ kết quả lên nhé. Post lên diễn đàn không được thì post lên các trang khác rồi gửi link vậy. Hề hề hề, chịu khó nha.
Chúc bạn cười to, hề hề hề,....

Èo, em chịu thôi, kiến thức In tờ net của em chỉ đến độ a bờ cờ, bác bảo em post lên trang khác thì em chịu, bác cho em xin cái mail em gửi rồi bác up hộ em vậy. Thôi, có giúp thì giúp cho chót, rồi bữa nào bác rảnh em mời bác 1 chầu được kg? :D
  • 0

#1569 Hoa Trang trắng

Hoa Trang trắng

    biết vẽ ellipse

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

Đã gửi 18 August 2010 - 04:04 PM

Èo, em chịu thôi, kiến thức In tờ net của em chỉ đến độ a bờ cờ, bác bảo em post lên trang khác thì em chịu, bác cho em xin cái mail em gửi rồi bác up hộ em vậy. Thôi, có giúp thì giúp cho chót, rồi bữa nào bác rảnh em mời bác 1 chầu được kg? :D

Em tìm được cách làm kg cần thông qua lisp của bác tuenv rồi. Em cảm ơn ạ
  • 0

#1570 ksor_phong

ksor_phong

    biết vẽ circle

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

Đã gửi 18 August 2010 - 04:50 PM

Chào bạn Ksor Phong,
Thật tình chưa hiểu bạn muốn gì???? Bạn cần hiểu kỹ hơn vể đối tượng Block. Nếu bạn không cho explore block thì làm sao để chỉnh sửa nó được nhỉ??? Vì sao bạn lại cần làm như vậy??? Nếu phá nó ra chỉnh sửa xong rồi block lại có được không (tất nhiên là lúc này bạn phải tạo thêm block mới trên bản vẽ của bạn nếu như bạn không muốn mất đi block nguyên thủy của nó) ???
Cái ý lấy màu Bylayer của bạn là theo layer nào??? Layer mà block được đưa vào hay layer của các đối tượng có trong block??? Bạn nên nhớ rằng một block có thể được đưa vào nhiều layer khác nhau nhưng màu của các đối tượng có trong block không hề thay đổi gì cho dù mỗi layer có một màu khác nhau. Vậy nên bạn cần xác định rõ mới có thể xử lý được bạn ạ......
Chúc bạn vui,...


Trước hết xin cám ơn các bác đã quan tâm giúp đỡ.
Sở dĩ em cần làm vậy vì trong các bản vẽ hiện trạng dung lượng rất lớn (có khi đến cả 500MB CAD) edit từng block là điều rất khó vì nó có vài trăm block; vài chục layer, mỗi thằng định dạng một kiểu, nên em muốn tất cả các đối tượng về một layer, màu: bylayer của đối tượng gốc chứ không phải của layer chứa block, được vậy thì cám ơn các bác lắm.
Gửi các bác một file mẫu:
  • 0

#1571 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 18 August 2010 - 08:33 PM

Trước hết xin cám ơn các bác đã quan tâm giúp đỡ.
Sở dĩ em cần làm vậy vì trong các bản vẽ hiện trạng dung lượng rất lớn (có khi đến cả 500MB CAD) edit từng block là điều rất khó vì nó có vài trăm block; vài chục layer, mỗi thằng định dạng một kiểu, nên em muốn tất cả các đối tượng về một layer, màu: bylayer của đối tượng gốc chứ không phải của layer chứa block, được vậy thì cám ơn các bác lắm.
Gửi các bác một file mẫu:

Chào bạn ksor phong,
1/- Việc chuyển các đối tượng về cùng một layer nào đó không khó, tuy nhiên với các đối tượng đang có màu là bylayer thì việc chuyển này sẽ làm cho màu của chúng chuyển thành màu của layer này. Bạn có chấp nhận như vậy không???
2/- Việc bạn muốn đổi màu của các đối tượng nằm trong block thì với các đối tượng thuộc tính có thể đổi được nhưng với các đối tượng không phải thuộc tính thì mình chưa có giải pháp nào hữu hiệu cả. Tuy nhiên do các thuộc tính thường có màu là bylayer rồi nên việc bạn yêu cầu là hơi khó hiểu.
3/- Nếu như bạn muốn thay đổi cả lớp của các thuộc tính này về cùng một lớp nào đó thì khi thay đổi lớp màu cũng sẽ thay đổi theo do các thuộc tính thường có màu là bylayer.
4/- Nếu như bạn muốn thay đổi lớp của thuộc tính nhưng không thay đổi màu thì cũng có thể giải quyết được bằng cách bổ sung mã màu cho thuộc tính.

Vậy nên tốt nhất bạn hãy cung cấp một bản vẽ thể hiện rõ tình trạng trước khi bạn sử dụng lisp và cái kết quả bạn muốn có bạn nhé.
Chúc bạn vui,....
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1572 ToTo08

ToTo08

    biết vẽ line

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

Đã gửi 18 August 2010 - 10:44 PM

Mình cần 1 lisp xuất các text theo thứ tự được chọn ra file txt có sự lựa chọn theo hàng hoặc cột. Các bạn giúp mình với.
  • 0

#1573 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 19 August 2010 - 04:39 PM

Mình cần 1 lisp xuất các text theo thứ tự được chọn ra file txt có sự lựa chọn theo hàng hoặc cột. Các bạn giúp mình với.

Chào bạn ToTo08,
Hề hề hề,
Chả biết bạn cần xuất ra file text dạng nào nên tớ cứ gửi tạm bạn cái lisp này, nó xuất các text bạn lựa chọn ra thành một cột trong file dữ liệu dạng excel.
Nếu bạn muốn chuyển thành dạng hàng cũng không khó lắm, chỉ phải sửa lại một tí ở trong code.
Hy vọng bạn có cái xài tạm. Nếu cần gì thêm thì pót lên nhé.

(defun WriteToExcel (lst_data / col row x xlApp xlCells)
(setq xlApp (vlax-get-or-create-object "Excel.Application")
xlCells (vlax-get-property
(vlax-get-property
(vlax-get-property
(vlax-invoke-method
(vlax-get-property xlApp "Workbooks")
"Add")
"Sheets")
"Item" 1)
"Cells"))
(setq row 1)
(foreach pt lst_data
(setq col 1)
(foreach coor pt
(vlax-put-property xlCells 'Item row col coor)
(setq col (1+ col)))
(setq row (1+ row)) )
(vla-put-visible xlApp :vlax-true)
(mapcar
(function (lambda (x)
(vl-catch-all-apply
(function (lambda ()(if x (vlax-release-object x)))))))
(list xlCells xlApp))
(gc) (gc) )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:t2e (/ ss n i en els txt ltxt)
(setq ss (ssget '((0 . "text")))
n (sslength ss)
i 0
ltxt (list))
(while (< i n)
(setq en (ssname ss i)
els (entget en)
txt (cdr (assoc 1 els))
ltxt (append ltxt (list (list txt)))
i (1+ i))
)
(writetoexcel ltxt)
(princ)
)


Lisp này mình dựa trên lisp pt2exl.lsp sưu tầm trên diễn đàn, chỉ sửa lại phần tạo danh sách text thay vì danh sách các point mà thôi.
Chúc bạn vui.
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1574 ToTo08

ToTo08

    biết vẽ line

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

Đã gửi 19 August 2010 - 08:52 PM

Lisp chạy rất ổn xuất thẳng text ra file excel ở dạng cột. Nếu lisp hoàn thiện thêm phần xuất text ra hàng thì thật tốt. Cám ơn bạn phamthanhbinh nha.
  • 0

#1575 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 20 August 2010 - 10:25 AM

Lisp chạy rất ổn xuất thẳng text ra file excel ở dạng cột. Nếu lisp hoàn thiện thêm phần xuất text ra hàng thì thật tốt. Cám ơn bạn phamthanhbinh nha.

Bạn tìm dòng :
(vlax-put-property xlCells 'Item row col coor)

Thay thành dòng :
(vlax-put-property xlCells 'Item col row coor)
-> xuất text ra hàng
  • 2

#1576 bachngoctung

bachngoctung

    biết lệnh copy

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

Đã gửi 20 August 2010 - 11:35 AM

- Mình có một vấn đề này cần các bạn viết lisp cho mình (xem hình vẽ nhé).
Hình đã gửi
-Cụ thể cấu trúc lisp như sau:
+ Chọn vào các text ở hình 1
+ Nhập Bán kính đường tròn ( có luôn cả wipeout nhé)
+ Cho kết quả như hình 2
- A em thử xem giúp mình cái nhé, cám ơn nhiều :D
  • 0

#1577 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 106 (tàm tạm)

Đã gửi 20 August 2010 - 01:42 PM

- Em không biết diễn đàn đã có bài nào về vấn đề này chưa? Nếu đã có thì nhờ mọi người giúp đỡ link, Nếu chưa em mong nhận được câu trả lời từ diễn đàn.
Em muốn tìm hiểu về lệnh "Pan". Dựa vào đâu mà khi thực hiện lệnh Pan, con trỏ cho chọn vị trí thứ nhất điểm I toạ độ (x1, y1) Rồi ta kéo rê đến vị trí thứ hai điểm II toạ độ (x2, y2) thì màn hình tịnh tiến đến vị trí mới. Em nhờ diễn đàn viết giúp 1 lisp (hàm pp), hàm yêu cầu pick điểm nguồn (điểm I)/toạ độ (x1,y1). Sau đó hàm yêu cầu pick điểm đích (điểm II)/nhập toạ độ (x2,y2). Sau đó hàm pp thực hiện chức năng "pan" sang vị trí mới.
Xin chân thành cảm ơn diễn đàn.
  • 0

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#1578 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 20 August 2010 - 02:32 PM

- Mình có một vấn đề này cần các bạn viết lisp cho mình (xem hình vẽ nhé).
Hình đã gửi
-Cụ thể cấu trúc lisp như sau:
+ Chọn vào các text ở hình 1
+ Nhập Bán kính đường tròn ( có luôn cả wipeout nhé)
+ Cho kết quả như hình 2
- A em thử xem giúp mình cái nhé, cám ơn nhiều :D

Thử cái này xem:


(Defun c:trt ( )
(princ "\nPHAM QUOC DUY Binh Son - Quang ngai")
(command "undo" "be")
(Princ "\nHay chon doi tuong :")
(setq SS (ssget '((0 . "TEXT"))))

(setq bkt (getstring "\nBan kinh vong tron:"))

(setq i 0)
(setq N (sslength ss))
(while (< i N)
(setq TEXTENT (ssname SS i))
(setq luubatdiem (getvar "osmode"))
(setvar "osmode" 0)
(command "ucs" "object" textent)
(setq tbTB (textbox (list (cons -1 textent)))
ll (car tbTB)
ur (cadr tbTB)
ul (list (car ll) (cadr ur))
lr (list (car ur) (cadr ll))
)

(setq daitext (distance ul lr))
(setq goctext(angle ul lr))
(setq dainuatext (/ daitext 2))
(setq diemquay (polar ul goctext dainuatext))

(command ".circle" diemquay bkt)
(command ".polygon" "30" diemquay "" bkt)
(command ".wipeout" "" "last" "y")
(command ".copy" textent "" diemquay diemquay)
(command ".erase" "Previous" "")
(command "ucs" "p")
(setq i (1+ i))
(setvar "osmode" luubatdiem)
)
(command "undo" "end")
(Princ)
)

  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#1579 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 20 August 2010 - 02:44 PM

- Em không biết diễn đàn đã có bài nào về vấn đề này chưa? Nếu đã có thì nhờ mọi người giúp đỡ link, Nếu chưa em mong nhận được câu trả lời từ diễn đàn.
Em muốn tìm hiểu về lệnh "Pan". Dựa vào đâu mà khi thực hiện lệnh Pan, con trỏ cho chọn vị trí thứ nhất điểm I toạ độ (x1, y1) Rồi ta kéo rê đến vị trí thứ hai điểm II toạ độ (x2, y2) thì màn hình tịnh tiến đến vị trí mới. Em nhờ diễn đàn viết giúp 1 lisp (hàm pp), hàm yêu cầu pick điểm nguồn (điểm I)/toạ độ (x1,y1). Sau đó hàm yêu cầu pick điểm đích (điểm II)/nhập toạ độ (x2,y2). Sau đó hàm pp thực hiện chức năng "pan" sang vị trí mới.
Xin chân thành cảm ơn diễn đàn.

Mình cũng chả biết nó dựa vào đâu nhưng lisp thì như này:
(defun c:ppan ( )
(setq a (getpoint "\nChon diem xuat phat: "))
(setq b (getpoint a"\nChon diem den: "))
(command ".pan" a b "")
(Princ))

  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#1580 tungtv2

tungtv2

    Chưa sử dụng CAD

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

Đã gửi 20 August 2010 - 02:44 PM

Mình rất thích lisp in MPL của bác Hoành wub.gif wub.gif
Rất mong bác sớm chỉnh sửa, bổ sung để có thể in được trong Layout.
Nếu version mới ra đời xin gửi cho mình 1 bản vào Email: ktdb@itcvn.vn cheers.gif cheers.gif
Xin cảm ơn!
  • 0