Xin nhờ các bạn rành về lisp chinh chỉnh sửa giúp

[NguyenMinh88 5]

Xin chào các bạn !

Minh download trên web lips  dùng editblock in place

nhưng dùng khá bất tiện.

vui lòng chỉnh giúp mình khong bấm vào select để chọn đối tượng mà bỏ qua dòng nhắc này và chọn đối tượng luôn được không

Xin cám on

 

(defun c:test  (/ opt)
 (setvar 'cmdecho 0)
 (vl-load-com)
 (initget "DD EE FF Select")
 (setq opt (getkword "\nSelect block entity or [DD/EE/FF/Select]: "))
 (cond
  ((or (= "DD" opt)
     (= "EE" opt)
     (= "EE" opt))
             (sssetfirst nil (ssget "_x" (list '(0  . "INSERT") (cons 2 opt))))
  (vl-cmdf "_.-refedit")
   (while (> (getvar "CMDACTIVE") 0)
    (command "_o" "" "")
  )
 )
 
((= "Select" opt)
 (sssetfirst nil (ssget ":S" '((0 . "INSERT"))))
  (vl-cmdf "_.-refedit")
   (while (> (getvar "CMDACTIVE") 0)
    (command "_o" "" "")
  )
  )
)
(setvar 'cmdecho 1)
(princ)
)

[cuongtk2 441]

(defun c:rd ()
  (setvar 'cmdecho 0)
   (sssetfirst nil (ssget ":S" '((0 . "INSERT"))))
  (vl-cmdf "_.-refedit")
   (while (> (getvar "CMDACTIVE") 0)
    (command "_o" "" "")
  )
  (setvar 'cmdecho 1)
(princ)
)

Đó bạn

[NguyenMinh88 5]

cám cám ơn bạn @cuongtk2 ! bạn kiểm tra giúp không load duoc trong cad ! tks

[cuongtk2 441]

Sót dấu ngoặc đơn phía trước  defun "(" ,  đã sửa lại cho bạn. Chúc vui vẻ.