I have a Lisp to set Visibility Block Parameter & standard Visibility State, it is working but I want to place it by a given point. Actually the Visibility Block Parameter is set to '(0.0 -10 0.0) .
Actual Lisp:
;Set Visibility Block Parameter + Visibility State in a Dynamic Block
(defun c:VIST ( )
(command "_bparameter" "_visibility" '(0.0 -10 0.0) "1")
(command "-bvstate" "N" "FRONT" "C")
(command "-bvstate" "N" "TOP" "C")
(command "-bvstate" "N" "LEFT" "C")
(command "-bvstate" "N" "RIGHT" "C")
(command "-bvstate" "N" "ALL" "C")
(command "-bvstate" "_delete" "VisibilityState0")
(command "-bvstate" "S" "FRONT")
(princ)
)
I tried with a point but it doesn't work:
;Set Visibility Block Parameter + Visibility State in a Dynamic Block
(defun c:VIST ( )
(setq pt1 (getpoint"\nPick position for Visibility state:"))
(setq a (car pt1))
(setq b (cadr pt1))
(command "_bparameter" "_visibility" '(a b 0.0) "1")
(command "-bvstate" "N" "FRONT" "C")
(command "-bvstate" "N" "TOP" "C")
(command "-bvstate" "N" "LEFT" "C")
(command "-bvstate" "N" "RIGHT" "C")
(command "-bvstate" "N" "ALL" "C")
(command "-bvstate" "_delete" "VisibilityState0")
(command "-bvstate" "S" "FRONT")
(princ)
)
Thank you in advance for your help
