CADsite forum

Ik gebruik altijd 6 arceerpatronen.
Om te voorkomen steeds het in te moeten vullen (lui)
heb ik gemaakt:


(DEFUN C:HH5 ()
(COMMAND "COLOR" "11")
    (COMMAND "-Bhatch" "P" "ANSI37" "2" "0")
(COMMAND "COLOR" "7")
)

dit is bijv. 1 patroon.
Alleen het laatste commando (color 7) werkt niet,
waarom niet? 

groet, Martin

ik ben geen lisp deskundige, maar kan het te maken hebben dat er in je code niet op userinput gewacht wordt.....??

overigens zou je die arceer patronen met instellingen ook in toolpallets kunnen zetten

Citaat van: martintin op wo 01 02 2006, 09:12:27

Alleen het laatste commando (color 7) werkt niet,
waarom niet? 

Beste Martin,

Door het commando -BHATCH loop je uit het programma HH5,
dus wordt de aanroep (command "COLOR" "7") niet gezien.
Onderstaand programma gaat wel goed, maar heeft geen Island detectie.

(defun c:HH5 ()
(COMMAND "COLOR" "11")
(setq x (ssget))
(COMMAND "-Bhatch" "P" "ANSI37" "2" "0" "S" x "" "")
(COMMAND "COLOR" "7")
)

Groetjes HofCAD CSI

HofCAD schrijft,

CiteerDoor het commando -BHATCH loop je uit het programma HH5,
dus wordt de aanroep (command "COLOR" "7") niet gezien.
Onderstaand programma gaat wel goed, maar heeft geen Island detectie.

Dit is niet helemaal correct (sorry HofCAD).
Als je op de comand line -bhatch intypt dan kun je op de lijn lezen wat het commando allemaal wil hebben.
In dit geval dus naam, schaal, hoek en de gebieden die gearceerd moeten worden.
Dus als je (command "Color" "7") intypt krijg je een foutmelding, dit is immers geen lokatie.

Algemeen:
Als je in een LISP routine het commando COMMAND wilt gebruiken test dit eerst uit op de command line van AutoCAD.
Lees zeer goed en noteer wat er allemaal op de command line verschijnt.
Dit zijn de parameters die het command vereist om goed te kunnen werken.

bij

(defun c:HH5 ()
(COMMAND "COLOR" "11")
(setq x (ssget))
(COMMAND "-Bhatch" "P" "ANSI37" "2" "0" "S" x "" "")
(COMMAND "COLOR" "7")
)

vraagt het programma om "select objects" in plaats van "pick ponts"

dit kan ik in mijn geval helaas niet gebruiken, hoe krijg ik "pick points"?

Waar vind ik iets over die toolpallets?

Joop, toch zijn mijn commando`s in mijn lispje exact overgenomen van de commando`s
zoals ik die bij de prompt intyp.

groet, Martin

Ik heb nu er een macro voor gemaakt.
dit gaat perfect.

^C^C-color;11;-bhatch;P;ANSI37;2;0;\;-color;7

maar toch nog bedankt voor jullie reacties.

groeten van Martin

eeeehhh.....
bijna perfect.

als ik er een * voor zet

*^C^C-color;11;-bhatch;P;ANSI37;2;0;\;-color;7

en ik breek het commando af staat color nog op 11.
volgens mij gaat dit niet anders. Heb al wat met change geprobeerd enzo..

heeft iemand nog tips?

groet, Martin

Toch zit ik nog met die onbeantwoorde vraag :

bij Selecteren tijdens het commando -bhatch kan ik kiezen uit :

Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/P
revious/Undo/AUto/SIngle

hoe krijg ik toch "Pick Points"?

groet, Martin

Dat je geen pick point krijgt lijkt te maken te hebben met wel of geen island detection te gebruiken....

(defun c:HH5 ()
(COMMAND "COLOR" "11")
(COMMAND "-Bhatch" "P" "ANSI37" "2" "0" "a" "i" "y" "")
)

hier krijg je wel de vraag pick point.... alleen krijg ik het ook niet voor elkaar om dan de kleur terug te zetten.....
maarja, ik ben ook geen lispser.........

waarom maak je die aceringen niet gewoon in he toolpallet aan?

