Lisp tạo Dyanmic

Lisp sau giúp tạo thêm thuộc tính động Parameter và thêm các hành động cho block.

Áp dụng với hàng loạt Block được chọn.

Tự đông BE, Tự động BCLOSE.

Code: Tạo Linear và Action

(defun c:WH ( /)
	(if
		(setq ss (ssget '((0 . "INSERT"))))
		(progn
			(repeat (setq i (sslength ss))
				(setq bn (cdr (assoc 2 (entget (ssname ss (setq i (1- i)))))))				
				(command "_Bedit" bn)
				(command "_bparameter" "_Linear" "_Name" "Height" "_Label" "Height" '(0.0 0.0 0.0) '(0.0 2500.0 0.0) '(-500.0 0.0 0.0) "")
				(command "_BActionTool" "_Stretch" '(-500.0 0.0 0.0) "_second" '(1750.0 2350.0 0.0) '(-50.0 2600.0 0.0) "" "_C" '(1750.0 2350.0 0.0) '(-50.0 2600.0 0.0) "")
				(command "_BVSHOW" '(-500.0 0.0 0.0) "" "_All")
				(command "_bparameter" "_Linear" "_Label" "Width" '(0.0 0.0 0.0) '(900.0 0.0 0.0) '(0.0 -200.0 0.0) "")
				(command "_BActionTool" "_Stretch" '(0.0 -200.0 0.0) "_second" '(950.0 -100.0 0.0) '(800.0 2600.0 0.0) "" "_C" '(950.0 -100.0 0.0) '(800.0 2600.0 0.0) "")
				(command "_BVSHOW" '(0.0 -200.0 0.0) "" "_All")
				(command "_bsave")				
				(command "_BClose")
			)			
		)
	)	(princ "lisp.vn")	(princ)
)

Code: Tạo Visibility mới

(defun c:H60 ( / msg ss nb i bn lst p1)
	(defun sleep_osnap ()(setvar "OSMODE" (logior (getvar "OSMODE") 16384)))
	(defun wake_osnap ()(setvar "OSMODE" (logand (getvar "OSMODE") -16385)))
	(defun toggle_osnap ()(setvar "OSMODE" (boole 6 (getvar "OSMODE") 16384)))
	(if
		(setq ss (ssget '((0 . "INSERT"))))
		(progn
			(setq p1 '(450.0 2400 0.0) p2 '(700.0 2390 0.0) p3 '(710.0 2410 0.0))
			(sleep_osnap)
			(repeat (setq i (sslength ss))
				(setq ent (ssname ss (setq i (1- i))))
				(setq ssnew (ssadd ent))
				(sssetfirst nil ssnew)
				(command "-BEDIT")
				(command "_bparameter" "_visibility" "_Label" "H60" p1 "0")
				
				(command "_bvstate" "_new" "true" "_Current")
				(command "_bvstate" "_new" "false" "_Current")
				(command "_bvstate" "_set" "false")
				(command "_bvhide" p2 "" "_Current")
				(command "_bvstate" "_delete" "VisibilityState0")
				(command "_bsave")
				(command "_BClose")
			)
			(wake_osnap)
		)
	)
	(princ "lisp.vn")
	(princ)
)