Block -XScaleFactor,YScaleFactor (VBA)

noys — 2011-05-11 04:19:39

I encountered this many times. the undo comes in a batch. why is it happening?? I already done so many lines and text by just making use of undo once one batch of what i've done is lost. so I need to repeat again what I already did. A waste of time especially in a rush.

magla — 2011-03-29 14:57:32

Thanks

zw_admin — 2011-03-28 02:11:20

[QUOTE=magla]Jason, after : Command: c:sel Always get -Nothing sleectedo What I'm doing wrong? this one will be more user frindly (defun c:SEL (/ OB OB# EN X Y) (vl-load-com) (if (setq OB (entsel "'nSelect block to change XY scale: ")) (if (= (cdr (assoc 0 (entget (setq EN (car OB))))) "INSERT") (if (not (kr:BLK_CheckIfXref (setq OB# (vlax-ename->vla-object EN)))) (if (vlax-write-enabled-p OB#) (if (and (setq X (getreal "'nEnter X scale factor: ")) (setq y (getreal "'nEnter Y scale factor: ")) ) (progn (kr:SYS_StartUndo) (if (vlax-Property-Available-P OB# 'XEffectiveScaleFactor) (progn (vla-put-XEffectiveScaleFactor OB# X) (vla-put-YEffectiveScaleFactor OB# Y) ) (progn (vla-put-XScaleFactor OB# X) (vla-put-YScaleFactor OB# Y) ) ) (kr:SYS_EndUndo) ) (princ "'n** Invalid input **") ) (princ "'n** Object on locked layer **") ) (princ (strcat "'n** Caution! '"" (kr:BLK_GetBlockName OB#) "'" is an externally referenced block **")) ) (princ "'n** Selected item not an INSERT ** ") ) (princ "'n** Nothing selected **") ) (princ) ) ; ============================================================ ; ; Retrieves pointers to the active document ; ; ============================================================ ; (defun kr:ACX_ADoc () (or *kr-ADoc (setq *kr-ADoc (vla-Get-ActiveDocument (vlax-Get-Acad-Object))) ) *kr-ADoc ) ; ============================================================ ; ; Check if selected block as an XREF ; ; Blk - VLA block reference object ; ; ============================================================ ; (defun kr:BLK_CheckIfXref (Blk) (eq (vla-Get-IsXref (vla-Item (vla-Get-Blocks (kr:ACX_ADoc)) (vla-Get-Name Blk) ) ) :vlax-true ) ) ; ============================================================ ; ; Get block name ; ; Blk - VLA block reference object ; ; ============================================================ ; (defun kr:BLK_GetBlockName (Blk) (if (vlax-Property-Available-P Blk 'EffectiveName) (vla-Get-EffectiveName Blk) (vla-Get-Name Blk) ) ) ; ============================================================ ; ; Start undo mark ; ; ============================================================ ; (defun kr:SYS_StartUndo () (vla-StartUndoMark (kr:ACX_ADoc)) ) ; ============================================================ ; ; End undo mark ; ; ============================================================ ; (defun kr:SYS_EndUndo () (vla-EndUndoMark (kr:ACX_ADoc)) ) (princ)

magla — 2011-03-25 19:28:42

Jason, after : Command: c:sel Always get -Nothing sleectedo What I'm doing wrong?

zw_admin — 2011-03-24 12:04:23

[QUOTE=magla]Yes, LISP will be OK

(defun c:SEL (/ SS O#)
  (vl-load-com)
  (if (setq SS (ssget "_X" '((0 . "INSERT")(2 . "blockname"))))
    (foreach % (jk:SSX_SS->List SS)
      (if (vlax-write-enabled-p (setq O# (vlax-ename->vla-object %)))
        (progn
          (vla-StartUndoMark (vla-get-activedocument (vlax-get-acad-object)))
          (vla-put-XScaleFactor O# 2) ;;; scale X
          (vla-put-YScaleFactor O# 2) ;;; scale Y
          (vla-put-ZScaleFactor O# 2) ;;; scale Z
          (vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))
        )
      )
    )
    (princ "'n** Nothing sleectedo. **")
  )
  (princ)
)
; ============================================================ ;
; Convert selection set to list of ENAME                       ;
; ============================================================ ;
(defun jk:SSX_SS->List (sel / n l)
  (repeat 
    (setq n (sslength sel))
    (setq n (1- n) 
          l (cons (ssname sel n) l)
    )
  )
)

magla — 2011-03-23 19:55:23

Yes, LISP will be OK

zw_admin — 2011-03-23 12:00:56

[QUOTE=magla]

Thanks Daniel,but Unfortunately, zero points.

It works only with block without attributes.

If I have block only with attributes there will be no changes at all For block (graphic + attribute) it will change only graphic.

How to change size of text in block attribute ? are you interesting with lisp solution ? j.

magla — 2011-03-23 05:08:48

Thanks Daniel,but Unfortunately, zero points.

It works only with block without attributes.

If I have block only with attributes there will be no changes at all For block (graphic + attribute) it will change only graphic.

How to change size of text in block attribute ?

magla — 2011-03-22 05:02:54

Hi, I try to change size of specific block through command XScaleFactor,YScaleFactor. Code (ZWCAD 2011,VBA): Private Sub cdOK_Click() Dim EntObj As ZwcadEntity Dim blockObj As ZwcadBlockReference Dim X, Y As Double For Each EntObj In ThisDocument.ModelSpace With EntObj If EntObj.EntityType = zcBlockInsert Then Set blockObj = EntObj If blockObj.Name = StartBlok Then X = 1 Y = 1 blockObj.XScaleFactor = X blockObj.YScaleFactor = Y blockObj.Update End If End If End With Next EntObj Debug.Print "==>KRAJ OK" End Sub

Results is that specific block (StartBlok) has XScaleFactor and YScaleFactor as I want (in this case X=1,Y=1)on drawing checking by Properties.

Problem is that size of that block is not change. It is only changed when I manually do that (Change properties -Parameter YscaleFactor. It is possible to change XScaleFactor and YScaleFactor of block thorough VBA with effect ? Regards, MaGla