Lisp miễn phí convert Solid thành Hatch | Solid2Hatch by renanemeyer | S2H | AutoLISP Reviewer

Ứng dụng được phát triển/Sưu tầm bởi đội ngũ AutoLISP Thật là đơn giản

   

Thông tin thêm: 👉👉👉

Lệnh Solid2Hatch

Chuyển đổi Solid thành Hatch. Link tải miễn phí cuối bài viết!

1 Thêm class AJS_.lsp

Lưu mã sau dưới dạng tệp tin AJS_.lsp

Code:

(defun c:Solid2Hatch (/ el h p p2 pl s sp x)
  ;; RJP » 2021-07-07
  ;; Converts solids to hatches
  (if (setq s (ssget '((0 . "SOLID"))))
    (progn
      (foreach e (mapcar 'cadr (ssnamex s))
	(setq el (entget e))
	(setq sp (vlax-ename->vla-object (cdr (assoc 330 el))))
	(setq p (mapcar 'cdr (vl-remove-if-not '(lambda (x) (member (car x) '(10 11 12 13))) el)))
	(setq p2 (list (car p) (cadr p) (last p) (caddr p)))
	(setq pl (entmakex (apply 'append
				  (list	(list '(0 . "LWPOLYLINE")
					      '(100 . "AcDbEntity")
					      (assoc 8 el)
					      (cons 100 "AcDbPolyline")
					      '(90 . 4)
					      '(70 . 1)
					)
					(mapcar '(lambda (x) (list 10 (car x) (cadr x))) p2)
				  )
			   )
		 )
	)
	(setq h (vlax-invoke sp 'addhatch achatchobject "SOLID" :vlax-true))
	(vlax-invoke h 'appendouterloop (list (vlax-ename->vla-object pl)))
	(vla-put-layer h (cdr (assoc 8 el)))
	(entdel e)
      )
    )
  )
  (princ "\nBy renanemeyer")
  (princ "\nhttps://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-all-solid-to-hatch/td-p/10450385")
  (princ "\nEdited by lisp.vn\n")
  (princ)
)

Tác giả: renanemeyer 

Nguồn: https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-all-solid-to-hatch/td-p/10450385

Bản trả phí S2H

Ứng dụng HM cung cấp lệnh S2H hoạt động tương đương, nhưng cho kết quả đáng tin cậy và tốc độ xử lý vượt trội.

Ứng dụng HM do AJS phát triển!

Link tải (MediaFire)

📥 https://www.mediafire.com/

---------------------------------------------------------------------------------------------

Ứng dụng được phát triển bởi đội ngũ AutoLISP Thật là đơn giản - Tác giả ứng dụng in D2P

    

Mọi thông tin xin liên hệ Fanpage AutoLISP Thật là đơn giản!

Cảm ơn bạn đã theo dõi!