Đến nội dung


Hình ảnh
- - - - -

Lisp bị lỗi font chữ khi thực hiện lệnh LG2


  • Please log in to reply
10 replies to this topic

#1 namnhim

namnhim

    biết vẽ polygon

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

Đã gửi 08 January 2011 - 08:44 AM

các bác giúp em sửa đoạn lips này với, em cần quá mà gửi nhiều lần nhưng chăng có bác nao quan tâm. nhưng ko vì thé mà nản chí lại tiếp tục gửi lại hi vọng có ai đó vô tình đọc và có cách giúp thì sao nhỉ? cứ mỗi lần em dùng lệnh LG2 và chọn đoạn thẳng đó thì thành mầu Lộ giới nhưng khi chon điểm đầu và cuối đoạn thẳng đó để nó hiện chữ "Lộ giới" thì nó lại bị lỗi chữ trong bản vẽ luôn (cái Lisp này em lang thang kiếm được thấy hay nhưng không biết sửa). cảm ơn các bác nhiu nhiu! đường link: http://www.cadviet.c...duonglogioi.lsphttp://www.cadviet.c...es/3/ban_ve.rar
  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 08 January 2011 - 09:58 AM

LG2 chạy vẫn bình thường mà bạn :D .Với font Time New Roman trong style chữ CHU, thì liệu máy bạn có k nhỉ ^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 ntduy1988

ntduy1988

    biết vẽ arc

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

Đã gửi 17 January 2011 - 08:58 PM

LG2 chạy vẫn bình thường mà bạn :) .Với font Time New Roman trong style chữ CHU, thì liệu máy bạn có k nhỉ ^^


Đây là kết quả bạn cần: http://www.mediafire...1j992ppgdsdyc2y
  • 0

#4 namnhim

namnhim

    biết vẽ polygon

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

Đã gửi 01 November 2011 - 10:18 PM

Nhờ các bác giúp em chủ đề này với. em rất xin lỗi vì đưa ra chủ đề này từ mấy tháng trước nhưng sau đó em phải đi công tác nên không được tiếp xúc với diễn đàn!
trong máy của em đã có font Times new Roman cả trong Tetx tlyle cũng có. nếu EXPLODE ra rồi copy chữ đó vào lisp thì được, còn viết chữ Lộ giới trực tiếp vào lisp thì nó không hiểu. các cao thủ giúp em với, có thể chữ Lộ giới là Mtext thì càng tốt. cảm ơn rất nhiều! (thực hiện LG5 chữ bị lỗi)
  • 0

#5 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 02 November 2011 - 08:40 AM

Theo tôi được biết thì Lisp chỉ chấp nhận mã ANSI và chỉ đọc được tiếng Việt Unicode được viết bởi mã Hexa (từ Cad>=2007) . Do đó khi bạn viết chữ "Lộ giới" bằng Unicode thì Lisp sẽ không hiểu được tiếng Việt, mà muốn nó hiểu thì bạn phải chuyển chữ "Lộ giới" này qua mã Hexa (tương tự như khi bạn explode vậy) là "L\U+1ED9 gi\U+1EDBi". Vì vậy, nếu bạn muốn sử dụng được tiếng Việt trong lisp thì bạn phải chuyển qua mã Hexa rồi paste vào lisp. Bạn có thể tham khảo cách chuyển từ Unicode sang Hexa bằng tiện ích mà tôi đã post lên CADViet theo link dưới đây.
http://www.cadviet.c...onvert_ha_1.zip
Thân thương!
  • 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.


#6 namnhim

namnhim

    biết vẽ polygon

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

Đã gửi 02 November 2011 - 09:36 PM

bác Hà ơi, cái đường link bác gửi em không download về được. bac gửi lại giúp e được không?
  • 0

#7 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 02 November 2011 - 10:26 PM

Bạn vào theo link này
http://www.cadviet.c...pic=39312&st=60
Và down load file trong đường link ở cuối trang #63 nhé! Chức năng upload của CADViet đang bị tạm hoãn để nâng cấp.
Thân thương!
  • 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.


