[ Yêu Cầu ] Lisp lọc text số nguyên và text có số thập phân.

[ketxu 2.984]

(type (read ".0")) => Lỗi. Lỗi này chắc tự a xử được :)

[thanhduan2407 272]

(type (read ".0")) => Lỗi. Lỗi này chắc tự a xử được

Đúng là lỗi tại nó. Anh cố tình cho "0" vào đằng sau những số đó để phân biệt diện tích.

Em khắc phục cho anh cái này nhé. Cảm ơn em

[thanhduan2407 272]

Vấn đề là khi anh zoom to thì được còn khi zoom nhỏ toàn màn hình thì không được. Rất lạ lỗi này

[ketxu 2.984]

A viết cả cái code dài vậy mà chỉ thêm điều kiện char đầu tiên là dấu "." k xử lý được á a ?

[thanhduan2407 272]

Hii, anh tưởng em có cách hay. hé hé.

Thực ra, anh cứ viết nó ra kết quả là dc. Dài hay ngắn thì tối ưu sau. Hé hé

[nhoclangbat 392]

đúng là nhiều quá ko chạy đc ^^, file a đưa nó loạn xạ @@, chứ bình thường nhoc chạy cho 1 tờ bản đồ hơn trăm thửa vẫn chạy tốt ngộ thiệt

[thanhduan2407 272]

Bạn nhoclangbat zoom in 1 khu vực nhỏ và sử dụng lệnh thì được đó. Hoặc quét từng vùng nhỏ thì dc. :D

Còn nhiều nhiều 1 tí là....hổng có đc. :D

[nhoclangbat 392]

uh đúng rùi, nhưng khi nhoc làm khoảng 200 thửa đỗ lại nhoc cũng zoom toàn màn hình, để quét toàn tờ bản đồ thì vẫn ok, chắc là có 1 sự hên xui ở đây ^^

[Tot77 508]

Bạn có thể viết như vầy cho gọn và không bị lỗi.

 

(defun C:TTD (/ ss ss1 ss2 e1 e2 txt);;;;;TACH THUA DAT
(MakeLayer_ "LOAIDAT" 1)
(MakeLayer_ "SOTHUA" 2)
(MakeLayer_ "DIENTICH" 3)
(setq ss (ssget (list (cons 0 "TEXT"))))
(foreach e2 (acet-ss-to-list ss)
  (setq txt (cdr (assoc 1 (entget e2))))
  (cond ((not (distof txt))
 (vla-put-Layer (vlax-ename->vla-object e2) "LOAIDAT"))
((vl-string-search "." txt)
(vla-put-Layer (vlax-ename->vla-object e2) "DIENTICH"))
   (t (vla-put-Layer (vlax-ename->vla-object e2) "SOTHUA"))
)
)
(princ)  
)
 
(defun MakeLayer_ ( name colour /)
    (if (null (tblsearch "LAYER" name))
        (entmake
            (list
               '(0 . "LAYER")
               '(100 . "AcDbSymbolTableRecord")
               '(100 . "AcDbLayerTableRecord")
               '(70 . 0)
                (cons 2 name)
                (cons 62 colour)
            )
        )
    )
)
 
 
 

[nhoclangbat 392]

- anh Tot77 ac thật ngắn gọn xúc tích, file a Duan đưa lên xử phát 1 ^^

[thanhduan2407 272]

Cách giải quyết của anh Tot77 lúc nào cũng rất OK. Cảm ơn anh