Dynamic Blocks

Dynamic Blocks

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

Multiple Visibility Lisp routine

2166 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,130 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 (2,123 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 (2,105 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 (2,034 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,957 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)

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.