Aller au contenu
Problème de lien d'inscription (résolu ?) ×

Xref et tous ses blocs sur un même layer?

bono05

Par bono05
dans AutoCAD 2008

 Partager

Messages recommandés

bono05 Newbie

bono05

Posté(e)
Posté(e)

Bonjour les pros,

 

Problème suivant... ;)

 

J'ai recu des plans archi ou sont incorporés plusieurs blocs, et dans ces blocs les couleurs de layer ne sont pas respecté.

 

J'aimerai que lorsque j'imprime, tous le plan archi (et ses blocs de couleurs) s'imprime en respectant le layer XREF_ARCHI couleur 9 (que j'ai creer pour attaché mon plan).

 

Existe t'il un moyen simple et rapide pour remedier à ce problème?

 

ps: Je n'ai pas envie d'explser tous ces blocs et puis de leurs donner la couleur souhaté car mon plan devient directement plus lourd.

 

Merci. :D

bono05 Newbie

bono05

Posté(e)
  • Auteur
Posté(e)

J'ai trouvé ceci sur le net...

 

Fonctionne impec !!

 

;ActiveX
(vl-load-com)
(vlr-remove-all)
(setq atb_autoCad (vlax-get-acad-object)
     atb_activeDocument (vlax-get-property atb_autoCad 'activeDocument)
     atb_menuGroups (vlax-get-property atb_autoCad 'menuGroups)
     atb_blocks (vlax-get-property atb_activeDocument 'blocks)
     atb_dimStyles (vlax-get-property atb_activeDocument 'dimStyles)
     atb_layers (vlax-get-property atb_activeDocument 'layers)
     atb_linetypes (vlax-get-property atb_activeDocument 'linetypes)
     atb_modelSpace (vlax-get-property atb_activeDocument 'modelSpace)      
     atb_paperSpace (vlax-get-property atb_activeDocument 'paperSpace)
     atb_plotConfigurations (vlax-get-property atb_activeDocument 'plotConfigurations)
     atb_plot (vlax-get-property atb_activeDocument 'plot)
     atb_preferences (vlax-get-property atb_autoCad 'preferences)
     atb_textStyles (vlax-get-property atb_activeDocument 'textStyles)
     atb_userCoordinateSystems (vlax-get-property atb_activeDocument 'userCoordinateSystems)
     atb_utility (vlax-get-property atb_activeDocument 'utility)
     ht_views (vlax-get-property atb_activeDocument 'views)
     atb_viewports (vlax-get-property atb_activeDocument 'viewports)
     atb_space atb_modelSpace
)

(defun atb_bylayer ()
 (vlax-for a atb_blocks
   (if (= (vlax-get-property a 'isXref) :vlax-false)
     (progn
       (vlax-for b a
         (vlax-put-property b 'color acByLayer)
  (vlax-put-property b 'lineweight acLnWtByLayer)
  (if (= (vlax-get-property b 'objectName) "AcDbBlockReference")
           (progn
             (if (= (vlax-get-property b 'hasAttributes) :vlax-true)
        (progn
          (setq ht_attv (vlax-invoke-method b 'getAttributes)
                ht_attl (vlax-safearray->list (vlax-variant-value ht_attv))
          )
          (foreach c ht_attl
                   (vlax-put-property c 'color acByLayer)
	    (vlax-put-property c 'lineweight acLnWtByLayer)
	  )
	)
      )
    )
  )
  (if (= (vlax-get-property b 'objectName) "AcDbMText")
           (progn
      (setq ht_string (vlax-get-property b 'textString)
            ht_count 1 ht_mod nil
      )
      (while (<= ht_count (strlen ht_string))
	(setq ht_one (substr ht_string ht_count 4)
	      ht_two (substr ht_string ht_count 5)
	      ht_three (substr ht_string ht_count 6)
	)
	(cond
	  ((wcmatch ht_one "\\C*;")
	    (setq ht_string (strcat (substr ht_string 1 (1- ht_count)) (substr ht_string (+ ht_count 4)))
		  ht_count 0 ht_mod T
	    )
	  )
	  ((wcmatch ht_two "\\C*;")
	    (setq ht_string (strcat (substr ht_string 1 (1- ht_count)) (substr ht_string (+ ht_count 5)))
		  ht_count 0 ht_mod T
	    )
	  )
	  ((wcmatch ht_three "\\C*;")
	    (setq ht_string (strcat (substr ht_string 1 (1- ht_count)) (substr ht_string (+ ht_count 6)))
		  ht_count 0 ht_mod T
	    )
	  )
	)
        (setq ht_count (1+ ht_count))
      )
      (if ht_mod
	(vlax-put-property b 'textString ht_string)
      )
    )
  )
)
     )
   )
 )
 (princ)
)

(defun c:ATB ()
 (atb_bylayer)
)

;Command reactor 1
(defun ht_commandStart (ht_reactor ht_command)
 (if (= (nth 0 ht_command) "PLOT")
   (progn
     (setvar "xclipframe" 0)
     (setq ht_ss nil)
     (if (= (getvar "cvport") 1)
       (setq ht_ss (ssget "x" '((0 . "insert") (2 . "pdt") (67 . 1))))
       (setq ht_ss (ssget "x" '((0 . "insert") (2 . "pdt") (67 . 0))))
     )
     (if ht_ss
   	(progn
         (htpdt)
         (princ)
   	)
     )
   )
 )	  
)

;Command reactor 2
(defun ht_commandEnd (ht_reactor ht_command)
 (if
   (and
      (not (= (getvar "userr1") 0.0))
      (not (= (getvar "userr3") 0.0))
   )
   (progn
     (if
       (and
         (= (getvar "tilemode") 1)
         (= (nth 0 ht_command) "LTSCALE")
)
       (setvar "userr2" (/ (* (getvar "ltscale") (getvar "userr1")) (getvar "userr3")))
     )    
     (if
       (and
         (= (getvar "tilemode") 0)
         (= (nth 0 ht_command) "LTSCALE")
       )
       (setvar "userr2" (getvar "LTSCALE"))
     )   
   )
 )  
 (princ)
)

;Layout changed reactor
(defun ht_layoutSwitch (ht_reactor ht_layout)
 (if
   (and
      (not (= (getvar "userr1") 0.0))
      (not (= (getvar "userr2") 0.0))
      (not (= (getvar "userr3") 0.0))
   )
   (if (= (nth 0 ht_layout) "Model")
     (progn
       (setvar "ltscale" (/ (* (getvar "userr3") (getvar "userr2")) (getvar "userr1")))
       (setvar "dimscale" (/ (getvar "userr3") (getvar "userr1")))
     )
     (progn
       (setvar "ltscale" (getvar "userr2"))
       (setvar "dimscale" 1)
     )
   )
 )
 (princ)
)

;System variable Reactor
(defun ht_sysVar (ht_reactor ht_variable)
 (if
   (and
      (not (= (getvar "userr1") 0.0))
      (not (= (getvar "userr2") 0.0))
      (not (= (getvar "userr3") 0.0))
   )
   (progn
     (if
       (and
         (= (getvar "tilemode") 1)
         (or
    (= (nth 0 ht_variable) "USERR1")
    (= (nth 0 ht_variable) "USERR2")
    (= (nth 0 ht_variable) "USERR3")
         )
       )
       (progn
         (setvar "ltscale" (/ (* (getvar "userr3") (getvar "userr2")) (getvar "userr1")))
         (setvar "dimscale" (/ (getvar "userr3") (getvar "userr1")))
         (vlax-invoke-method atb_activeDocument 'regen acActiveViewport)
       )
     )    
     (if
       (and
         (= (getvar "tilemode") 0)
         (= (nth 0 ht_variable) "USERR2")
       )
       (setvar "ltscale" (getvar "userr2"))
     )   
   )
 )
 (if (= (nth 0 ht_variable) "MEASUREMENT")
   (if (= (getvar "measurement") 0)
     (progn
       (setvar "userr2" 10)
       (setvar "userr1" 1)
     )
     (progn
       (setvar "userr2" 1)
       (setvar "userr1" 1000)
     )
   )
 )
 (princ)
)


;Close Reactor
(defun ht_close (ht_reactor ht_list)
 (setq ht_mx nil)
 (vlax-for a atb_blocks
   (if (= (vlax-get-property a 'isLayout) :vlax-true)
     (progn
       (setq ht_layout (vlax-get-property a 'layout))
(if (= (vlax-get-property ht_layout 'name) "MXChange")
  (progn
           (vlax-invoke-method ht_layout 'delete)
    (setq ht_mx T)
  )
)
     )
   )
 )
 (if ht_mx
   (progn
     (vlax-for a atb_modelSpace
(progn
  (if (= (vlax-get-property a 'objectName) "AcDbText")
    (progn
             (vlax-put-property a 'scaleFactor 1.0)
      (if (= (vlax-get-property a 'textString) "R=æ")
        (vlax-put-property a 'textString "STRAIGHT")
      )
      (if (= (vlax-get-property a 'textString) "D")
        (vlax-put-property a 'textString "")
      )
      (if (= (vlax-get-property a 'textString) "0.0%")
        (vlax-put-property a 'textString "")
      )
      (if (= (vlax-get-property a 'textString) "0.1%")
        (vlax-put-property a 'textString "")
      )
      (if (= (vlax-get-property a 'textString) "0.2%")
        (vlax-put-property a 'textString "")
      )
      (if (= (vlax-get-property a 'textString) "0.3%")
        (vlax-put-property a 'textString "")
      )
      (if (= (vlax-get-property a 'textString) "0.4%")
        (vlax-put-property a 'textString "")
      )	      
      (if (= (vlax-get-property a 'textString) "****%")
        (vlax-put-property a 'textString "")
      )
    )
         )
)
     )
     (vlax-for a atb_textStyles
       (if (= (substr (vlax-get-property a 'name) 1 3) "MSL")
         (vlax-put-property a 'fontFile "arial")
       )
     )
     (vlax-put-property atb_activeDocument 'activespace acModelSpace)
     (vlax-invoke-method atb_autoCad 'zoomExtents)
     (vlax-invoke-method atb_activeDocument 'save)
   )
 )
)

;Initiate reactors
(vlr-command-reactor nil '((:vlr-commandWillStart . ht_commandStart))) ;Plot reactor
;(vlr-command-reactor nil '((:vlr-commandEnded . ht_commandEnd)))
(vlr-miscellaneous-reactor nil '((:vlr-layoutSwitched . ht_layoutSwitch)))
(vlr-sysvar-reactor nil '((:vlr-sysVarChanged . ht_sysVar)))
(vlr-dwg-reactor nil '((:vlr-beginClose . ht_close)))

;Modemacro
(setvar "modemacro" ".")
(setvar "modemacro"
 (strcat
   "$(if,$(=,$(getvar,measurement),0),English,Metric)"
   "$(if,$(!=,$(getvar,cvport),1),"
   "  Unit=$(if,$(=,$(getvar,userr1),1),Millimetres,Metres)"
   "  Scale=1:"
   "$(substr,$(getvar,userr3),1))"
   "  Ltscale="
   "$(substr,$(getvar,ltscale),1)"
  )
)

;a Space     atb_modelSpace
;b Closed    :vlax-false
;c Color     acBylayer
;d Elevation 0.0
;e Layer     "0"
;f Linetype  "BYLAYER"
;g Vertexes  ht_pntlist
;h Bulges    ht_bulgelist
(defun ht_makeLightWeightPolyline (a b c d e f g h)
 (setq ht_ubound (- (* (length g) 2) 1)
ht_coordinates (vlax-make-safearray vlax-vbDouble (cons 0 ht_ubound))
ht_count 0
 )
 (foreach i g
   (setq ht_pnt i
  ht_pntx (nth 0 ht_pnt)
  ht_pnty (nth 1 ht_pnt)
   )
   (vlax-safearray-put-element ht_coordinates ht_count ht_pntx)
   (vlax-safearray-put-element ht_coordinates (1+ ht_count) ht_pnty)
   (setq ht_count (+ ht_count 2))
 )
 (setq ht_newLightWeightPolyline (vlax-invoke-method a 'addLightWeightPolyline (vlax-make-variant ht_coordinates)))
 (vlax-put-property ht_newLightWeightPolyline 'closed b)
 (vlax-put-property ht_newLightWeightPolyline 'color c)
 (vlax-put-property ht_newLightWeightPolyline 'elevation d)  
 (vlax-put-property ht_newLightWeightPolyline 'layer e)
 (vlax-put-property ht_newLightWeightPolyline 'linetype f)
 (setq ht_total (1- ht_count)
ht_count 0
 )
 (while (< ht_count (length h))
   (vlax-invoke-method ht_newLightWeightPolyline 'setBulge ht_count (nth ht_count h))
   (setq ht_count (1+ ht_count))
 )
)

;a Space    atb_modelSpace
;b Closed   :vlax-false
;c Color    acBylayer
;d Layer    "0"
;e Linetype "BYLAYER"
;f Type     acSimple3DPoly
;g Vertexes ht_pntlist
(defun ht_make3DPolyline (a b c d e f g)
 (setq ht_ubound (- (* (length g) 3) 1)
ht_coordinates (vlax-make-safearray vlax-vbDouble (cons 0 ht_ubound))
ht_count 0
 )
 (foreach h g
   (setq ht_pnt h
  ht_pntx (nth 0 ht_pnt)
  ht_pnty (nth 1 ht_pnt)
  ht_pntz (nth 2 ht_pnt)
   )
   (if (not ht_pntz)
     (setq ht_pntz 0.0)
   )
   (vlax-safearray-put-element ht_coordinates ht_count ht_pntx)
   (vlax-safearray-put-element ht_coordinates (1+ ht_count) ht_pnty)
   (vlax-safearray-put-element ht_coordinates (+ ht_count 2) ht_pntz)
   (setq ht_count (+ ht_count 3))
 )
 (setq ht_new3DPolyline (vlax-invoke-method a 'add3DPoly (vlax-make-variant ht_coordinates)))
 (vlax-put-property ht_new3DPolyline 'closed b)
 (vlax-put-property ht_new3DPolyline 'color c)
 (vlax-put-property ht_new3DPolyline 'layer d)
 (vlax-put-property ht_new3DPolyline 'linetype e)
 (vlax-put-property ht_new3DPolyline 'type f)
)

(defun ht_ps->ms ()
 (if (= (getvar "tilemode") 0)
   (progn
     (vlax-put-property atb_activeDocument 'mspace :vlax-false)
     (setq ht_ss (ssget "x" '((67 . 0) (-3 ("HT ps-ms pViewport"))))
    atb_paperSpace (vlax-get-property atb_activeDocument 'paperSpace)
     )
     (if ht_ss
(progn
         (setq ht_ssn (1- (sslength ht_ss)))
         (while (> ht_ssn -1)
           (setq ht_ename (ssname ht_ss ht_ssn)
	  ht_ssn (1- ht_ssn)
    )
    (entdel ht_ename)
  )
)
     )
     (vlax-for a atb_paperSpace
       (if (= (vlax-get-property a 'objectName) "AcDbViewport")
         (progn
           (setq ht_obj a	      
          ht_sc (vlax-get-property ht_obj 'customScale)
                 ht_psw (vlax-get-property ht_obj 'width)
                 ht_psh (vlax-get-property ht_obj 'height)
          ht_vt (vlax-get-property ht_obj 'twistAngle)
                 ht_msw (/ ht_psw ht_sc)
                 ht_msh (/ ht_psh ht_sc)
          ht_ename (vlax-vla-object->ename ht_obj)
          ht_dxf (entget ht_ename)
          ht_dcs (cdr (assoc 12 ht_dxf))
          ht_col (cdr (assoc 62 ht_dxf))
                 ht_id (cdr (assoc 69 ht_dxf))
	  ht_scale (read (rtos (/ 1.0 ht_sc) 2 4))
    )
    ;(princ ht_scale)
    (if (= (getvar "userr1") 0.0)
      (setq ht_name (rtos ht_id 2 0))
     	      (setq ht_name (rtos (* ht_scale (getvar "userr1")) 2 0))
    )
    (if (not ht_col)
             (setq ht_col acBylayer)
           )
           (if (not (= ht_id 1))
      (progn
	(vlax-invoke-method ht_obj 'display :vlax-true)
	(vlax-put-property atb_activeDocument 'mspace :vlax-true)
	(setvar "cvport" ht_id)
	(setvar "ucsview" 1)
	(setvar "cmdecho" 0)
	(command "ucs" "v")
	(if (tblsearch "ucs" ht_name)
	  (command "ucs" "s" ht_name "y")
	  (command "ucs" "s" ht_name)
	)
               (command "view" "s" ht_name)
	(setvar "cmdecho" 1)
	(setq ht_cen ht_dcs)
	(setq ht_vt (- (* pi 2.0) ht_vt)
                     ht_cen (list (nth 0 ht_cen) (nth 1 ht_cen))
                     ht_tm (polar ht_cen (* pi 0.5) (* ht_msh 0.5))
                     ht_p1 (polar ht_tm pi (* ht_msw 0.5))
                     ht_p2 (polar ht_tm 0.0 (* ht_msw 0.5))
                     ht_p3 (polar ht_p2 (* pi 1.5) ht_msh)
                     ht_p4 (polar ht_p1 (* pi 1.5) ht_msh)
	      ht_p1m (trans ht_p1 2 0)
	      ht_p2m (trans ht_p2 2 0)
	      ht_p3m (trans ht_p3 2 0)
	      ht_p4m (trans ht_p4 2 0)
              ht_pntlist (list ht_p1m ht_p2m ht_p3m ht_p4m)
	)      
        (vlax-put-property atb_activeDocument 'mspace :vlax-false)
        (ht_make3DPolyline atb_modelSpace :vlax-true ht_col "DEFPOINTS" "BYLAYER" acSimple3DPoly ht_pntlist)
	;(regapp "HT ps-ms pViewport")
	;(setq ht_dxf (entget (vlax-vla-object->ename ht_new3DPolyline))
	;      ht_exdata '((-3 ("HT ps-ms pViewport" (1000 . "3DPolyline"))))
	;      ht_newDxf (append ht_dxf ht_exdata)
	;)
               ;(entmod ht_newDxf)
      )
    )
  )
)
     )
     (vlax-put-property atb_activeDocument 'activeSpace acModelSpace)
   )
 )
 (princ)
)

(defun atb_bylayer ()
 (vlax-for a atb_blocks
   (if (= (vlax-get-property a 'isXref) :vlax-false)
     (progn
       (vlax-for b a
         (vlax-put-property b 'color acByLayer)
  (vlax-put-property b 'lineweight acLnWtByLayer)
  (if (= (vlax-get-property b 'objectName) "AcDbBlockReference")
           (progn
             (if (= (vlax-get-property b 'hasAttributes) :vlax-true)
        (progn
          (setq ht_attv (vlax-invoke-method b 'getAttributes)
                ht_attl (vlax-safearray->list (vlax-variant-value ht_attv))
          )
          (foreach c ht_attl
                   (vlax-put-property c 'color acByLayer)
	    (vlax-put-property c 'lineweight acLnWtByLayer)
	  )
	)
      )
    )
  )
)
     )
   )
 )
 (princ)
)

[Edité le 15/9/2008 par bono05]

 

[Edité le 15/9/2008 par bono05]

x_all Contributor

x_all

Posté(e)
Posté(e)

hummm

 

à en juger par le smilé et les caractère soulignés, doit y avoir un pb avec ton code...

essaye de le mettre en txt sur un lien..

 

merci

 

sinon, c un pb abordé souvant... ch dans les lisp de patrick35 ou de (giles), de mémoire c'est "tougris" editbloc de (gilles) peu faire l'affaire aussi...

 

 

[Edité le 11/9/2008 par x_all]

quelques trucs sur autocad

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
 Partager
Aller sur la liste des sujets
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité