Nhờ viết tiếp lisp remove đối tượng trong block

[NguyenMinh88 0]

Xin chào các bạn ! Mình tìm được lisp này trên mạng

Mình khong hiểu gì về lisp

Nhờ các bạn hiểu về lisp  chỉnh sửa đoạn lisp này

lisp này chỉ hiện lên bảng giúp chúng ta chọn thêm hày remove đối tương ra khỏi block và bấm nút save trên bản hiện ra

Vậy có cách nào giúp chọn đối tường và remove  và save lại mà không hiện bảng chỉ dẫn ( ý là bỏ qua bước hiện bản giúp chọn và save )

Xin cám ơn các bạn đã giúp đỡ.

(defun c:Rm  ()
  (if(=(strlen(getvar 'refeditname))0)
    (progn
      (sssetfirst nil(ssget "_:S" '((0 . "INSERT"))))
      (command "-refedit" "O" "" "")
      
    )
    (command "refCLOSE" "" "")
  )
  (princ)
 

 

[vietduc147258 88]

Vào lúc 26/10/2024 tại 22:48, NguyenMinh88 đã nói:

Xin chào các bạn ! Mình tìm được lisp này trên mạng

Mình khong hiểu gì về lisp

Nhờ các bạn hiểu về lisp  chỉnh sửa đoạn lisp này

lisp này chỉ hiện lên bảng giúp chúng ta chọn thêm hày remove đối tương ra khỏi block và bấm nút save trên bản hiện ra

Vậy có cách nào giúp chọn đối tường và remove  và save lại mà không hiện bảng chỉ dẫn ( ý là bỏ qua bước hiện bản giúp chọn và save )

Xin cám ơn các bạn đã giúp đỡ.

(defun c:Rm  ()
  (if(=(strlen(getvar 'refeditname))0)
    (progn
      (sssetfirst nil(ssget "_:S" '((0 . "INSERT"))))
      (command "-refedit" "O" "" "")
      
    )
    (command "refCLOSE" "" "")
  )
  (princ)
 

 

Lisp EraseOjbectFromBlock này chắc cũng nằm cùng chỗ với cái bạn tìm thấy

Sao không dùng nó?

https://www.cadtutor.net/forum/topic/73634-quickly-remove-objects-on-block-with-swept-selected-object/

[limfx 32]

Bạn đưa hết lisp tên chứ đưa lưng chừng vậy biết đâu mần!

[NguyenMinh88 0]

Vâng cám ơn bạn ! 02 lisp đó mình dều load trên mạng

1 . Lisp thứ 1 thì giống như lệnh edit block trong cad . > bạn giúp  viết thêm không cần hiện lên bản click chon vào biệu tuong + hay - dể remove đối tượng ,

2  lisp thứ 2 thì remove và xóa đối tuong đó luôn.> bạn  giúp chỉnh lisp remove đối tuong mà không xóa .

Mình mong muốn remove đối tuong trong block nhu khong xóa đối tượng.

Xin cám ơn bạn .

[vietduc147258 88]

Vào lúc 29/10/2024 tại 09:59, NguyenMinh88 đã nói:

Vâng cám ơn bạn ! 02 lisp đó mình dều load trên mạng

1 . Lisp thứ 1 thì giống như lệnh edit block trong cad . > bạn giúp  viết thêm không cần hiện lên bản click chon vào biệu tuong + hay - dể remove đối tượng ,

2  lisp thứ 2 thì remove và xóa đối tuong đó luôn.> bạn  giúp chỉnh lisp remove đối tuong mà không xóa .

Mình mong muốn remove đối tuong trong block nhu khong xóa đối tượng.

Xin cám ơn bạn .

Không rành lisp lắm nên sửa cho bạn dùng đỡ. Không tắt được bảng, chỉ bớt được khâu chọn -  để remove thôi. Với lại không hỗ trợ Block động nữa

(defun c:Rm  ()
  (if(=(strlen(getvar 'refeditname))0)
    (progn
		(sssetfirst nil(ssget "_:S" '((0 . "INSERT"))))
		(command "_-refedit" "O" "" "")
		(command "_refset" "_rem" (ssget) "")
		(command "refCLOSE" "")
    )
  )
  (princ)
)

 

[quangcda 8]

EraseObjectFromBlock.LSP

Đây nhé! nguồn cadtutor.net