Đến nội dung


Hình ảnh
- - - - -

lisp đổi font cho text sang font .VnHelvetlnsH !!!


  • Please log in to reply
14 replies to this topic

#1 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 18 December 2008 - 05:44 PM

Bác pro nào viết giúp em cái Lisp đổi font của Text sang font .VnHelvetlnsH Với !!!
  • 0
Hoàng Giang

#2 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 19 December 2008 - 08:15 AM

Bác pro nào viết giúp em cái Lisp đổi font của Text sang font .VnHelvetlnsH Với !!!

Bác nào viết cho em đi ???
  • 0
Hoàng Giang

#3 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 19 December 2008 - 08:36 AM

[quote name='hhhhgggg' date='Dec 19 2008, 8:15' post='45165']
Bác nào viết cho em đi ???
[/quoteư
Viết cho bạn rrồi nè. Ở đây nè :
http://www.cadviet.c...?showtopic=8362
Chúc thành công nhé. :cheers:
  • 0

#4 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 19 December 2008 - 11:57 AM

Bác pro nào viết giúp em cái Lisp đổi font của Text sang font .VnHelvetlnsH Với !!!

2 cái hoàn toàn khác nhau, bác Tuệ à, 1 cái là đổi Font cho Text còn cái bác viết cho em rồi là đổi Font cho toàn bộ Style. Như vậy tất cả các đối tượng Text khác đều bị đổi Font. Còn cái Lisp này theo em nghĩ thì phải đổi thằng Text được chọn sang 1 Style khác và Font của Style đó là Font .VnhelvetlnsH phải ko ?
  • 0
Hoàng Giang

#5 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 19 December 2008 - 05:32 PM

2 cái hoàn toàn khác nhau, bác Tuệ à, 1 cái là đổi Font cho Text còn cái bác viết cho em rồi là đổi Font cho toàn bộ Style. Như vậy tất cả các đối tượng Text khác đều bị đổi Font. Còn cái Lisp này theo em nghĩ thì phải đổi thằng Text được chọn sang 1 Style khác và Font của Style đó là Font .VnhelvetlnsH phải ko ?

Bạn dùng thử đoạn Code này xem nhé :
(defun c:doitext()
(Prompt "\nBan chon Text can chuyen :")
(setq ss (ssget '((0 . "TEXT"))))
(setq po '(0 0))
(setq tue "I")
(command ".-style" "Standard" ".VnHelvetInsH Medium" "250" "1" "0" "n" "n")
(command "text" "j" "TC" po "0" tue)
(command "zoom" "all")
(command "MATCHPROP" po ss "")
(command "erase" po1 "")
(command "zoom" "p")
)

  • 0

#6 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 19 December 2008 - 07:02 PM

Bạn dùng thử đoạn Code này xem nhé :

(defun c:doitext()
(Prompt "\nBan chon Text can chuyen :")
(setq ss (ssget '((0 . "TEXT"))))
(setq po '(0 0))
(setq tue "I")
(command ".-style" "Standard" ".VnHelvetInsH Medium" "250" "1" "0" "n" "n")
(command "text" "j" "TC" po "0" tue)
(command "zoom" "all")
(command "MATCHPROP" po ss "")
(command "erase" po1 "")
(command "zoom" "p")
)

Ko được bác Tuệ à, Bác phải sửa đôi chút.
1: Lisp của bác thay đổi chiều cao của Text = 250 là sai ở đây yêu cầu chỉ đổi Font chữ thôi, giữ nguyên chiều cao ban đầu của Text
2: Lisp thay đổi Font của Style Standar, làm đổi font của các đối tượng khác.
Mong bác sửa giúp 2 lỗi, Theo ý kiến của em thì mình sẽ đổi đối tượng được chọn sang 1 Style mới là CADVIET , và
Font của Style đó là .VnHelvetInsH Medium.

  • 0
Hoàng Giang

#7 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 20 December 2008 - 07:46 AM

Ko được bác Tuệ à, Bác phải sửa đôi chút.
1: Lisp của bác thay đổi chiều cao của Text = 250 là sai ở đây yêu cầu chỉ đổi Font chữ thôi, giữ nguyên chiều cao ban đầu của Text
2: Lisp thay đổi Font của Style Standar, làm đổi font của các đối tượng khác.
Mong bác sửa giúp 2 lỗi, Theo ý kiến của em thì mình sẽ đổi đối tượng được chọn sang 1 Style mới là CADVIET , và
Font của Style đó là .VnHelvetInsH Medium.

1 : đang tìm giải pháp
2 : Bạn đổi chuổi "Standard" thành chuổi "CADVIET" trong đoạn Code trên là được

Thiết nghĩ, trong bài toán của bạn không nhất thiết phải dùng Lisp để giải quyết vấn đề.
Chỉ cần sử dụng CAD là được.
Bạn dùng lệnh style tạo style mới mang tên CADViet và Font của Style đó là .VnHelvetInsH Medium.
Cái này mình đã làm đoạn Code cho bạn rồi nhé.

Chọn Text cần chuyển. Bấm Ctrol+1. Trong menu xổ xuống Text -> Chọn style : CADVIET là OK. Cần gì phải viết LISP. OK?
  • 0

#8 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 20 December 2008 - 08:36 AM

1 : đang tìm giải pháp
2 : Bạn đổi chuổi "Standard" thành chuổi "CADVIET" trong đoạn Code trên là được

Thiết nghĩ, trong bài toán của bạn không nhất thiết phải dùng Lisp để giải quyết vấn đề.
Chỉ cần sử dụng CAD là được.
Bạn dùng lệnh style tạo style mới mang tên CADViet và Font của Style đó là .VnHelvetInsH Medium.
Cái này mình đã làm đoạn Code cho bạn rồi nhé.

Chọn Text cần chuyển. Bấm Ctrol+1. Trong menu xổ xuống Text -> Chọn style : CADVIET là OK. Cần gì phải viết LISP. OK?

Rõ ràng là dùng CAD thì cũng làm được nhưng mất nhiều thao tác, mất thời gian trong khi công việc thường xuyên phải làm như vậy. Ngôn ngữ lập trình Lisp là để đẩy nhanh tốc độ làm CAD mà, cho nên mới phải viết ra lisp. Em đã đổi cái Standar thành CAD việt trước khi phản hổi cho bác nhưng mà ko được !
  • 0
Hoàng Giang

#9 trandoanh2

trandoanh2

    biết vẽ circle

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

Đã gửi 20 December 2008 - 08:58 AM

Bác pro nào viết giúp em cái Lisp đổi font của Text sang font .VnHelvetlnsH Với !!!

http://www.cadviet.c...untitled_98.jpgVisit My Website
EM SPAM TÍ CÁC PÁC THÔNG CẢM TÝ NHÉ
  • 0
Chẳng biết ngày sau ra sao nữa , dẫu có ra sao cũng chẳng sao...

#10 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 21 December 2008 - 11:19 AM

Rõ ràng là dùng CAD thì cũng làm được nhưng mất nhiều thao tác, mất thời gian trong khi công việc thường xuyên phải làm như vậy. Ngôn ngữ lập trình Lisp là để đẩy nhanh tốc độ làm CAD mà, cho nên mới phải viết ra lisp. Em đã đổi cái Standar thành CAD việt trước khi phản hổi cho bác nhưng mà ko được !

Bác Tuệ dào này bận hay sao mà ko thấy sửa giúp em vậy ?
  • 0
Hoàng Giang

#11 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 05 January 2009 - 07:25 PM

Bác Tuệ dào này bận hay sao mà ko thấy sửa giúp em vậy ?

Sao ko bác Pro nào chịu viết giúp em vậy ??????????
  • 0
Hoàng Giang

#12 leejang

leejang

    biết lệnh move

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

Đã gửi 06 January 2009 - 07:50 AM

Sao ko bác Pro nào chịu viết giúp em vậy ??????????

Bác Pro nào biết Lisp thì viết hộ bác ấy đi, e ko bit chứ e bit thì e viết cho bác ấy liền !
  • 0

#13 xaydung

xaydung

    biết lệnh trim

  • Members
  • PipPipPip
  • 191 Bài viết
Điểm đánh giá: 12 (tàm tạm)

Đã gửi 07 January 2009 - 12:37 AM

Sao ko bác Pro nào chịu viết giúp em vậy ??????????

phải thế này không bác!!

Hình đã gửi
Hình đã gửi
  • 0

#14 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 07 January 2009 - 09:36 AM

Bác Tuệ dào này bận hay sao mà ko thấy sửa giúp em vậy ?

Bạn Tue VN chắc bận cái jì đó thôi mình viết giúp bạn vậy.
-Lệnh là DF
-Điều kiện các text của bạn phải có giá trị độ cao riêng không phụ thuộc vào độ cao của kiểu chử:

(defun c:df ()
(command "undo" "be")
(command "-style" "doifont" ".VnHelvetInsH Medium" "0" "1" "0" "n" "n")
(prompt "\nChon chu muon chinh.")
(setq ss (ssget))
(setq c 0)
(if ss (setq e (ssname ss c)))
(while e
(setq e (entget e))
(if (= (cdr (assoc 0 e)) "TEXT")
(progn
(setq txt "doifont")
(setq e (subst (cons 7 txt) (assoc 7 e) e))
(entmod e)
)
)
(setq c (1+ c))
(setq e (ssname ss c))
)
(command "undo" "end")
(Prin I)
)


Kiểu chử tạo ra để chuyển có tên là doifont.
  • 1

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


#15 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 13 January 2009 - 02:24 PM

Bạn Tue VN chắc bận cái jì đó thôi mình viết giúp bạn vậy.
-Lệnh là DF
-Điều kiện các text của bạn phải có giá trị độ cao riêng không phụ thuộc vào độ cao của kiểu chử:

(defun c:df ()
(command "undo" "be")
(command "-style" "doifont" ".VnHelvetInsH Medium" "0" "1" "0" "n" "n")
(prompt "\nChon chu muon chinh.")
(setq ss (ssget))
(setq c 0)
(if ss (setq e (ssname ss c)))
(while e
(setq e (entget e))
(if (= (cdr (assoc 0 e)) "TEXT")
(progn
(setq txt "doifont")
(setq e (subst (cons 7 txt) (assoc 7 e) e))
(entmod e)
)
)
(setq c (1+ c))
(setq e (ssname ss c))
)
(command "undo" "end")
(Prin I)
)


Kiểu chử tạo ra để chuyển có tên là doifont.

Cảm ơn bác Duy nhiều nhé, Bác đã giải được bài toán cho em rồi. Diễn đàn của mình thật tuyệt vời !
  • 0
Hoàng Giang