Đến nội dung


Hình ảnh
* * * * * 1 Bình chọn

Nhờ sửa lisp tọa độ vc và td1


  • Please log in to reply
4 replies to this topic

#1 031113

031113

    biết zoom

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

Đã gửi 26 August 2013 - 02:14 PM

Hiện em đang dùng 2 lisp vc và td1 để xuất tọa độ nhưng:

1, lisp vc và lisp td1 khi em dung xong thì bị mất bắt điểm (mỗi lần dung xong em laik phải bật lại rất bất tiện) em muốn nhờ các anh chỉnh dùm em.

2, lisp vc của em khi em nhập tọa độ với giá trị lớn vd: N:2331084499/E:457982965 làm cho phần số tràn ra khỏi khung mong anh chị chinh hộ em phần khung này to ra hơn 1 chút (to bằng cái ô STT là đc rồi ạ)

Em không biết gì về hiệu chỉnh lisp mong các anh giúp em. Em xin cảm ơn.

http://www.cadviet.c...3/108640_vc.lsp

http://www.cadviet.c...td1__toa_do.lsp


  • 0

#2 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 26 August 2013 - 03:45 PM

Hiện em đang dùng 2 lisp vc và td1 để xuất tọa độ nhưng:

1, lisp vc và lisp td1 khi em dung xong thì bị mất bắt điểm (mỗi lần dung xong em laik phải bật lại rất bất tiện) em muốn nhờ các anh chỉnh dùm em.

2, lisp vc của em khi em nhập tọa độ với giá trị lớn vd: N:2331084499/E:457982965 làm cho phần số tràn ra khỏi khung mong anh chị chinh hộ em phần khung này to ra hơn 1 chút (to bằng cái ô STT là đc rồi ạ)

Em không biết gì về hiệu chỉnh lisp mong các anh giúp em. Em xin cảm ơn.

http://www.cadviet.c...3/108640_vc.lsp

http://www.cadviet.c...td1__toa_do.lsp

Hề hề hề,

1/- về lisp VC: Việc mất truy bắt điểm do cái dòng code (setvar "osmode" 0) đặt sai chỗ. Bạn hãy chuyển nó xuống ngay dưới đoạn code

(setq 

      p00 ....

      p0 ...

      pvL ....

      oldos .....

)

Chưa rõ bạn muốn thế nào vì thực tế theo lisp thì cột STT có độ rộng là 4h chỉ bằng 1/2 độ rộng của các cột X, Y là 8h. Nay bạn lại muốn các cột X va Y có độ rộng bằng cột STT là 4h thì chật càng thêm chật bạn ạ.

Còn nếu bạn muốn tăng độ rộng của các cột này thêm 4h nữa tức là 12 h thì bạn phải sửa khá nhiều:

- Thay dòng code (command "array" "L" "" "r" 1 3 (* 8 h)) bằng dòng code (command "array" "L" "" "r" 1 3 (* 12 h))

- Thay dòng code (linepx (polar p0 (* 1.5 pi) (* 3 h)) (* 20 h)) bằng dòng code (linepx (polar p0 (* 1.5 pi) (* 3 h)) (* 28 h))

- Thay dòng code (linepx p0 (* 20 h)) bằng dòng code (linepx p0 (* 28 h))

- Thay dóng code: p2 (polar p1 0 (* 6 h)) bằng dòng code: p2 (polar p1 0 (* 8 h))

- Thay dòng code: p3 (polar p2 0 (* 8 h)) bằng dòng code p3 (polar p2 0 (* 12 h))

 

2/- về lisp td1 không có lỗi gì cần sửa cả. Trong lisp đã trả truy bắt điểm về như cũ trước khi chạy lisp rồi. ba5n chỉ cần làm đúng và đủ các thao tác mà lisp yêu cầu là OK.

 

CHÚC BẠN VUI.

 

(setq
    p00 (getpoint "\nDiem chuan bang toa do (phia tren ben trai):")
    p0 p00
    pvL (reverse (getvert et))
    oldos (getvar "osmode")
)

  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#3 031113

031113

    biết zoom

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

Đã gửi 28 August 2013 - 12:14 AM

Em rất cảm ơn anh phamthanhbinh đã giúp đỡ em đã chỉnh theo anh hướng dẫn và đã thành công. Một lần nữa cảm ơn anh ^^


  • 0

#4 thanhbdhl

thanhbdhl

    Edu level: li3

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

Đã gửi 24 November 2013 - 09:45 AM

Chào a phamthanhbinh e có lisp cần sủa chút ming a gíup đỡ.

Cái lisp BTD rất hay nhưng nhờ a thêm chút nữa dc không a.

1. khí chay lisp thì hiện luôn stt đỉnh thửa

2. thể hiện được khoảng cách cạnh trên thửa

3. chỉ điểm đầu, sau đó pic vào thửa là chạy ra dc bảng số liệu theo chiều thuận hoắc nguợc kim đồng hồ do mình chọn.

Nếu có không phiền bác cho e xin sdt có gì e nhờ bác và các chuyên gia chỉ bảo thêm

đây là bản mẫu và các lisp e dung để kết hợp. mong bác giúp đỡ sớm

http://www.cadviet.c...24710_sos_1.dwg

http://www.cadviet.c..._1285_btd_2.lsp

http://www.cadviet.c.../124710_tdd.lsp


  • 0

#5 thanhbdhl

thanhbdhl

    Edu level: li3

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

Đã gửi 24 November 2013 - 09:46 AM

Chào a phamthanhbinh e có lisp cần sủa chút ming a gíup đỡ.

Cái lisp BTD rất hay nhưng nhờ a thêm chút nữa dc không a.

1. khí chay lisp thì hiện luôn stt đỉnh thửa

2. thể hiện được khoảng cách cạnh trên thửa

3. chỉ điểm đầu, sau đó pic vào thửa là chạy ra dc bảng số liệu theo chiều thuận hoắc nguợc kim đồng hồ do mình chọn.

Nếu có không phiền bác cho e xin sdt có gì e nhờ bác và các chuyên gia chỉ bảo thêm

http://www.cadviet.c...24710_sos_2.dwg


  • 0