Đến nội dung


Hình ảnh
- - - - -

Lisp gán text vào polyline


  • Please log in to reply
42 replies to this topic

#21 nataca

nataca

    biết lệnh adcenter

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

Đã gửi 29 April 2009 - 04:23 PM

Lỗi đây bác ơi !
Command:
Command: cdm
no function definition: I_KEY; error: An error has occurred inside the *error*
functionAutoCAD variable setting rejected: "OSMODE" nil
Hay là bác nén lại rồi Up File lên đi

Mình biên dịch lại thành 1 file rồi đây. Không lo copy thiếu nữa. Lệnh là CDM Download
  • 2

#22 Ar_Chanwoo

Ar_Chanwoo

    biết lệnh break

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

Đã gửi 30 April 2009 - 01:47 AM

Mình biên dịch lại thành 1 file rồi đây. Không lo copy thiếu nữa. Lệnh là CDM Download

Mình dùng lisp của bạn rồi, nhưng do tính chất mà mình cần nên m muốn nhờ bạn sửa lại đôi chút, mình muốn tách đôi lisp của bạn thanh 2 lisp. có nghĩa là phần nhập cao đọ riêng, phần gán text vào đường đồng mức riêng. cụ thể như sau :
1.Phần gán cao độ :
-Nhập lệnh
-cad hỏi : Nhập cao độ đầu tiên->ta nhập cao độ
-Cad hỏi : Nhập chênh cao đường đồng mức -> ta nhap chenh cao
-Cad hỏi : Chọn dường đồng mức đầu tiên(cao độ là...)-> ta chọn đường đồng mức
-Cad hỏi : Chọn dường đồng mức đtiep theo (cao độ là...)-> ta chọn đường đồng mức
2. Phan nhap text cao do :
-Nhap lenh
-cad hoi : chon text mau-> ta chon kieu text mau (sau do luu thuoc tinh nay de lan sau cad ko hoi lai cau nay nua)
-Cad hoi : Chon duong dong muc->ta chon duong dong muc da gan cao do o tren
-cad hoi : chon diem dat text->ta chon diem dat text
-Cad hoi : diem chi huong 1 -> chonj diem thu 1
Cad hoi : diem chi huong 2 -> chon diem 2
sau do lisp se gan text vao pilyline voi khoang cach bang 1/3 cao text giong nhu lisp tren, giá trị của text gán vào chính là thuộc tính cao độ Z của Polyline đã đc nhập ở trên lisp gán cao độ
Mong bạn xem hộn mình làm sao các polyline sau khi đã đc gán cao độ thì đổi màu đúng với layẻ của nó,
Xin lỗi vì diễn đàn đoi lúc bị lỗi ko viết đc tiếng việt có dấu
Mong bạn giúp đỡ.cám ơn bạn.
  • 0

#23 nataca

nataca

    biết lệnh adcenter

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

Đã gửi 02 May 2009 - 03:42 PM

Mình dùng lisp của bạn rồi, nhưng do tính chất mà mình cần nên m muốn nhờ bạn sửa lại đôi chút, mình muốn tách đôi lisp của bạn thanh 2 lisp. có nghĩa là phần nhập cao đọ riêng, phần gán text vào đường đồng mức riêng. cụ thể như sau :
1.Phần gán cao độ :
-Nhập lệnh
-cad hỏi : Nhập cao độ đầu tiên->ta nhập cao độ
-Cad hỏi : Nhập chênh cao đường đồng mức -> ta nhap chenh cao
-Cad hỏi : Chọn dường đồng mức đầu tiên(cao độ là...)-> ta chọn đường đồng mức
-Cad hỏi : Chọn dường đồng mức đtiep theo (cao độ là...)-> ta chọn đường đồng mức
2. Phan nhap text cao do :
-Nhap lenh
-cad hoi : chon text mau-> ta chon kieu text mau (sau do luu thuoc tinh nay de lan sau cad ko hoi lai cau nay nua)
-Cad hoi : Chon duong dong muc->ta chon duong dong muc da gan cao do o tren
-cad hoi : chon diem dat text->ta chon diem dat text
-Cad hoi : diem chi huong 1 -> chonj diem thu 1
Cad hoi : diem chi huong 2 -> chon diem 2
sau do lisp se gan text vao pilyline voi khoang cach bang 1/3 cao text giong nhu lisp tren, giá trị của text gán vào chính là thuộc tính cao độ Z của Polyline đã đc nhập ở trên lisp gán cao độ
Mong bạn xem hộn mình làm sao các polyline sau khi đã đc gán cao độ thì đổi màu đúng với layẻ của nó,
Xin lỗi vì diễn đàn đoi lúc bị lỗi ko viết đc tiếng việt có dấu
Mong bạn giúp đỡ.cám ơn bạn.

