Đế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

#541 trinhvqh

trinhvqh

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 408 Bài viết
Điểm đánh giá: 222 (khá)

Đã gửi 16 December 2009 - 04:27 PM

Cái gạch dưới này là đối tượng line hay là %%U?


Bổ sung luôn cho nó đầy đủ:
- Command: Edit Text
- Chọn đối tượng cần hiệu chỉnh
- Trường hợp cần hiệu chỉnh (Underline/UPper Case/Lower Case)?
- Cho kết quả hàng loạt
  • 0

#542 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 16 December 2009 - 04:29 PM

Mình có một lisp tạo đường gạch dưới text, khi pick vào text thì text sẽ có đường gạch dưới text, nhưng phải pick từng text một, trong bản vẽ của mình có tới hàng ngàn text, không lẽ ngồi pick hàng ngàn cái :( Nhờ các bạn viết cho cái lisp chỉ cần kéo chuột một phát là OK. Mong các bạn giúp mình , cám ơn nhiều lắm

Bạn có thể đọc bài viết số 48 của Tue_NV> Lisp tgtext.lsp
Thêm chuỗi %%u vào kí tự đầu
http://www.cadviet.c...amp;#entry77913
  • 1

#543 Zuy782006

Zuy782006

    biết vẽ line

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

Đã gửi 16 December 2009 - 04:31 PM

Bổ sung luôn cho nó đầy đủ:
- Command: Edit Text
- Chọn đối tượng cần hiệu chỉnh
- Trường hợp cần hiệu chỉnh (Underline/UPper Case/Lower Case)?
- Cho kết quả hàng loạt

Bác nói tiếng Việt đi! :(
  • 0
Ơ hay, tại sao ta sống chốn này?
Quay cuồng mãi, vậy có gì vui !!!

#544 trinhvqh

trinhvqh

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 408 Bài viết
Điểm đánh giá: 222 (khá)

Đã gửi 16 December 2009 - 04:35 PM

Bác nói tiếng Việt đi! :(

Underline: Gạch chân cho Text
Upper Case: Biến Text thành chữ Hoa
Lower Case: Biến Text thành chữ thường
(Còn một trường hợp nữa là Text chỉ viết hoa đầu câu)
  • 0

#545 Cadviet.MTV

Cadviet.MTV

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 16 December 2009 - 04:36 PM

Mình có bản vẽ gồm các block thuộc tính như hình

Hình đã gửi

Đây là các block tên cọc trắc ngang, khi chỉnh tuyến đôi lúc mình phải dùng tay điều chỉnh lại các lý trình cọc vì vậy mình muốn nhờ các bạn trên diễn đàn giúp mình 1 lisp lọc giá trị lý trình ( bỏ các giá trị trước dấu "+" lấy các giá trị sau ) trong Tag : LT_COC , ví dụ trong bản vẽ là bỏ giá trị "92+" lấy giá trị còn lại rồi công hay trừ cho 1 số bất kỳ được không .
Đây là file bản vẽ của mình
http://www.cadviet.c...es/2/tencoc.zip
Cảm ơn nhiều !
  • 0

#546 Zuy782006

Zuy782006

    biết vẽ line

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

Đã gửi 16 December 2009 - 04:52 PM

Underline: Gạch chân cho Text
Upper Case: Biến Text thành chữ Hoa
Lower Case: Biến Text thành chữ thường
(Còn một trường hợp nữa là Text chỉ viết hoa đầu câu)

Cad đã hổ trợ cái này rồi. lệnh TCASE. Chỉ có gạch chân là chưa có thôi!
  • 0
Ơ hay, tại sao ta sống chốn này?
Quay cuồng mãi, vậy có gì vui !!!

#547 trinhvqh

trinhvqh

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 408 Bài viết
Điểm đánh giá: 222 (khá)

Đã gửi 16 December 2009 - 04:58 PM

Cad đã hổ trợ cái này rồi. lệnh TCASE. Chỉ có gạch chân là chưa có thôi!


Uh, nhỉ!
Lâu quá không dùng Express nên quên mất
Cảm ơn đã nhắc nhở!
:(
  • 0

#548 w1nDream

w1nDream

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 293 Bài viết
Điểm đánh giá: 73 (tàm tạm)

Đã gửi 16 December 2009 - 05:11 PM

Mình có bản vẽ gồm các block thuộc tính như hình

Hình đã gửi

Đây là các block tên cọc trắc ngang, khi chỉnh tuyến đôi lúc mình phải dùng tay điều chỉnh lại các lý trình cọc vì vậy mình muốn nhờ các bạn trên diễn đàn giúp mình 1 lisp lọc giá trị lý trình ( bỏ các giá trị trước dấu "+" lấy các giá trị sau ) trong Tag : LT_COC , ví dụ trong bản vẽ là bỏ giá trị "92+" lấy giá trị còn lại rồi công hay trừ cho 1 số bất kỳ được không .
Đây là file bản vẽ của mình
http://www.cadviet.c...es/2/tencoc.zip
Cảm ơn nhiều !


Cái này bạn có thể dùng lệnh CS của nova để set lại lý trình.
Nếu bạn muốn xử lý bằng Cad bạn có thể dùng lệnh FIND(tìm và replace)
Như file của bạn thì hãy find với find text92+ và replace là bất cứ cái jì bạn muốn thay thế.
:(
  • 0
__Tâm tựa lưu thủY__
Vi nhân nan

#549 Cadviet.MTV

Cadviet.MTV

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 16 December 2009 - 05:16 PM

Cái này bạn có thể dùng lệnh CS của nova để set lại lý trình.
Nếu bạn muốn xử lý bằng Cad bạn có thể dùng lệnh FIND(tìm và replace)
Như file của bạn thì hãy find với find text92+ và replace là bất cứ cái jì bạn muốn thay thế.
:(

Cảm ơn bạn , ý mình muốn hỏi là sau khi lọc giá trị lý trình ra rồi cộng hoặc trừ cho 1 số bất kỳ , ví dụ mình muốn tăng tất cả các lý trình cọc lên 20m chẳng hạn , mình không rành về Nova bạn có thể giúp mình sử lý bằng Cad được không .
  • 0

#550 tnmtpc

tnmtpc

    biết dimcontinue

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

Đã gửi 16 December 2009 - 05:41 PM

Cái gạch dưới này là đối tượng line hay là %%U?

Mình muốn nó là LINE. Cám ơn Tue_NV, mình đã có lisp thêm tiền tố, hậu tố cho text rồi
  • 0

#551 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 16 December 2009 - 05:47 PM

Mình muốn nó là LINE. Cám ơn Tue_NV, mình đã có lisp thêm tiền tố, hậu tố cho text rồi

*Bạn muốn line thuộc layer như nào:
-1 layer nhất định (cụ thể tên, màu).
-Theo layer của text.
*Khoảng cách line đến text như nào:
-Khoảng cố định (cụ thể).
-Tỉ lệ với chiều cao text (cụ thể).
Lưu ý lisp sẽ không kiểm soát được text đã gạch chân chưa nên nếu đã có rồi thì nó gạch thêm 1 đường nửa.
  • 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


#552 tnmtpc

tnmtpc

    biết dimcontinue

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

Đã gửi 16 December 2009 - 08:58 PM

*Bạn muốn line thuộc layer như nào:
-1 layer nhất định (cụ thể tên, màu).
-Theo layer của text.
*Khoảng cách line đến text như nào:
-Khoảng cố định (cụ thể).
-Tỉ lệ với chiều cao text (cụ thể).
Lưu ý lisp sẽ không kiểm soát được text đã gạch chân chưa nên nếu đã có rồi thì nó gạch thêm 1 đường nửa.

Line nằm trên layer hiện hành (do người sử dụng thiết lập trước)
khoảng hở line và text tỷ lệ theo chiều cao text do người sử dụng nhập trong command line
Chiều dài line bằng chiều dài text
Nếu được , lisp có hai tùy chọn: line dưới text và trên text
  • 0

#553 tvduc

tvduc

    biết vẽ line

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

Đã gửi 16 December 2009 - 11:50 PM

Không chạy đuợc chỗ mô ?

Rứa hắn tỏ chi mô ?


Gõ svp nó yêu cầu chon VP -> chọn VP xong nó hiện dòng ni Bác nì "Chon Viewport : ; error: no function definition: VLAX-ENAME->VLA-OBJECT"

  • 0

#554 gia_bach

gia_bach

    biết lệnh adcenter

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

Đã gửi 17 December 2009 - 07:27 AM

Gõ svp nó yêu cầu chon VP -> chọn VP xong nó hiện dòng ni Bác nì "Chon Viewport : ; error: no function definition: VLAX-ENAME->VLA-OBJECT"

Bạn tham khảo tại đây
- http://www.cadviet.c...showtopic=11571
- http://www.cadviet.c...o...ost&p=64568
  • 0

#555 thiep

thiep

    biết dimbaseline

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

Đã gửi 17 December 2009 - 08:45 AM

Cảm ơn bạn , ý mình muốn hỏi là sau khi lọc giá trị lý trình ra rồi cộng hoặc trừ cho 1 số bất kỳ , ví dụ mình muốn tăng tất cả các lý trình cọc lên 20m chẳng hạn , mình không rành về Nova bạn có thể giúp mình sử lý bằng Cad được không .

Chào Cadviet.MTV, bạn có thể dùng lệnh attout trong expresstool để xuất các giá trị thuộc tính của tất cả các block trong bản vẽ ra file *.txt, bạn chuyển qua excel chỉnh sửa các giá trị thuộc này tuỳ ý bạn, không chỉnh sửa giá trị HANDLE nhé. Sau đó lưu trở lại file đuôi *.txt. Bạn quay lại Cad dùng lệnh attin cũng trong expresstool để update các giá trị thuộc tính đã chỉnh sửa trong file *.txt này.
Như vậy chưa cần phải ra tay tạo lisp đâu. Chúc bạn thành công.
  • 0

#556 conghoan1003

conghoan1003

    biết vẽ point

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

Đã gửi 17 December 2009 - 10:08 AM

Chào mọi người!
hôm trước mình có tìm được cái lisp mplot dùng thấy rất hay nhưng giờ gặp vấn đề mong anh em giúp đỡ.
Khi mình in bên model thì ok nhưng khi in bên layout thì lisp báo lỗi:
"Command: MPL
Select objects: Specify opposite corner: 1 found
Select objects:
1=0.20
Yes or No, please.
Yes or No, please.
; error: An error has occurred inside the *error* functionFunction cancelled
Save changes to page setup [Yes/No]? *Cancel*"
Ai biết chỉ dùm mình với. Cảm ơn nhiều!
file cad: http://www.cadviet.c...es/2/tnct_7.dwg
(in với block tên là : in)
  • 0
Học học nữa học mãi.
Đúp học lại!

#557 ut_cung

ut_cung

    biết vẽ line

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

Đã gửi 17 December 2009 - 11:00 AM

Nhờ các Bác viết hộ mình cái lisp làm công việc sắp xếp các text đè lên nhau.
Khi mình chạy chương trình ra các text nằm đè lên nhau khi in ra chẳng thấy gì cả, mình muốn sắp xếp nó lại cho dễ nhìn. các bác giúp mình với. Thank!
File cad: http://www.cadviet.c...les/2/thu_1.dwg
  • 0

#558 trinhvqh

trinhvqh

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 408 Bài viết
Điểm đánh giá: 222 (khá)

Đã gửi 17 December 2009 - 11:23 AM

Nhờ các Bác viết hộ mình cái lisp làm công việc sắp xếp các text đè lên nhau.
Khi mình chạy chương trình ra các text nằm đè lên nhau khi in ra chẳng thấy gì cả, mình muốn sắp xếp nó lại cho dễ nhìn. các bác giúp mình với. Thank!
File cad: http://www.cadviet.c...les/2/thu_1.dwg


Cái này yêu cầu viết LISP làm gì cho rối việc
Express - Convert Dtext thành Mtext
Sau đó chỉnh thông số Line Spacing
............
  • 0

#559 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 17 December 2009 - 11:29 AM

Cái này yêu cầu viết LISP làm gì cho rối việc
Express - Convert Dtext thành Mtext
Sau đó chỉnh thông số Line Spacing
............

Báo cáo với bác là nếu bác chọn cả đám bằng cách chọn theo cửa sổ W thì sẽ rối tung ngay
Ở dòng Select Object : bác phải nhấn f -> và kéo 1 đường từ trái sang phải để chọn đối tượng thì mới được
Còn nếu không thì sẽ ..... lộn tùng phèo
  • 1

#560 trinhvqh

trinhvqh

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 408 Bài viết
Điểm đánh giá: 222 (khá)

Đã gửi 17 December 2009 - 12:02 PM

Báo cáo với bác là nếu bác chọn cả đám bằng cách chọn theo cửa sổ W thì sẽ rối tung ngay
Ở dòng Select Object : bác phải nhấn f -> và kéo 1 đường từ trái sang phải để chọn đối tượng thì mới được
Còn nếu không thì sẽ ..... lộn tùng phèo


Cứ để em nó (ut_cung) chọn rồi sẽ tự rút kinh nghiệm
Mọi việc thêm rối vì mấy cái "báo cáo" :(
  • 0