Đến nội dung


Hình ảnh
- - - - -

Nhờ giúp mã lisp lấy tên file hiện hành


  • Please log in to reply
2 replies to this topic

#1 trinhhai_vp

trinhhai_vp

    Chưa sử dụng CAD

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

Đã gửi 25 February 2009 - 09:51 AM

1./ Nhờ các cao thủ giúp cho đoạn mã xử lý chuỗi như sau:
VD: 1+000 thành 1000; 12+000 thành 12000
................................................................................
.....
2./ Nhờ tạo giớp đoạn lisp lấy tên File bản vẽ hiện tại (Bỏ đi phần đuôi mở rộng: .dwg)
  • 0

#2 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 25 February 2009 - 10:37 AM

1./ Nhờ các cao thủ giúp cho đoạn mã xử lý chuỗi như sau:
VD: 1+000 thành 1000; 12+000 thành 12000

Hai trường hợp bạn nêu ra khó mà tổng quát lại thành yêu cầu thống nhất được, bạn làm rỏ xem bạn thích như nào nhé:
-Cứ thấy dấu + thì bỏ đi.
-Đếm từ sau tới trước 3 số rồi bỏ đi số thứ 4.
-Cứ trước ba con số 0 thì bỏ đi 1 ký tự.
2./ Nhờ tạo giớp đoạn lisp lấy tên File bản vẽ hiện tại (Bỏ đi phần đuôi mở rộng: .dwg)
-Đoạn lấy tên bản vẽ chắc bạn biết rồi.
-Dùng strlen đếm ký tự chuổi vừa thu được. Trừ nó đi cho 4
-Dùng substr để lấy chuổi cần lấy. Từ ký tự đầu đến giá trị vừa trừ được.

Cách dùng 2 hàm trên.
(setq sochu (strlen chuoicandem)) lấy ra giá trị số lượng ký tự của chuổi chuoicandem.

(setq chuoicon (substr chuoime vitridoc sokytudoc)) lấy chuoicon từ chuoime vị trí lấy bắt đầu từ vitridoc với số lượng trích bằng sokytudoc.
  • 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


#3 ssg

ssg

    biết lệnh adcenter

  • Vip
  • PipPipPipPipPipPipPip
  • 1228 Bài viết
Điểm đánh giá: 1087 (rất tốt)

Đã gửi 25 February 2009 - 11:17 AM

1./ Nhờ các cao thủ giúp cho đoạn mã xử lý chuỗi như sau:
VD: 1+000 thành 1000; 12+000 thành 12000
................................................................................

.....
2./ Nhờ tạo giớp đoạn lisp lấy tên File bản vẽ hiện tại (Bỏ đi phần đuôi mở rộng: .dwg)


1. Nếu với ý "thấy dấu + thì bỏ đi":
(vl-string-subst "" "+" "12+000") -> "12000"

2. (vl-filename-base (getvar "dwgname"))
  • 0