#8 namnhim

namnhim

    biết vẽ polygon

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

Đã gửi 02 November 2011 - 11:14 PM

cảm ơn bác, em đã doaw về nhưng chạy cái của bác em không hiểu lắm vì font chữ trong bảng nó bị lỗi đọc không được rõ bác a! nếu bác có thời gian, bác sửa giúp em 1 chút được không? vì khi thực hiện lệnh (LG; KL; hay TD) em muốn nó hiện chữ LỘ GIỚI, KHOẢNG LÙI HOẶC TIM ĐƯỜNG (rồi nhập tên đường muốn) nhưng nó chỉ hiểu font VN times. còn chữ quy chuẩn thì lại cần Times new Roman. rất chân thành cảm ơn!
  • 0

#9 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 02 November 2011 - 11:34 PM

Tôi không hiểu ý bạn lắm. Với lại hiện tại chức năng up load bị ngưng nên hướng dẫn chi tiết cho bạn hơi khó. Bạn chịu khó hiểu vậy.
Bạn load file *.vlx của tôi, sau đó dùng lệnh "CVS" thì sẽ có 1 dialoge hiện ra. Ở ô dành cho "Unicode" bạn đánh chữ "Lộ giới" bằng Unicode bình thường, sau đó chọn "chuyển", với tuỳ chọn text nguồn là Unicode. Tại ô "Hexa" bạn sẽ thấy chữ có nhiều dấu "\". Bạn copy và paste vào lisp của bạn ở chỗ mà bạn cần viết chữ "Lộ giới", thế là khi chạy lisp nó sẽ xuất ra đúng chữ "Lộ giới" cho bạn. Bạn muốn dùng font gì cũng được ("VN Time" hay "New Time Romans" v.v... đều được cả). Hy vọng bạn hiểu.
Thân thương!
  • 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.


#10 namnhim

namnhim

    biết vẽ polygon

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

Đã gửi 04 November 2011 - 10:42 PM

em có chuyển sang nhưng nó vẫn hiện ra chữ bị lỗi và copy đoạn đó dán vào lisp nó vẫn vậy, không up được hình ảnh nên đây để diễn đạt cho đủ ý. thôi có lẽ cứ tạm thời EXPLODE chữ rồi dán vào dùng tạm. còn chữ ở giữa tim đường dùng để gõ tên đường thì làm thủ công vậy! rất chân thành cảm ơn bác Hà!
  • 0

#11 namnhim

namnhim

    biết vẽ polygon

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

Đã gửi 03 April 2013 - 02:53 PM

các bác ơi cho em hỏi 1 tí, nếu dùng cái lisp này muốn cho thêm đoạn gọi 1 Mtext được tạo sẵn trong support để:

- khi gõ lệnh => chọn đoạn thẳng => chọn điểm đầu và điểm cuối => hiện lên cái Mtext có sẵn đó song song với đoạn thẳng và lúc đó ta có thể sửa tên đường tùy ý được không các bác nhỉ?

 

 (DEFUN C:TD5(/ cnt enam ent pnt s1 tot v1 val)(setvar "CMDECHO" 0.000)
(prompt "\nChon cac duong muon chuyen: ")
   (setq tl (getvar "textstyle"))
   (COMMAND "-LAYER" "m" "Tim duong" "color" 3 "" "")(PRINC)
   (SETQ A (SSGET))
   (COMMAND"CHPROP" A PAUSE "c" "3" "la" "Tim duong" "lt" "acad_iso10w100" "s" "0.15" "")(princ)
   (SETQ B (GETPOINT "CHON DIEM : diem dau  -  "))(PRINC)
   (SETQ C (GETPOINT "CHON DIEM : diem cuoi"))
   (command "-style" "TEXT" "Times New Roman" "1.1" "1" "0" "n" "n" )
   (command "-layer" "m" "Text""c" "White" "" "")
   (command "text" "j" "bl" B C (strcase(getstring T "NHAP TEN DUONG:   ")))
  (command "textstyle" tl)(princ))
 

  • 0