Bạn xem cái này được chưa : http://www.cadviet.c...iles/gan_dm.vlx
Lệnh BDM: để gán đường đồng mức theo bước.
Lệnh TDM: để gán cao độ từ text vào đường đồng mức
  • 1

#24 Ar_Chanwoo

Ar_Chanwoo

    biết lệnh break

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

Đã gửi 02 May 2009 - 09:42 PM

Bạn xem cái này được chưa : http://www.cadviet.c...iles/gan_dm.vlx
Lệnh BDM: để gán đường đồng mức theo bước.
Lệnh TDM: để gán cao độ từ text vào đường đồng mức

Bạn hiểu nhầm ý mình 1 chút, mình thấy lisp của bạn rất hay nhưng lại hơi nhiều bước, ý của mình là lisp BDM có thể tách thành 2 lisp riêng biệt như sau
Lisp 1 : chỉ giải quyết việc gán cao độ Z cho polyline thôi, tức là Lisp chỉ hỏi "Cao độ đầu tiên "và "Chênh cao giữa các đường đồng mức" và sau đó là mình chọn các đường Polyline. Lisp sẽ tiến hành gán cao độ và đổi màu cho Polylibe.
Lisp 2 : giải quyết vấn đề gán text cao độ vào Polyline. Sau khi nhập lệnh, lisp sẽ hỏi "Text làm mẫu" ( chỉ hỏi 1 lần đầu tiên ), "Chọn đường đồng mức" ( tức là chọn các đường polyline đã đc nhập cao độ ở trên, lisp sẽ lọc lấy thuộc tính cao độ Z của đường polyline đó va gan vao text cao do), "Chọn điểm chèn Text", "Chọn hướng chỉ thứ nhất", "Chọn hướng chỉ thứ 2",
Còn lisp TDM thì ổn rồi bạn ah, rất cảm ơn bạn đã nhiệt tình giúp đỡ !
  • 1

#25 baodenhp

baodenhp

    biết vẽ arc

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

Đã gửi 03 May 2009 - 12:42 PM

Bình thường khi vẽ các đường đồng mức ta hay sử dụng đường SPL, vì khi vẽ sẽ "trơn" hơn. Mình cũng thử dùng lệnh Flatten để biến các đường SPL thành PL nhưng kết quả ko như mong muốn. Vậy bạn có cách nào gán cao độ cho đường SPL và tại vị trí gán nhãn cao độ text sẽ vuông goc với SPL tại điểm gán nhãn hay ko. Thanks!!!!
  • 0

#26 nataca

nataca

    biết lệnh adcenter

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

Đã gửi 03 May 2009 - 12:59 PM

Bình thường khi vẽ các đường đồng mức ta hay sử dụng đường SPL, vì khi vẽ sẽ "trơn" hơn. Mình cũng thử dùng lệnh Flatten để biến các đường SPL thành PL nhưng kết quả ko như mong muốn. Vậy bạn có cách nào gán cao độ cho đường SPL và tại vị trí gán nhãn cao độ text sẽ vuông goc với SPL tại điểm gán nhãn hay ko. Thanks!!!!

Bạn dùng lệnh Flatten mà không biến SPL thành PL được thì bạn thử đánh lệnh Pedit và nhập tham số D (decurve) xem sao. Còn vấn đề vuông góc với SPL tại vị trí gán nhãn mình chưa hiểu rõ lắm. Bạn minh hoạ bằng file được ko?
  • 0

#27 nataca

nataca

    biết lệnh adcenter

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

Đã gửi 04 May 2009 - 09:33 AM

Xin lỗi vì hiểu nhầm ý bạn:
Lệnh GDM : gán cao độ cho đường đồng mức
Lệnh VDM : xuất giá trị text cao độ của đường đồng mức
cao độ đồng mức
  • 1

#28 Ar_Chanwoo

Ar_Chanwoo

    biết lệnh break

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

Đã gửi 04 May 2009 - 10:40 AM

Xin lỗi vì hiểu nhầm ý bạn:
Lệnh GDM : gán cao độ cho đường đồng mức
Lệnh VDM : xuất giá trị text cao độ của đường đồng mức
cao độ đồng mức

