Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
thanhsitp

nhờ viết lisp biến dim thành text

Các bài được khuyến nghị

mình đang sửa một hồ sơ rất lớn,lúc trước vẽ thì mình dim kích thướt nhưng nay khách hàng bảo là không dim mà ghi kích thướt bằng text.nên mình nhờ các anh chị trên diễn đàn viết dùm mình lisp biến dim thành text với text là giá trị của dim.xin cám ơn.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
mình đang sửa một hồ sơ rất lớn,lúc trước vẽ thì mình dim kích thướt nhưng nay khách hàng bảo là không dim mà ghi kích thướt bằng text.nên mình nhờ các anh chị trên diễn đàn viết dùm mình lisp biến dim thành text với text là giá trị của dim.xin cám ơn.

 

Cái này không cần LSP đâu bác ạ, bác cứ dùng lệnh Fi lọc các Dimension ra >>> Explode chúng, tiếp theo lại dùng lệnh Erase chọn "p" >>> "r" >>> 'fi lọc các Text ra >> thế là xoá các đường gióng >> xong,

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
mình đang sửa một hồ sơ rất lớn,lúc trước vẽ thì mình dim kích thướt nhưng nay khách hàng bảo là không dim mà ghi kích thướt bằng text.nên mình nhờ các anh chị trên diễn đàn viết dùm mình lisp biến dim thành text với text là giá trị của dim.xin cám ơn.

Bạn thử cái này xem :

(defun c:dtt(/ ss sst)
(if (setq ss (ssget '((0 . "DIMENSION"))) i -1)
 (Repeat (sslength ss)
 (if (vl-cmdf "explode" ss)
   (Repeat (sslength (setq sst (ssget "P" (list(cons 0 "~*TEXT")))))
	   (vl-cmdf "erase" (ssname sst (setq i (1+ i))) "")
   )
 )
(setq i -1)
 )
)
)

  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Bạn thử cái này xem :

(defun c:dtt(/ ss sst)
(if (setq ss (ssget '((0 . "DIMENSION"))) i -1)
 (Repeat (sslength ss)
 (if (vl-cmdf "explode" ss)
   (Repeat (sslength (setq sst (ssget "P" (list(cons 0 "~*TEXT")))))
	   (vl-cmdf "erase" (ssname sst (setq i (1+ i))) "")
   )
 )
(setq i -1)
 )
)
)

 

Có cần thiết phải cần đến LSP không anh TUE_NV, bởi vì không phải lúc nào cũng có LSP bên cạnh, cái này dùng lệnh cad cũng nhanh chứ không quá phức tạp mà, theo ngu ý của em thì với những vấn đề cad giải quyết nhanh được thì mình sài lệnh CAD, nếu ko lâu ngày đâm ở máy ta thì vẽ ào ào, nhảy sang máy khác lại ì à ì ạch anh ạ....

@PS: mong một ngày đc gặp anh TuE_NV tại ĐN...

  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×