Chỉnh sửa Lisp

[Duc Manh 0]

Mình tìm được lisp này trên diễn đàn, nhưng ko offset được các đối tượng LINE, ARC. Nhờ mọi người giúp đỡ chỉnh sửa ạ!

(vl-load-com) 
(defun c:ofs( / ss lay lst)
  (setq lay (getvar 'clayer))
  (cond ((ssget '((0 . "CIRCLE,ELLIPSE,POLYLINE,LWPOLYLINE,SPLINE")))
(or #d (setq #d 5))
(setq #d (cond ((getdist (strcat "\nDistance <" (rtos #d 2 2) ">"))) (#d)))
(vlax-for obj (setq ss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
 (setq lst (mapcar 'car (list (vlax-invoke obj 'Offset #d)  (vlax-invoke obj 'Offset (- #d)))))
 (mapcar '(lambda (x) (vla-put-Layer x lay) (vla-put-Color x 256)) lst)
 (vla-delete (car (vl-sort lst
'(lambda(x y) ((if (< #d 0) > <) (vlax-get x 'Area) (vlax-get y 'Area))) ))
 )
)
(vla-delete ss)
)
(T (princ "\nNo thing to do"))
  )
)

[ketxu 2999]

Với arc thì bạn cứ thêm chữ ARC vào sau thằng SPLINE kia là được

Còn Line thì cân nhắc, vì Lisp này đang offset về 1 phía (trong / ngoài) dựa vào diện tích, mà Line thì k có diện tích và cũng không biết ntn gọi là trong hay ngoài