Tuyệt vời ! Đây mới đúng như ý mình mong muốn, cám ơn bạn rất nhiều ! Diễn đàn cần những người như bạn lắm ! Ah, bạn có thể nén file lisp chưa mã hoá của bạn về dạng rar rồi post lên cho m đc không( de thay doi ten lenh cho ko trung lap voi lisp khac ma)? Cám ơn bạn lần nữa !
  • 0

#29 nataca

nataca

    biết lệnh adcenter

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

Đã gửi 04 May 2009 - 10:51 AM

Tuyệt vời ! Đây mới đúng như ý mình mong muốn, cám ơn bạn rất nhiều ! Diễn đàn cần những người như bạn lắm ! Ah, bạn có thể nén file lisp chưa mã hoá của bạn về dạng rar rồi post lên cho m đc không( de thay doi ten lenh cho ko trung lap voi lisp khac ma)? Cám ơn bạn lần nữa !

Đây là file lisp: http://www.cadviet.c...es/dong_muc.lsp . Hy vọng giúp ích cho bạn :(
  • 2

#30 Ar_Chanwoo

Ar_Chanwoo

    biết lệnh break

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

Đã gửi 04 May 2009 - 11:31 AM

Đây là file lisp: http://www.cadviet.c...es/dong_muc.lsp . Hy vọng giúp ích cho bạn :(

Đúng rồi, cám ơn bạn rất nhiều !
  • 0

#31 hauhn

hauhn

    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 June 2009 - 06:04 PM

Cảm ơn bạn rất nhiều. lisp rất hay. mình còn 1 chút nhờ bạn giúp đó là khi mình sử dụng nâng cốt cho đường đồng mức được cấp ( bản đồ đã bị phá hết ) thành các đoạn trên đó có text cao độ. mình nhờ bạn chỉnh lại khi chọn đường đồng mức có thể chọn nhiều đường pline ko? nếu có thể bạn sửa giúp mình thành chọn text có sẵn trong bản đồ rồi gán vào pline. như thế nhanh hơn . Thanks bạn nhiều
  • 0

#32 emhn

emhn

    biết vẽ line

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

Đã gửi 29 July 2009 - 04:28 PM

Cảm ơn bạn rất nhiều. lisp rất hay. mình còn 1 chút nhờ bạn giúp đó là khi mình sử dụng nâng cốt cho đường đồng mức được cấp ( bản đồ đã bị phá hết ) thành các đoạn trên đó có text cao độ. mình nhờ bạn chỉnh lại khi chọn đường đồng mức có thể chọn nhiều đường pline ko? nếu có thể bạn sửa giúp mình thành chọn text có sẵn trong bản đồ rồi gán vào pline. như thế nhanh hơn . Thanks bạn nhiều


Ý tưởng này thì hay nhưng giải pháp như thế là quá thủ công.
các bạn có thể sửa lại một tí như sau:
- Lệnh VDM
- Chọn điểm bắt đầu.
- Chọn điểm kết thúc
- Nhập cao độ đồng mức cho đường đầu tiên
- nhập khoảng cao đều.
-> Chương trình tự động nhận dạng đường đồng mức.
* cái này tôi đã làm rồi (hôm nay không rãnh không load được)
Nếu các bạn cần liên hệ tôi : hnepecc4@yahoo.com
  • 0

#33 saudong102

saudong102

    biết pan

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

Đã gửi 02 October 2009 - 09:25 PM

các bác cho em xin một lisp đơn giản hơn dùng cho việc điền kích thước vào nhiều tuyến cống trên một mặt bằng
1> lisp có tác dụng : điền một text song song với đường pl ( spl và line nữa càng tốt ) tại đúng điểm kích vào đường pl đó ( giáp tuyến với đường pl ), chiều của text theo chiều đường pl, cách đường pl một khoảng nhỏ
2> lisp điền một BLOCK song song với đường pl tại đúng điểm kích chọn đường pl đó ( giáp tuyến với đường pl ), block có thể được định nghĩa từ trước, block sau khi điền cách đường pl một khoảng được định nghĩa từ trước
em đang phải vẽ rất nhiều loại này, dùng các lệnh copy và rote, ed text rất mất thời gian, các bác giúp em với
  • 0

#34 violetlamuors

violetlamuors

    biết zoom

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

Đã gửi 03 October 2009 - 02:22 AM

các bác cad nhà ta tuy là dân kỹ thuật nhưng mình thấy trên diẽn đàn lại rất tình cảm và đầy tinh thần học hỏi đó. thật tuyệt vời.thanks tất cả :cheers:
  • 0

#35 Gatesi

Gatesi

    biết vẽ arc

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

