[Yêu cầu] lisp bo hatch

[duy782006 1.545]

Cái đó thì là do cad chứ không phải do lisp. Trước khi thực hiện lệnh thì tạo 1 layer mới cho nó hiện hành. xong tắt hết layer đi để lại layer chứa đường bao mới tạo rồi dùng lệnh Join nối lại.

[dungpham01 6]

cái này không dùng trên cad 2005 được

[duy782006 1.545]

Cái nào?

[tranhieu.kisuxaydung 5]

Vào lúc 8/8/2011 tại 11:17, phamngoctukts đã nói:

Bạn dùng thử cái này xem sao:

 

• bh.lsp
  
• [✎]
   

(defun c:bh( / sl n)
 (setq sl (acet-ss-to-list(ssget '((0 . "HATCH")))))
 (foreach n sl
   (command "hatchedit" n "b" "p" "y" "")
   )
 )

 

 

Lisp của bác quá đỉnh luôn. em cảm ơn nhé!

[tranhieu.kisuxaydung 5]

Vào lúc 8/8/2011 tại 11:17, phamngoctukts đã nói:

Bạn dùng thử cái này xem sao:

 

• bh.lsp
  
• [✎]
   

(defun c:bh( / sl n)
 (setq sl (acet-ss-to-list(ssget '((0 . "HATCH")))))
 (foreach n sl
   (command "hatchedit" n "b" "p" "y" "")
   )
 )

 

 

Lisp của bác quá đỉnh luôn. em cảm ơn nhé!

[Hieu011 2]

Vào lúc 23/9/2019 tại 08:34, divine kai đã nói:

có ai có thể sửa giúp em không

 

Có thể đây là cái bạn cần.

Vẫn là lisp gốc và gợi ý của các tiền bối, mình chỉ thêm lệnh pe để join các đường line lại.

Mình chạy trên CAD 2007 ok, còn lại mình không biết đâu nhé.

BH1.lsp