Đến nội dung


Hình ảnh
5 stars - based on 24598 reviews
- - - - -

[Help] Nhờ Chỉnh Sửa File Lisp Thay Đổi Màu Chữ Dung Sai


  • Please log in to reply
7 replies to this topic

#1 Funiki28

Funiki28

    Chưa sử dụng CAD

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

Đã gửi 20 April 2017 - 12:24 PM

Chào mọi người

Mình mới viết lisp cho phép viết dimension với dung sai có sẵn như sau:

(defun c:d11()
(setvar "cmdecho" 0)
(graphscr)
(command "dimtol" "on")
(command "dimtfac" "0.65")
(command "dimtp" "0.01")
(command "dimtm" "0.01")
(command "dimlinear" pause pause pause)
(command "dimtol" "off")
(graphscr)
(princ)
)
 
Lisp trên hoạt động tốt, tuy nhiên màu chữ dung sai với màu chữ kích thước đang cùng màu. Giờ mình muốn đổi màu chữ dung sai sang màu số 5 thì làm thế nào vậy. Nhờ mọi người giúp đỡ

  • 0

#2 Danh Cong

Danh Cong

    biết dimcontinue

  • Moderator
  • PipPipPipPipPip
  • 378 Bài viết
Điểm đánh giá: 83 (tàm tạm)

Đã gửi 20 April 2017 - 01:23 PM

 

Chào mọi người

Mình mới viết lisp cho phép viết dimension với dung sai có sẵn như sau:

(defun c:d11()
(setvar "cmdecho" 0)
(graphscr)
(command "dimtol" "on")
(command "dimtfac" "0.65")
(command "dimtp" "0.01")
(command "dimtm" "0.01")
(command "dimlinear" pause pause pause)
(command "dimtol" "off")
(graphscr)
(princ)
)
Lisp trên hoạt động tốt, tuy nhiên màu chữ dung sai với màu chữ kích thước đang cùng màu. Giờ mình muốn đổi màu chữ dung sai sang màu số 5 thì làm thế nào vậy. Nhờ mọi người giúp đỡ

 

 

(command "Dimclrt" 5)


  • 0

            *** Vô lo - Vô nghĩ - Vô sầu hận ***
*** Chẳng thương - Chẳng giận - Chẳng đau lòng ***


#3 Funiki28

Funiki28

    Chưa sử dụng CAD

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

Đã gửi 21 April 2017 - 10:16 AM

(command "Dimclrt" 5

Thêm nhự vậy thì cả dòng kích thước và dòng dung sai đều chuyển thành màu số 5. Mình chỉ muốn thay đổi dòng chữ ghi dung sai cho khác dòng ghi kích thước danh nghĩa thôi


  • 0

#4 Danh Cong

Danh Cong

    biết dimcontinue

  • Moderator
  • PipPipPipPipPip
  • 378 Bài viết
Điểm đánh giá: 83 (tàm tạm)

Đã gửi 21 April 2017 - 01:55 PM

Thêm nhự vậy thì cả dòng kích thước và dòng dung sai đều chuyển thành màu số 5. Mình chỉ muốn thay đổi dòng chữ ghi dung sai cho khác dòng ghi kích thước danh nghĩa thôi

+ Trong trường hợp lisp của bạn: Dimension có dòng kích thước và sai số cùng 1 mạch. Nên việc thay đổi màu sai số và kích thước khác nhau theo như mình biết là điều ko thể.

 

+ Nếu bạn muốn thay đổi màu kích thước và dung sai khác nhau: Thì phải thay đổi theo kiểu viết thêm chữ vào Dimension ( Lệnh Edit ), rồi thay đổi màu chữ thêm vào đó. Và trường hợp này sẽ viết lisp được.


  • 0

            *** Vô lo - Vô nghĩ - Vô sầu hận ***
*** Chẳng thương - Chẳng giận - Chẳng đau lòng ***


#5 Funiki28

Funiki28

    Chưa sử dụng CAD

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

Đã gửi 22 April 2017 - 07:25 AM

+ Trong trường hợp lisp của bạn: Dimension có dòng kích thước và sai số cùng 1 mạch. Nên việc thay đổi màu sai số và kích thước khác nhau theo như mình biết là điều ko thể.

 

+ Nếu bạn muốn thay đổi màu kích thước và dung sai khác nhau: Thì phải thay đổi theo kiểu viết thêm chữ vào Dimension ( Lệnh Edit ), rồi thay đổi màu chữ thêm vào đó. Và trường hợp này sẽ viết lisp được.

Vậy nhờ bạn thay đổi giúp mình với!


  • 0

#6 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 22 April 2017 - 08:00 AM

+ Trong trường hợp lisp của bạn: Dimension có dòng kích thước và sai số cùng 1 mạch. Nên việc thay đổi màu sai số và kích thước khác nhau theo như mình biết là điều ko thể.

 

Có thể Danh Cong ạ. Nghiên cứu Dim này sẽ ra cách viết
http://www.cadviet.c...s/7/67029_d.dwg

67029_d.png


  • 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.


#7 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 385 Bài viết
Điểm đánh giá: 426 (tốt)

Đã gửi 22 April 2017 - 03:26 PM

Vậy nhờ bạn thay đổi giúp mình với!

Very simple :) :

(defun c:d11()

(command "dimpost" "<> \\C5;\\H0.65X;\\B%%p0.01")

(command "dimlinear" pause pause pause)

(princ))

Or :

(defun c:d11()

(command "dimpost" "<> \\C5;\\H0.65X;\\S+0.01^ -0.01;")

(command "dimlinear" pause pause pause)

(princ))


  • 1

#8 Danh Cong

Danh Cong

    biết dimcontinue

  • Moderator
  • PipPipPipPipPip
  • 378 Bài viết
Điểm đánh giá: 83 (tàm tạm)

Đã gửi Hôm nay, 08:41 AM

Có thể Danh Cong ạ. Nghiên cứu Dim này sẽ ra cách viết
http://www.cadviet.c...s/7/67029_d.dwg

 

 

Quả là còn nhiều điều để học hỏi  :))) Cám ơn bác.


  • 0

            *** Vô lo - Vô nghĩ - Vô sầu hận ***
*** Chẳng thương - Chẳng giận - Chẳng đau lòng ***