how to control visibility txt parameter in vlisp?

how to control visibility txt parameter in vlisp?

Anonymous
Not applicable
458 Views
3 Replies
Message 1 of 4

how to control visibility txt parameter in vlisp?

Anonymous
Not applicable

Hi,  how can i do to  turn only the underlined invisible ?

 

 

 

here is the code 

 

         (command "_bedit" "area")
                    (setvar "attmode" 2)
                    (command "erase" "all" "")
                    (command "_attdef" "a"  "" "nome" "nome" nome  "j" "mc"  "0,7"  12.5 0)
                    (command "_attdef" "a"  "" "area" "area" val  "j" "mc"  "0,-7" 7.5 0)
                    (command "_attdef" "a"  "" "area" "area" per  "j" "mc"  "0,-20" 7.5 0)
                    (command "_bsave")
                    (command "_bclose")

 

thanks

0 Likes
Accepted solutions (1)
459 Views
3 Replies
Replies (3)
Message 2 of 4

Shneuph
Collaborator
Collaborator

You may just need to put an "I" which toggles invisibility parameter: Like

 

(command "_attdef" "I" "a"  "" "area" "area" per  "j" "mc"  "0,-20" 7.5 0)

---sig---------------------------------------
'(83 104 110 101 117 112 104 64 71 109 97 105 108 46 99 111 109)
Message 3 of 4

Anonymous
Not applicable

thanks for answer but it's not working since i put the  system variable  "attmode" as 2, otherwise i cant be sure if it's gonna be invisible or visible  and the parameter "I" just change it for yes or no, without any control.

0 Likes
Message 4 of 4

Shneuph
Collaborator
Collaborator
Accepted solution

I believe you must have vl loaded.  (vl-load-com)

 

 

(command "_bedit" "area")
                    (setvar "attmode" 2)
                    (command "erase" "all" "")
                    (command "_attdef" "a"  "" "nome" "nome" nome  "j" "mc"  "0,7"  12.5 0)
                    (command "_attdef" "a"  "" "area" "area" val  "j" "mc"  "0,-7" 7.5 0)
                    (command "_attdef" "a"  "" "area" "area" per  "j" "mc"  "0,-20" 7.5 0)
(vla-put-invisible (vlax-ename->vla-object (entlast)) -1)
(command "_bsave") (command "_bclose")

 

 

 

---sig---------------------------------------
'(83 104 110 101 117 112 104 64 71 109 97 105 108 46 99 111 109)