acceer een stukje,  en sleep de acering dan naar je toolpallet... en klaar ben je...

je kunt natuurlijk ook een combi maken?

^C^C-color;11;hh5 \\ ;-color;7;  onder de knop.....

en (defun c:HH5 ()
(COMMAND "-Bhatch" "P" "ANSI37" "2" "0" "a" "i" "y" "")
)

als lisp......

eeeehhh.....

Citeerbijna perfect.

als ik er een * voor zet

*^C^C-color;11;-bhatch;P;ANSI37;2;0;\;-color;7

en ik breek het commando af staat color nog op 11.
volgens mij gaat dit niet anders. Heb al wat met change geprobeerd enzo..

heeft iemand nog tips?

groet, Martin

Dit is logisch er is immers geen error-checking die na de fout (afbreken) de originele instellingen hersteld.
Error checking is alleen mogelijk als je er Lisp van maakt.

Als je de (licht aangepaste) code van HofCAD onder een knop zet werkt het wel.
^C^C((COMMAND "COLOR" "11")
(setq x (getpoint))
(COMMAND "-Bhatch" "P" "ANSI37" "2" "0" "S" x "" "")
(COMMAND "COLOR" "7")
)

Je moet namelijk eerst de selectie maken voordat je deze met Lisp kunt bewerken.

met

(DEFUN C:HH5 ()
((COMMAND "COLOR" "11")
(setq x (getpoint))
(COMMAND "-Bhatch" "P" "ANSI37" "2" "0" "S" x "" "")
(COMMAND "COLOR" "7")
))

krijg ik

Command: hh5

Initializing...-Bhatch
Current hatch pattern:  ANGLE
Specify internal point or [Properties/Select/Remove islands/Advanced]: P
Enter a pattern name or [?/Solid/User defined] <ANGLE>: ANSI37
Specify a scale for the pattern <1.0000>: 2
Specify an angle for the pattern <0>: 0
Current hatch pattern:  ANSI37
Specify internal point or [Properties/Select/Remove islands/Advanced]: S
Select objects: 0 found
Select objects:
Current hatch pattern:  ANSI37
Specify internal point or [Properties/Select/Remove islands/Advanced]:
Command: COLOR
Enter default object color <BYLAYER>: 7
Command: COLOR
Enter default object color <7 (white)>: 11
Command: no function definition: nil

en hij blijft wachten bij Initializing...

ik blijf ook maar wachten...

Citaat van: martintin op ma 06 02 2006, 14:22:40
met

(DEFUN C:HH5 ()
((COMMAND "COLOR" "11")
(setq x (getpoint))
(COMMAND "-Bhatch" "P" "ANSI37" "2" "0" "S" x "" "")
(COMMAND "COLOR" "7")
))

krijg ik

Command: hh5

Initializing...-Bhatch
Current hatch pattern:  ANGLE
Specify internal point or [Properties/Select/Remove islands/Advanced]: P
Enter a pattern name or [?/Solid/User defined] <ANGLE>: ANSI37
Specify a scale for the pattern <1.0000>: 2
Specify an angle for the pattern <0>: 0
Current hatch pattern:  ANSI37
Specify internal point or [Properties/Select/Remove islands/Advanced]: S
Select objects: 0 found
Select objects:
Current hatch pattern:  ANSI37
Specify internal point or [Properties/Select/Remove islands/Advanced]:
Command: COLOR
Enter default object color <BYLAYER>: 7
Command: COLOR
Enter default object color <7 (white)>: 11
Command: no function definition: nil

en hij blijft wachten bij Initializing...

ik blijf ook maar wachten...

je moet ook wel iets selecteren
de aanvulling op jouw eigen lisp is een voorbeeldje en zeker geen complete uitwerkening
als je hem gebruikt zoals bedoeld werkt het
maar dat is dan ook alles

remo zei:

acceer een stukje,  en sleep de acering dan naar je toolpallet... en klaar ben je...

maar wààr zit mijn toolpallet?

dit is toch niet het designcentre?
bij HELP staat ook niks over toolpallet.

groeten, Martin

De knop naast Design center in de standaard toolbar is de Tool palette 
Dan verkrijg je zo een soort van dialoogbox met een aantal tabbladen waar arceerpatronen en blocks opstaan.

Mvg

Kenny