Showing posts with label select. Show all posts
Showing posts with label select. Show all posts
Sunday, December 31, 2017
HP is giving away select TouchPad apps
HP is giving away select TouchPad apps
HP is offering TouchPad users six paid apps absolutely free for a limited time. The promotion comes shortly after HP discontinued the WebOS tablet after less than two months on the market and sparked a fire liquidation sale.
The offer was announced on the official HP Palm blog yesterday. The apps in question range from games to a bird watching guide and vary in price from $0.99 to $14.99. As of writing, only customers in the US can score these apps for free but HP plans to expand the offer to other countries soon.
To score the free apps, simply click on the links below on your TouchPad then enter in the promo code. You will need a credit card tied to your account for verification purposes but it won�t be charged.
Glimpse ($5): Amp up your TouchPad multitasking to 11 using this customizable and addictive split-screen interface. Use promo code: injoj55410gavxv
Kung Fu Panda 2 Storybook ($2.99): Enjoy images and voices from Kung Fu Panda 2 right on your TouchPad. Use promo code: eotss76676jjzqr
Big Boss ($1.99): Design your �Boss� � a gigantic monster � and attempt to defeat the brave heroes and powerful wizards of WackyLands. Use promo code: vfimk09918lngoz
Sparkle HD ($4.99): Save Crowberry Woods in this TouchPad version of the popular desktop game. Use promo code: pweuq32135vrbhx
Camera for TouchPad ($0.99): Start snapping away, with options for managing your photos and using them with other TouchPad apps. Use promo code: rijon62171nhvtu
Audubon Birds ($14.99): This searchable digital field guide to North American birds offers stunning photography and thrilling (trilling?) bird songs. Use promo code: jjiox66488ddnik
Promo codes are valid until August 31, or for as long as inventory is available. If none of these freebies appeal to you, HP is planning to release another 6-pack of apps in early September.
Thursday, December 28, 2017
How to quick select all objects in layers
How to quick select all objects in layers
How to quick select objects on multiple layers. Previously, I was using Qselect, I was trying to select all the objects on more than 9 layers, and for each layer I had to run through the command and just add it to selection set. FILTER also gets the job done, after all these practice, I thought there could be an easier way to get this done.
Please visit the ZWCAD Forum for solutions: http://www.zwsoft.com/forum/thread-3693-1-1.html
See also:
Using QSelect in ZWCAD to Filter Selection Sets
Thursday, December 14, 2017
iLogic to Select all of the Closed Profiles Found in a Sketch
iLogic to Select all of the Closed Profiles Found in a Sketch
Issue:
You find yourself needing to select a large number of closed profiles in a sketch of a logo or something similar. This is quite tedious and because you reuse the sketch over and over, you find yourself wishing you had a better way to do this.
Here is an example of a logo that was copied from AutoCAD and placed in an Inventor sketch block. Its a bit tedious to select all of these profiles each time the logo is used on a laser engraved part.
Here is an example of a logo that was copied from AutoCAD and placed in an Inventor sketch block. Its a bit tedious to select all of these profiles each time the logo is used on a laser engraved part.
Solution:
You can use the following iLogic rule to select all of the closed profiles found in the sketch, and create an Extrude feature from them.
----start of ilogic -------
If Typeof ThisApplication.ActiveEditObject Is Sketch Then
Do nothing
Else
MessageBox.Show("Activate a Sketch First then Run this Rule", "ilogic")
Return
End If
Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument
Dim oCompDef As PartComponentDefinition
oCompDef = oPartDoc.ComponentDefinition
Dim oSketch As PlanarSketch
oSketch = ThisApplication.ActiveEditObject
Create a profile.
Dim oProfile As Profile
On Error Goto NoProfile
oProfile = oSketch.Profiles.AddForSolid
get user input
oDistance = InputBox("Enter Extrude Distance", "iLogic", "10 mm")
oDirection = InputRadioBox("Select Extrude Direction", "Up (+)", "Down (-)", True, Title := "iLogic")
oJoinOrCut = InputRadioBox("Select Extrude Solution", "Join", "Cut", True, Title := "iLogic")
If oDirection = True then
oDirection = kPositiveExtentDirection
Else
oDirection = kNegativeExtentDirection
End if
If oJoinOrCut = True then
oJoinOrCut = kJoinOperation
Else
oJoinOrCut = kCutOperation
End if
Create an extrusion
Dim oExtrude As ExtrudeFeature
On Error Goto NoExtrude
oExtrude = oCompDef.Features.ExtrudeFeatures.AddByDistanceExtent( _
oProfile, oDistance, oDirection, oJoinOrCut)
ThisApplication.CommandManager.ControlDefinitions.Item("FinishSketch").Execute
iLogicVb.UpdateWhenDone = True
exit sub
NoProfile:
MessageBoxlink download
Read more »
Subscribe to:
Posts (Atom)