Dynamic Blocks

Dynamic Blocks

Reply
*Expert Elite*
Charles_Shade
Posts: 8,204
Registered: ‎04-10-2005
Message 1 of 6 (2,038 Views)
Accepted Solution

Multiple Visibility Lisp routine

2038 Views, 5 Replies
01-23-2012 01:29 PM

Could the users of this Lisp post the several Versions here for others to find?

I have come across a few in the AUGI Dynamic Block Forum who would like to make use of the Lisp but may be running into Version problems.

(And I thought that using the subject line would help.)

 

Link to visibility-add-eng discussion thread:

Original Thread

 

Regards, Charles Shade            Win8 FAQ
CSHADEDESIGN|AUTOCAD LT|LT-KB|DYNAMIC BLOCKS

 
Please mark Accept as Solution if your question is answered. Kudos gladly accepted.

Of course it is possible to check AutoCAD version before selecting an appropriate branch of user program.

But I hope that visibility-add-eng-v1.5 should work in versions 2007-2012.

As you know link for v1.5 is as follows: http://www.private.peterlink.ru/poleshchuk/cad/Download/visibility-add-eng-v1.5.zip

There is no enough statistics of using it.

*Expert Elite*
Charles_Shade
Posts: 8,204
Registered: ‎04-10-2005
Message 2 of 6 (2,002 Views)

Re: Multiple Visibility Lisp routine

02-07-2012 11:26 AM in reply to: Charles_Shade

Bump - For Nikolay

Regards, Charles Shade            Win8 FAQ
CSHADEDESIGN|AUTOCAD LT|LT-KB|DYNAMIC BLOCKS

 
Please mark Accept as Solution if your question is answered. Kudos gladly accepted.
Valued Contributor
NikolayPoleshchuk
Posts: 60
Registered: ‎06-27-2006
Message 3 of 6 (1,995 Views)

Re: Multiple Visibility Lisp routine

02-07-2012 08:44 PM in reply to: Charles_Shade

Of course it is possible to check AutoCAD version before selecting an appropriate branch of user program.

But I hope that visibility-add-eng-v1.5 should work in versions 2007-2012.

As you know link for v1.5 is as follows: http://www.private.peterlink.ru/poleshchuk/cad/Download/visibility-add-eng-v1.5.zip

There is no enough statistics of using it.

Nikolay Poleshchuk
http://poleshchuk.spb.ru/cad/eng.html
*Expert Elite*
Charles_Shade
Posts: 8,204
Registered: ‎04-10-2005
Message 4 of 6 (1,977 Views)

Re: Multiple Visibility Lisp routine

02-08-2012 05:18 AM in reply to: NikolayPoleshchuk

Thanks for the link Nikolay

Regards, Charles Shade            Win8 FAQ
CSHADEDESIGN|AUTOCAD LT|LT-KB|DYNAMIC BLOCKS

 
Please mark Accept as Solution if your question is answered. Kudos gladly accepted.
New Member
VMAnv
Posts: 1
Registered: ‎03-06-2012
Message 5 of 6 (1,906 Views)

Re: Multiple Visibility Lisp routine

03-09-2012 06:12 AM in reply to: Charles_Shade

 

Hello,

 

I have a problems with the lisp...I can't get it to work. ( I downloaded the lisp "visibility-add-eng-v1.5" )

 

First off all I needed to change the lisp. 

 

I placed "c:" before defun c:visibility_add and defun c:visibility_add.

Under this condition i can get to the commands in the command line after loading the app in autocad. 

 

Real problem:

 

After the command visibility_add and selection the point for the visibility set, autocad place a "fantom" visibility state which appears for a second and then diappears...

 

After this, there is a single visibility state in the drawing, as indicated by the "VisibilityState0" shown on the Visibility pane. However, there is no actual Visibility Parameter in the editor.

 

What can be the solution for this problem?

 

THANKS!

 

Commandline history:

 

Command: VISIBILITY_ADD Select point for placing Visibility Set: _.point
Current point modes:  PDMODE=0  PDSIZE=0.00
Specify a point: 0,0,0
Command: _.BSAVE
Command: _.BParameter
Enter parameter type
[Alignment/Base/pOint/Linear/Polar/Xy/Rotation/Flip/Visibility/looKup]: _V
Specify parameter location or [Name/Label/Description/Palette]: _L
Enter visibility property label <Visibility1>: Fantom
Specify parameter location or [Name/Label/Description/Palette]:
Enter number of grips [0/1] <1>:
Command: _.BSAVE
Command: _.point
Current point modes:  PDMODE=0  PDSIZE=0.00
Specify a point: 0,0,0
Command: _.undo Current settings: Auto = On, Control = All, Combine = Yes,
Layer = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back]
<1>: 5 (Lisp Expression) GROUP (Lisp Expression) GROUP (Lisp Expression) GROUP
(Lisp Expression) GROUP VISIBILITY_ADD GROUP Regenerating model.

Command: _.BSAVE
Command: _.point
Current point modes:  PDMODE=0  PDSIZE=0.00
Specify a point: 0,0,0
Command: _.BSAVE
Command: _.undo Current settings: Auto = On, Control = All, Combine = Yes,
Layer = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back]
<1>: 1 (Lisp Expression) GROUP Regenerating model.

Command: _.BParameter
Enter parameter type
[Alignment/Base/pOint/Linear/Polar/Xy/Rotation/Flip/Visibility/looKup]: _V
** Visibility parameter already exists in block definition. **
Command: _L Unknown command "L".  Press F1 for help.

Command: Visibility: 7ffff615 Unknown command "VISIBILITY: 7FFFF615".  Press F1
for help.

Command:
Command: VISIBILITY_ADD Unknown command "VISIBILITY_ADD".  Press F1 for help.

Command: _.point
Current point modes:  PDMODE=0  PDSIZE=0.00
Specify a point: 0,0,0
Command: _.point
Current point modes:  PDMODE=0  PDSIZE=0.00
Specify a point: 0,0,0
Command: nil

Command: _.BSAVE

 

 

Member
mj.harris
Posts: 3
Registered: ‎06-01-2011
Message 6 of 6 (1,829 Views)

Re: Multiple Visibility Lisp routine

03-27-2012 10:51 AM in reply to: Charles_Shade

I'm having the same problem too........

 

Command: (visibility_add)
Select point for placing Visibility Set: _.point
Current point modes:  PDMODE=0  PDSIZE=0'-0"
Specify a point: 0,0,0
Command: _.BSAVE
Command: _.BParameter
Enter parameter type
[Alignment/Base/pOint/Linear/Polar/Xy/Rotation/Flip/Visibility/looKup]: _V
Specify parameter location or [Name/Label/Description/Palette]: _L
Enter visibility property label <Visibility1>: Fantom
Specify parameter location or [Name/Label/Description/Palette]:
Enter number of grips [0/1] <1>:
Command: _.BSAVE
Command: _.point
Current point modes:  PDMODE=0  PDSIZE=0'-0"
Specify a point: 0,0,0
Command: _.undo Current settings: Auto = On, Control = All, Combine = No, Layer
= Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back]
<1>: 5 (Lisp Expression) GROUP (Lisp Expression) GROUP Regenerating model.
(Lisp Expression) GROUP (Lisp Expression) GROUP (Lisp Expression) GROUP Load
Application... Regenerating model.

Command: _.BSAVE
Command: _.point
Current point modes:  PDMODE=0  PDSIZE=0'-0"
Specify a point: 0,0,0
Command: ; error: bad association list: (nil nil nil nil nil nil nil nil)

Announcements
Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.
Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.