vla-get-tablestyles AutoCAD 2005+
CADForums.net Forum Index CADForums.net
Discussion of AutoCAD and other CAD software.
 
 FAQFAQ   MemberlistMemberlist     RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 
Google
 
Web cadforums.net
vla-get-tablestyles AutoCAD 2005+

 
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization
Author Message
HofCAD



Joined: 01 Jul 2005
Posts: 8
Posted: Wed Feb 01, 2006 2:29 pm    Post subject: vla-get-tablestyles AutoCAD 2005+ Reply with quote
Hello CAD friends,

I was wondering if anyone one know why there is a
problem with vla-get-tablestyles.

(defun c:test1()
(vl-load-com)
(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq TabCol (vla-get-TableStyles ActDoc))
(setq TabSty (vla-Item TabCol "Standard"))
(stq ObjID (vla-get-ObjectID TabSty))
(command "_TEXT" '(30 30) "5" "0"
(strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa objID) ">%).Name>%"))
)

Thanks

HofCAD CSI

Back to top
View user's profile Send private message
LUCAS_LAI



Joined: 18 Oct 2007
Posts: 1
Posted: Thu Oct 18, 2007 8:30 am    Post subject: Reply with quote
Code:

(defun C:TEST1 ()
  (vl-load-com)
  (setq ACTDOC (vla-get-activedocument (vlax-get-acad-object)))
  (setq   TABCOL (vla-item
       (vla-get-dictionaries
         ACTDOC
       )
       "ACAD_TABLESTYLE"
          )
  )
  (setq TABSTY (vla-item TABCOL "Standard"))
  (setq OBJID (vla-get-objectid TABSTY))
  (command "_TEXT"
      '(30 30)
      "5"
      "0"
      (strcat "%<\\AcObjProp Object(%<\\_ObjId "
         (itoa OBJID)
         ">%).Name>%"
      )
  )
)
Back to top
View user's profile Send private message
Adesu



Joined: 20 Jul 2005
Posts: 32
Posted: Fri Mar 20, 2009 11:54 pm    Post subject: Re: vla-get-tablestyles AutoCAD 2005+ Reply with quote
or maybe you looking for like this
Code:

(defun c:test1(/ ACTDOC OBJID TABCOL TABSTY)
  (vl-load-com)
  (setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (setq TabCol (vla-get-TextStyles ActDoc))
  (setq TabSty (vla-Item TabCol "Standard"))
  (setq ObjID (vla-get-ObjectID TabSty))
  (command "_TEXT" '(30 30) "5" "0"
      (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa objID) ">%).Name>%"))
  (princ)
  )




HofCAD wrote:
Hello CAD friends,

I was wondering if anyone one know why there is a
problem with vla-get-tablestyles.

(defun c:test1()
(vl-load-com)
(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq TabCol (vla-get-TableStyles ActDoc))
(setq TabSty (vla-Item TabCol "Standard"))
(stq ObjID (vla-get-ObjectID TabSty))
(command "_TEXT" '(30 30) "5" "0"
(strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa objID) ">%).Name>%"))
)

Thanks

HofCAD CSI


Back to top
View user's profile Send private message
 
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization All times are GMT
Page 1 of 1

 
 You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Access Forum - Microsoft Office Forum - Windows Server - Electronics

Contact Us Powered by phpBB