Nhờ các bạn giúp sử dụng lisp này

[NguyenMinh88 5]

Xin chào các bạn !

Do công việc của mình gia cong bản vẽ nên thay đổi line type rat nhiều.

Mình download trên mang được lisp này . Nhung không sử dụng

Nhờ các bạn biết chỉ giúp ! xin cam on

lisp.rar

[vietduc147258 111]

7 giờ trước, NguyenMinh88 đã nói:

Mình download trên mang được lisp này . Nhung không sử dụng

lisp.rar

Bạn làm 2 bước sau:

1.  Đổi tên file .DCL thành DDCHLTY.DCL

2. Đưa vào Support fie search path:

Có thể dùng cách copy vào C:\Program Files\Autodesk\AutoCAD 20xx\Support

hoặc OP tìm đến File - > Support fie search path rồi add thư mục chứa lisp và DCL vào

[NguyenMinh88 5]

xin cám on bạn nhiều ! xin cám ơn.

[vietduc147258 111]

13 giờ trước, NguyenMinh88 đã nói:

xin cám on bạn nhiều ! xin cám ơn.

Ơ thế không like à.

Mà lisp này dùng còn thấy không trực quan bằng thanh công cụ của Autocad. Show tất cả line type lên luôn nhìn hơi rối. Hay đổi line type thì chắc cũng nằm trong khoảng 4,5 type thôi. Kiếm lisp đổi trực tiếp sang line type loại đó cho nhanh.

có cái này tự sửa dùng xem ổn hơn không

(defun chuyendt () 
  (setq sset (ssget)) 
  (if (null sset)
    (progn
      (princ "\nERROR: Nothing selected.")
      (exit)
    )
  )
) 
(defun chuyentt (tt tv)
  (command "_.change" sset "" "P" tt tv "")
(princ)
)

(defun c:hh	(/ sset) (chuyendt) (chuyentt "LT" "Hidden") )  ; Chuyen doi tuong thanh net dut
(defun c:c2	(/ sset) (chuyendt) (chuyentt "LT" "Center2") )  ; Chuyen doi tuong thanh Center2
(defun c:cc	(/ sset) (chuyendt) (chuyentt "LT" "Continuous") )  ; Chuyen doi tuong thanh Continuous
(defun c:bb	(/ sset) (chuyendt) (chuyentt "LT" "ByBlock") )  ; Chuyen doi tuong thanh ByBlock

(defun c:md (/ sset) (chuyendt)
  	(chuyentt   "LT" "ByLayer")
 	(chuyentt   "Lw" "ByLayer" )
 	(chuyentt   "color" "ByLayer")
)

 

[NguyenMinh88 5]

xin cam on ban @vietduc147258