VISUALSTYLE & AutoLisp?

[HofCAD]

Beste CADliefhebbers,

Wie heeft er al gestoeid, via Lisp, met de Visualstyles van AutoCAD 2007?
Met het onderstaande programma krijg ik meer stijlen dan ik had verwacht , nl.
2dWireframe, 3D Hidden, 3dWireframe, Basic, Brighten, ColorChange, Conceptual,
Dim, Facepattern, Flat, FlatWithEdges, Gouraud, GouraudWithEdges, Linepattern,
Realistic en Thicken.
Ik had er met m'n blonde koppie maar 5 verwacht, en waarom zie ik bijv. niet
bij het commando SHADEMODE  de styles Flat, FlatWithEdges, Gouraud en GouraudWithEdges
als ze toch bestaan.

Code Selecteer Uitklappen


(defun DicSTYLE_LIST (dicname / dics dic iNameList)
(defun tempList2 (theObject / item TmpName)
  (setq theList '())
  (vlax-for item theObject
    (setq TmpName (vla-getname theObject item))
    (setq theList (append (list TmpName) theList))
)
  (setq theList (reverse theList))
);defun
(setq dics (vla-get-dictionaries (vla-get-Activedocument (vlax-get-acad-object))))
(setq dic (vla-item dics dicname))
(setq Namelist (tempList2 dic))
(setq i 0)
(repeat (length Namelist)
(setq DicObj (vla-GetObject dic (nth i Namelist)))
(setq DicEnt (vlax-vla-object->ename DicObj))
(print (entget DicEnt))
(setq i (1+ i))
)
)
(defun c:VisStijl()
(if (> (atoi (substr (getvar "ACADVER") 1 2)) 16)
(DicSTYLE_LIST  "ACAD_VISUALSTYLE")
(print "Werkt alleen bij AutoCAD 2007+"))
)


Heeft iemand al visualstyles aangemaakt met Lisp?

Met vriendelijke groet,
HofCAD CSI

[Joop]

HofCAD,
Ik heb hier geen 2007 dus zomaar even een vraagje:
Kun je (een van) de missende stylen wel ingeven na het shademode commando?
Dus notzoals de V-optie bij zoom?

Ik denk namelijk dat dit weer een typisch slordigheidje is van AutoDesk.
De mogelijkheden worden naderhand door de ene programmeur ontwikkeld terwijl de verantwoordelijke voor het shademode command/variabele dit niet bijwerkt en je dus weer een niet gedocumenteerde optie hebt. (de zoveelste)

Kleine toeviging: Morgen-/Vanavond heb ik wel de mogelijkheid dit uit te proberen.

[HofCAD]

HofCAD,
Ik heb hier geen 2007 dus zomaar even een vraagje:
Kun je (een van) de missende stylen wel ingeven na het shademode commando?
Dus notzoals de V-optie bij zoom?

Ik denk namelijk dat dit weer een typisch slordigheidje is van AutoDesk.
De mogelijkheden worden naderhand door de ene programmeur ontwikkeld terwijl de verantwoordelijke voor het shademode command/variabele dit niet bijwerkt en je dus weer een niet gedocumenteerde optie hebt. (de zoveelste)

Kleine toeviging: Morgen-/Vanavond heb ik wel de mogelijkheid dit uit te proberen.

Beste Joop,

Bij het commando SHADEMODE kun je kiezen voor 2dWireframe, 3D Hidden, 3dWireframe,  Conceptual, Realistic en Other.
Bij de keuze van Other heb je de optie ?, maar daar worden Flat, FlatWithEdges, Gouraud en GouraudWithEdges niet weergegeven, en worden ze ook niet toegestaan.

Verder heb ik opgemerkt dat als je een ingekleurde tekening van voor AutoCAD 2007 opent
in AutoCAD 2007, je het beeld krijgt van de oude inkleuring.
Deze visualstyl is echter dan ook nog niet benoemd, maar dat is wel mogelijk.
Dus zo kun je ook de 'oude mogelijkheden' van Flat, FlatWithEdges, Gouraud en GouraudWithEdges binnen krijgen.
De standaard visualstylen van een oude tekening die geopend is in AutoCAD 2007 en van een
nieuwe 2007 tekening wijken vreemd genoeg ook iets van elkaar af.

Met vriendelijke groet,
HofCAD CSI

PS Bijvoorbeeld
In een oude tekening die geopend is in AutoCAD 2007 is de stijl Realistic:
((-1 . <Entity name: 7efac500>) (0 . "VISUALSTYLE") (5 . "A88") (102 .
"{ACAD_REACTORS") (330 . <Entity name: 7efac4b0>) (102 . "}") (330 . <Entity
name: 7efac4b0>) (100 . "AcDbVisualStyle") (2 . "Realistic") (70 . 8 ) (71 . 2)
(72 . 2) (73 . 0) (90 . 0) (40 . -0.6) (41 . -30.0) (62 . 5) (63 . 7) (421 .
16777215) (74 . 1) (91 . 0) (64 . 7) (65 . 257) (75 . 1) (175 . 1) (42 . 1.0)
(92 . 8 ) (66 . 8 ) (424 . 7895160) (43 . 1.0) (76 . 1) (77 . 6) (78 . 2) (67 .
7) (79 . 5) (170 . 0) (171 . 0) (290 . 0) (174 . 0) (93 . 13) (44 . 0.0) (173 .
0) (291 . 0) (45 . 0.0))

In een originele 2007 tekening is de stijl Realistic:
((-1 . <Entity name: 7ef93008>) (0 . "VISUALSTYLE") (5 . "F9") (102 .
"{ACAD_REACTORS") (330 . <Entity name: 7ef91f78>) (102 . "}") (330 . <Entity
name: 7ef91f78>) (100 . "AcDbVisualStyle") (2 . "Realistic") (70 . 8 ) (71 . 2)
(72 . 2) (73 . 1) (90 . 0) (40 . -0.6) (41 . -30.0) (62 . 5) (63 . 7) (421 .
16777215) (74 . 1) (91 . 0) (64 . 7) (65 . 257) (75 . 1) (175 . 1) (42 . 1.0)
(92 . 8 ) (66 . 8 ) (424 . 7895160) (43 . 1.0) (76 . 1) (77 . 6) (78 . 2) (67 .
7) (79 . 5) (170 . 0) (171 . 0) (290 . 0) (174 . 0) (93 . 13) (44 . 0.0) (173 .
0) (291 . 0) (45 . 0.0))

De Face color mode (73) is in de oude  0 = No color en in de nieuwe 1 = Object color,
maar misschien ligt dit wel aan mijn AutoCAD 2007 versie.
Of zijn mijn blonde haren daar debet aan .

[Joop]

Omdat je schrijft:

Verder heb ik opgemerkt dat als je een ingekleurde tekening van voor AutoCAD 2007 opent
in AutoCAD 2007, je het beeld krijgt van de oude inkleuring.
Deze visualstyl is echter dan ook nog niet benoemd, maar dat is wel mogelijk.
Dus zo kun je ook de 'oude mogelijkheden' van Flat, FlatWithEdges, Gouraud en GouraudWithEdges binnen krijgen.

kun je misschien het beste AutoCAD opnieuw openen met de originele tekening.
Dit om "besmetting" te voorkomen cq uit te sluiten.
Nu mijn vraag: Heb je nu ook nog de 'oude mogelijkheden' van Flat, FlatWithEdges, Gouraud en GouraudWithEdges?
Nog eentje: Wat gebeurd er als je in de originele 2007 tek. (73 . 1) veranderd in (73 . 0)? Wordt dit geaccepteerd?

[HofCAD]

Omdat je schrijft:

Verder heb ik opgemerkt dat als je een ingekleurde tekening van voor AutoCAD 2007 opent
in AutoCAD 2007, je het beeld krijgt van de oude inkleuring.
Deze visualstyl is echter dan ook nog niet benoemd, maar dat is wel mogelijk.
Dus zo kun je ook de 'oude mogelijkheden' van Flat, FlatWithEdges, Gouraud en GouraudWithEdges binnen krijgen.

kun je misschien het beste AutoCAD opnieuw openen met de originele tekening.
Dit om "besmetting" te voorkomen cq uit te sluiten.
Nu mijn vraag: Heb je nu ook nog de 'oude mogelijkheden' van Flat, FlatWithEdges, Gouraud en GouraudWithEdges?
Nog eentje: Wat gebeurd er als je in de originele 2007 tek. (73 . 1) veranderd in (73 . 0)? Wordt dit geaccepteerd?

Beste Joop,

Je krijgt geen besmetting, omdat  'nieuwe' stijlen alleen via tool palettes beschikbaar
gemaakt kunnen worden voor andere tekeningen, volgens mij.

In oude en in nieuwe tekeningen zitten  o.a. de visualstylen Flat, FlatWithEdges, Gouraud en GouraudWithEdges in de dictionary, maar zijn via het commando SHADEMODE niet beschikbaar.

Door bijv. in AutoCAD 2006 een tekening met SHADEMODE Flat in te kleuren, en deze dan
ingekleurd in AutoCAD 2007 te openen krijgt men een actieve visualstyle (de naam is
volgens mij "*") met de kenmerken van  SHADEMODE Flat van Release 15 en 16.
Je kan nu de actieve visualstyle via het commando -VISUALSTYLE een naam geven en
in een tool palette stoppen.

Algemeen geldt dat AutoCAD geen probleem ziet in het veranderen van de visualstyle,
dus ook niet van de  Face color mode (DXF code 73).

Met vriendelijke groet,
HofCAD CSI

PS Ook ik kan pas vanavond op onderzoek uitgaan.

[Joop]

Sorry HofCAD,

Ten gevolge van een massieve virusaanval ligt mijn computer thuis eruit.
Dus ik heb nog niet kunnen kijken en vanavond lukt ook niet (sociale verplichtingen).
Dus we zien wel.

Wat ik met besmetting bedoel is: bestaan de oude stylen al in AutoCAD 2007 of worden ze pas door een oude tekeining geimporteerd?
In het laatste geval zou het logisch zijn dat je ze niet bij de opties van shademode ziet.

Joop

[HofCAD]

Sorry HofCAD,

Ten gevolge van een massieve virusaanval ligt mijn computer thuis eruit.
Dus ik heb nog niet kunnen kijken en vanavond lukt ook niet (sociale verplichtingen).
Dus we zien wel.

Wat ik met besmetting bedoel is: bestaan de oude stylen al in AutoCAD 2007 of worden ze pas door een oude tekeining geimporteerd?
In het laatste geval zou het logisch zijn dat je ze niet bij de opties van shademode ziet.

Joop

Beste Joop,

Mijn medeleven.
Om aangemaakte stijlen binnen een andere tekening  beschikbaar te maken,
moet je ze, zoals reeds eerder gezegd, in een tool palette plaatsen.
Het lijkt mij dus daarom niet logisch, dat je AutoCAD met een oude 'visualstyle'
zou kunnen 'besmetten'.

Met vriendelijke groet,
HofCAD CSI

[HofCAD]

Beste CADliefhebbers,

Vanaf AutoCAD 2007 is er ook een commando -SHADEMODE, die de oude visualstylen
2D wireframe/3D wireframe/Hidden/Flat/Gouraud/fLat+edges/gOuraud+edges laat
instellen.
In een AutoLisp programma geven SHADEMODE en -SHADEMODE de oude stijlen.
De nieuwe visualstylen 2dWireframe/ 3D Hidden/3dWireframe/Conceptual/Realistic
laten zich instellen via VSCURRENT.

Met vriendelijke groet,
HofCAD CSI