CADsite forum

Met het onderstaande programmaatje wil ik alles op laag nul zetten met de kleur 9.
Alleen de teksten en attributen wil ik kleur 1 en met style stabicad-018 zetten.
Dit gaat goed met teksten en Mteksten. Echter voor attributen werkt het niet.
Iemand een idee hoe ik dit kan oplossen?

bvd Alexander
PS Iedereen die gewerkt heeft aan het programmatje van een paar weken geleden bedankt, het gaf een goede opmaak voor dit programmaatje.


(defun c:laag0 (/ actDocObj)
(command "style" "stabicad-018" "arial"  "90" "1" "0" "no" "no")
  (vl-load-com) 
  (vla-startundomark (setq actDocObj (vla-get-activedocument (vlax-get-acad-object)))) 
  (vlax-for blockDefObj (vla-get-blocks actDocObj)
    (vlax-for obj blockDefObj
      (vla-put-layer obj "0")
      (vla-put-color obj 9)
      (if
        (or
        (= (vla-get-ObjectName Obj) "AcDbText") ;Deze werkt goed voor teksten
        (= (vla-get-ObjectName Obj) "AcDbMText") ;Deze werkt goed voor Mteksten
        (= (vla-get-ObjectName Obj) "AcDbAttributeDefinition") ;deze werkt niet
        (= (vla-get-ObjectName Obj) "AcDbAttribute") ;deze werkt ook niet
        )
        (progn
          (vla-put-stylename Obj "STABICAD-018")
          (vla-put-color obj 1)
        );progn
      );if
    );vlax-for
  );vlax-for
  (vla-regen actDocObj acallviewports)
  (vla-endundomark actDocObj)
  (princ)
)

Citaat van: roy_043 op za 23 07 2011, 12:57:45
Probeer dit:
: ucs
Specify origin of UCS or Face/NAmed/Entity/Previous/View/X/Y/Z/ZAxis/Move<World>: world
: plan
Plan view of:  UCS/World/<Current UCS>:

Dankje wel.   
Had wel ucs op world gezet, maar wist niet dat ik plan op current moest zetten.

Ik schrijf met wblock, een block uit de tekening naar een file.
Als ik deze file open staat de ucs en alle entiteiten, 173 graden gedraaid.
Bij view staat Roll angle op 173.  
Hoe kan ik deze roll angle op 0 graden zetten. (of kan ik dit op een andere manier oplossen?)

Bvd Alexander

Bij lisp - links wordt verwezen naar D2CAD
Hier staat een programmaatje om de datum-tijd te laten zien, een gedeelte hiervan staat hieronder:
(setq datum (getvar "CDATE"))
(setq jaar (substr datum 1 4))
Als ik het bovenstaande in autocad (2008) invoer krijg ik de volgende foutmelding:
; error: bad argument type: stringp 2.01105e+007

Als ik cdate op de commando regel intyp, dan krijg ik wel het goede te zien: 20110531.18101417

Hoe kan ik 20110531.18101417 toewijzen aan datum  

mvg Alexander