Lisp miễn phí Offset 2 phía nhiều đối tượng | Both sides offset AutoLISP | 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 2Offset 

Offset đối tượng chọn (line/pline) về 2 phía theo khoảng cách chọn trước.

1 Thêm class 2Offset_by_lisp.vn.lsp

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

Code:

(defun c:2Offset ( / dist obj obj2 obj3 obj4 objent2 objent3 end1 end2 start1 start2 )
	(princ "\nOffset 2 phía by lisp.vn")
	(if (setq dist (getreal "\nEnter the offset value:"))
		(if (setq ss (ssget))
			(progn
				(repeat (setq n (sslength ss))
					(setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
					(VLA-OFFSET obj dist)
					(setq obj2ent (entlast))
					(setq obj2 (vlax-ename->vla-object obj2ent))
					(setq end1 (vlax-curve-getendpoint obj2))
					(setq start1(vlax-curve-getstartpoint obj2))
					(VLA-OFFSET obj (- 0.0 dist))
					(setq obj3ent (entlast))
					(setq obj3 (vlax-ename->vla-object obj3ent))
					(setq end2 (vlax-curve-getendpoint obj3))
					(setq start2(vlax-curve-getstartpoint obj3))
				)
				(command "Erase" ss "")
			)
		)
	)
	(princ "\nBy lisp.vn")
	(princ)
)

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!