Đến nội dung


Hình ảnh
- - - - -

Nhờ viết dùm lisp select các text nhỏ hơn hoặc lớn hơn 1 giá trị cho trước!


  • Please log in to reply
17 replies to this topic

#1 truongthanh

truongthanh

    biết lệnh text

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

Đã gửi 18 April 2014 - 09:26 AM

Nhờ các anh chị viết dùm e cái lisp chọn các text số nhỏ hơn hoặc lớn hơn 1 giá trị cho phép ạ, ví dụ em có 1 đóng các text 1.2.3.4.5.6 giờ em mún chọn các text nhỏ 6 thì nó chọn các text 1.2.3.4.5 ạ!

xin chân thành cảm ơn ạ!


  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 18 April 2014 - 11:04 AM

Đây bạn!

;Chuc nang: Chon tap hop text bao gom cac so lon/nho hon 1 so cho truoc.
(defun C:HA( / flag num so z n ent)
 (initget "L N")
 (setq flag (getkword "\nChon cac Text [Lon-hon/Nho-hon]<L>: "))
 (if (not flag) (setq flag "L"))
 (if (= flag "L")
  (setq num (getreal "\nGia tri Min cho truoc: "))
  (setq num (getreal "\nGia tri Max cho truoc: ")))
 (princ "\nChon Text...")
 (setq so (ssget '((0 . "*TEXT") (1 . "~*[~-0--9]*"))))
 (setq z 0 so1 (ssadd))
 (repeat (sslength so)
  (if (setq num1 (distof (cdr (assoc 1 (entget (setq ent (ssname so z)))))))
   (cond
    ((and (= flag "L") (> num1 num)) (setq so1 (ssadd ent so1)))
    ((and (= flag "N") (< num1 num)) (setq so1 (ssadd ent so1)))))
  (setq z (1+ z))) 
 (sssetfirst nil so1))
 


  • 3

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 achye_10

achye_10

    Chưa sử dụng CAD

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

Đã gửi 15 July 2016 - 01:48 PM

Đây bạn!

;Chuc nang: Chon tap hop text bao gom cac so lon/nho hon 1 so cho truoc.
(defun C:HA( / flag num so z n ent)
 (initget "L N")
 (setq flag (getkword "\nChon cac Text [Lon_hon/Nho_hon] <L>: "))
 (if (not flag) (setq flag "L"))
 (if (= flag "L")
  (setq num (getreal "\nGia tri Min cho truoc: "))
  (setq num (getreal "\nGia tri Max cho truoc: ")))
 (princ "\nChon Text...")
 (setq so (ssget '((0 . "*TEXT") (1 . "~*[~-0--9]*"))))
 (setq z 0 so1 (ssadd))
 (repeat (sslength so)
  (if (setq num1 (distof (cdr (assoc 1 (entget (setq ent (ssname so z)))))))
   (cond
    ((and (= flag "L") (> num1 num)) (setq so1 (ssadd ent so1)))
    ((and (= flag "N") (< num1 num)) (setq so1 (ssadd ent so1)))))
  (setq z (1+ z))) 
 (sssetfirst nil so1))
 

Sao e không sử dụng được lisp trên nhỉ???


  • 0

#4 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 15 July 2016 - 02:14 PM

Không sử dụng được thì đừng sử dụng! <_<

Còn nếu muốn sử dụng được thì nên hỏi một câu có đầu có đuôi, chứ nói khơi khơi như thế chả bốc thuốc được.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#5 achye_10

achye_10

    Chưa sử dụng CAD

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

Đã gửi 24 July 2016 - 08:16 AM

Không sử dụng được thì đừng sử dụng! <_<

Còn nếu muốn sử dụng được thì nên hỏi một câu có đầu có đuôi, chứ nói khơi khơi như thế chả bốc thuốc được.

Sau khi e load lisp, gõ lệnh HA không sử dụng được lisp


  • 0

#6 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 24 July 2016 - 08:38 AM

Bạn quét chọn rồi copy các dòng ở #3 rồi paste vào 1 file lsp, chứ đừng bấm nút download, vì trong file download có nhiều ký tự lạ làm hư file lsp.


  • 1

#7 jangboko

jangboko

    biết vẽ arc

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

Đã gửi 20 August 2016 - 09:24 AM

Đây bạn!

;Chuc nang: Chon tap hop text bao gom cac so lon/nho hon 1 so cho truoc.
(defun C:HA( / flag num so z n ent)
 (initget "L N")
 (setq flag (getkword "\nChon cac Text [Lon_hon/Nho_hon] <L>: "))
 (if (not flag) (setq flag "L"))
 (if (= flag "L")
  (setq num (getreal "\nGia tri Min cho truoc: "))
  (setq num (getreal "\nGia tri Max cho truoc: ")))
 (princ "\nChon Text...")
 (setq so (ssget '((0 . "*TEXT") (1 . "~*[~-0--9]*"))))
 (setq z 0 so1 (ssadd))
 (repeat (sslength so)
  (if (setq num1 (distof (cdr (assoc 1 (entget (setq ent (ssname so z)))))))
   (cond
    ((and (= flag "L") (> num1 num)) (setq so1 (ssadd ent so1)))
    ((and (= flag "N") (< num1 num)) (setq so1 (ssadd ent so1)))))
  (setq z (1+ z))) 
 (sssetfirst nil so1))
 

bác nào rảnh có thể giúp em kiểm tra lisp này được ko ạ, em chọn số lớn hơn 1 số cho trước thì ngon rồi, nhưng khi chọn số nhỏ hơn 1 số cho trước thấy nó chọn ra kết quả không đúng. Em cám ơn các bác nhiều ^_^


  • 1

#8 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 20 August 2016 - 09:37 AM

Bạn đưa bản vẽ gồm tập hợp số đó lên đây bắt mạch xem, chỉ mấy chú đó. Nhớ đừng gởi cả bản vẽ to như quả núi nghe.


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#9 jangboko

jangboko

    biết vẽ arc

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

Đã gửi 20 August 2016 - 10:29 AM

Bạn đưa bản vẽ gồm tập hợp số đó lên đây bắt mạch xem, chỉ mấy chú đó. Nhớ đừng gởi cả bản vẽ to như quả núi nghe.

http://www.cadviet.c..._loi_lisp_1.dwg

 

hề hề, đây bác ạ. Mong bác soi sét hộ em.


  • 0

#10 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 20 August 2016 - 10:39 AM

Bạn kiểm tra lại bản vẽ, tôi down về mở ra nó bảo bản vẽ không hợp lệ

Tôi Cad2007 nhé


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#11 jangboko

jangboko

    biết vẽ arc

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

Đã gửi 20 August 2016 - 11:00 AM

Bạn kiểm tra lại bản vẽ, tôi down về mở ra nó bảo bản vẽ không hợp lệ

Tôi Cad2007 nhé

em gửi lại bác kiểm tra hộ em, bản vẽ em đã save về cad2004, và đã gửi cho 1 người khác test trước để đỡ mất thời gian của bác. Cảm ơn bác đã nhiệt tình giúp đỡ.http://www.cadviet.c...575_sua_loi.dwg


  • 0

#12 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 20 August 2016 - 11:16 AM

Bản vẽ của bạn vừa mở ra thì lỗi font (hình 1).

Tôi đổi sang font Times New Romans thì hiện số.

Test với số nhỏ hơn 3.05 được như hình 2 >> Kết quả đúng.

67029_1.png

Hình 2

67029_2_1.png


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#13 jangboko

jangboko

    biết vẽ arc

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

Đã gửi 20 August 2016 - 11:34 AM

Bản vẽ của bạn vừa mở ra thì lỗi font (hình 1).

Tôi đổi sang font Times New Romans thì hiện số.

Test với số nhỏ hơn 3.05 được như hình 2 >> Kết quả đúng.

67029_1.png

Hình 2

67029_2_1.png

Thật ngại quá, đã làm mất thời gian của bác hơi bị nhiều, em test lại rất kỹ rồi, khi chọn giá trị nhỏ hơn 1 số, nó đều trả về giá trị lớn hơn. Em test lại trên các bản vẽ khác nhau, kiểu text khác nhau. Bác xem lại lisp bác dùng có giống lisp bác post trên diễn đàn không. Cảm ơn bác đã quan tâm và hồi đáp.


  • 0

#14 jangboko

jangboko

    biết vẽ arc

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

Đã gửi 20 August 2016 - 11:42 AM

111575_1.jpg111575_2.jpg

 

hình 1 em lựa chọn số nhỏ hơn 3, kết quả ra lớn hơn. Hình 2 em lựa chọn số nhỏ hơn 66, kết quả cũng ra lớn hơn.


  • 0

#15 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 20 August 2016 - 11:48 AM

Bạn làm từ đầu, xong bấm F2, copy màn hình dán lên đây xem sao


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#16 jangboko

jangboko

    biết vẽ arc

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

Đã gửi 20 August 2016 - 01:44 PM

Bạn làm từ đầu, xong bấm F2, copy màn hình dán lên đây xem sao

111575_1_1.jpg

em tìm ra nguyên nhân rồi bác ạ. Khi lisp yêu cầu chọn text, nếu dùng phím chọn "L" hay "N" thì lisp hoạt động chính xác, nhưng khi dùng chuột chỉ click vào lựa chọn "nhỏ hơn" thì lisp sẽ cho kết quả sai. Bác test lại xem có đúng như vậy không. Cảm ơn bác đã hồi đáp


  • 1

#17 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 20 August 2016 - 04:33 PM

Tôi like cho bạn 1 phát vì nhờ bạn mà tôi phát hiện ra 1 chỗ nhầm. Bạn down cái đầu tiên là ok con dê.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#18 jangboko

jangboko

    biết vẽ arc

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

Đã gửi 20 August 2016 - 10:14 PM

Tôi like cho bạn 1 phát vì nhờ bạn mà tôi phát hiện ra 1 chỗ nhầm. Bạn down cái đầu tiên là ok con dê.

 hề hề, vinh dự và sung sướng quá, được đích thân bác Hà like, lại là cái like đầu đời :)). 


  • 1