Đã gửi 04 January 2010 - 10:47 PM

Đây là file lisp: http://www.cadviet.c...es/dong_muc.lsp . Hy vọng giúp ích cho bạn :cheers:

Mình có 1 lisp này, m nghĩ nếu nó kết hợp đc với lisp của bạn nữa thì hay quá, lisp này chèn Text cao độ vào PL và dùng WIPEOUT che phần PL phía dwới đi, nhưng hạn chế của nó là không tự động cập nhật đc cao độ như líp của bạn, không chọn đc kiểu text trwớc...nếu kết hợp đc 2 cái thì hay quá:cheers:
http://www.cadviet.c...files/2/cpe.rar
  • 0

#36 amateurday

amateurday

    biết lệnh break

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

Đã gửi 13 January 2010 - 09:32 AM

các bác cho em xin một lisp đơn giản hơn dùng cho việc điền kích thước vào nhiều tuyến cống trên một mặt bằng
1> lisp có tác dụng : điền một text song song với đường pl ( spl và line nữa càng tốt ) tại đúng điểm kích vào đường pl đó ( giáp tuyến với đường pl ), chiều của text theo chiều đường pl, cách đường pl một khoảng nhỏ
2> lisp điền một BLOCK song song với đường pl tại đúng điểm kích chọn đường pl đó ( giáp tuyến với đường pl ), block có thể được định nghĩa từ trước, block sau khi điền cách đường pl một khoảng được định nghĩa từ trước
em đang phải vẽ rất nhiều loại này, dùng các lệnh copy và rote, ed text rất mất thời gian, các bác giúp em với


em cũng đang jống bác này
  • 0

#37 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 15 January 2010 - 08:47 AM

các bác cho em xin một lisp đơn giản hơn dùng cho việc điền kích thước vào nhiều tuyến cống trên một mặt bằng
1> lisp có tác dụng : điền một text song song với đường pl ( spl và line nữa càng tốt ) tại đúng điểm kích vào đường pl đó ( giáp tuyến với đường pl ), chiều của text theo chiều đường pl, cách đường pl một khoảng nhỏ
2> lisp điền một BLOCK song song với đường pl tại đúng điểm kích chọn đường pl đó ( giáp tuyến với đường pl ), block có thể được định nghĩa từ trước, block sau khi điền cách đường pl một khoảng được định nghĩa từ trước
em đang phải vẽ rất nhiều loại này, dùng các lệnh copy và rote, ed text rất mất thời gian, các bác giúp em với

em cũng đang jống bác này

Bạn giải thích giùm 1 số thuật ngữ:
điền một text song song với đường pl ( spl và line nữa càng tốt ) tại đúng điểm kích vào đường pl đó ( giáp tuyến với đường pl ), chiều của text theo chiều đường pl, cách đường pl một khoảng nhỏ :
1 - liệu có tồn tại 1 điểm vừa thuộc đường pl và cách đường pl một khoảng ?
2- tui có tra từ điển tiếng Việt (và Google) nhưng không thấy từ giáp tuyến nghĩa là gì ?
  • 0

#38 vangiap

vangiap

    biết pan

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

Đã gửi 26 July 2010 - 10:59 AM

Ý tưởng này thì hay nhưng giải pháp như thế là quá thủ công.
các bạn có thể sửa lại một tí như sau:
- Lệnh VDM
- Chọn điểm bắt đầu.
- Chọn điểm kết thúc
- Nhập cao độ đồng mức cho đường đầu tiên
- nhập khoảng cao đều.
-> Chương trình tự động nhận dạng đường đồng mức.
* cái này tôi đã làm rồi (hôm nay không rãnh không load được)
Nếu các bạn cần liên hệ tôi : hnepecc4@yahoo.com

lisp này ko GDM hàng loạt các đường đồng mức của mình hả bạn. thank!
  • 0

#39 hmt

hmt

    biết lệnh scale

  • Members
  • PipPipPip
  • 146 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 05 May 2012 - 04:40 PM

link die hết cả rồi bác nào còn lisp của bác nataca up lên cho e với thanh mọi ng :)
  • 0

#40 quochuyksxd

quochuyksxd

    biết lệnh fillet

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

Đã gửi 07 May 2012 - 07:46 AM

Đây là file lisp: http://www.cadviet.c...es/dong_muc.lsp . Hy vọng giúp ích cho bạn :s_big:

Bạn có thể up lại lips này lên diễn đàn không?Link die hết rồi. Mình hay làm san nền cũng rất cần lips như thế này. Xin cảm ơn!
  • 0