See the top rated post in this thread. Click here

Results 1 to 7 of 7

Thread: TableStyle command in lisp

  1. #1
    Member
    Join Date
    2005-06
    Posts
    8
    Login to Give a bone
    0

    Default TableStyle command in lisp

    I'm trying to completely purge dwg files in a symbol library. For objects like Text Style and Dimension Style I can use (command "Style" "STANDARD"....etc.), or(command "DimTxsty" "STANDARD"....etc.), and set the object to the AutoCad Standard, then purge every style that is not standard.
    I have unneeded Table Styles in these dwg. "TABLESTYLE" brings up the dialog box where I can make my change, but I can't get it to work in a lisp routine.
    Any ideas

  2. #2
    I could stop if I wanted to
    Join Date
    2005-09
    Location
    Canada
    Posts
    212
    Login to Give a bone
    0

    Default Re: TableStyle command in lisp

    why not using command purge command ?

    Code:
    command:_-purge
    Enter type of unused objects to purge 
    [Blocks/Dimstyles/LAyers/LTypes/MAterials/MUltileaderstyles/Plotstyles/SHapes/te
    xtSTyles/Mlinestyles/Tablestyles/Visualstyles/Regapps/All]: T
    Enter name(s) to purge <*>: *
    Verify each name to be purged? [Yes/No] <Y>: n

  3. #3
    Member
    Join Date
    2005-06
    Posts
    8
    Login to Give a bone
    0

    Default Re: TableStyle command in lisp

    These dwg files have two Table Styles defined in them: Standard and "Equipment." Standard is the style that comes with Acad and cannot be purged. The CURRENT Table Style in the dwg is SET to "Equipment, " so that cannot be purged. I must set Standard as the current Table Style, then I can purge "Equipment."
    This is the same technique that I used for Text Style and Dim Styles. The style must be set to STANDARD, before the user added styles can be purged. I just can't figure out how to change TABLESTYLE, without a dialog box.

  4. #4
    Administrator Opie's Avatar
    Join Date
    2002-01
    Location
    jUSt Here (a lot)
    Posts
    8,440
    Login to Give a bone
    1

    Default Re: TableStyle command in lisp

    You might try the "CTABLESTYLE" system variable.
    If you have a technical question, please find the appropriate forum and ask it there.
    You will get a quicker response from your fellow AUGI members than if you sent it to me via a PM or email.
    jUSt

  5. #5
    Certifiable AUGI Addict ccowgill's Avatar
    Join Date
    2004-08
    Location
    Hartford, Michigan
    Posts
    3,194
    Login to Give a bone
    1

    Default Re: TableStyle command in lisp

    Code:
    (setvar "ctablestyle" "Standard")
    text so code will post
    Christopher T. Cowgill, P.E.
    Autodesk Expert Elite
    AEC Collection Civil 3D 2020
    Windows 10

  6. #6
    Member
    Join Date
    2005-06
    Posts
    8
    Login to Give a bone
    0

    Default Re: TableStyle command in lisp

    That's it! Thank you very much. I checked the SETVARs but only those beginning with a "T."

  7. #7
    Member
    Join Date
    2005-06
    Posts
    8
    Login to Give a bone
    0

    Default Re: TableStyle command in lisp

    That's it! Thank you.

Similar Threads

  1. How to create a new TableStyle ?
    By viz_ken1030 in forum AutoLISP
    Replies: 11
    Last Post: 2011-11-23, 01:35 PM
  2. Current Tablestyle
    By BeetleJuice in forum VBA/COM Interop
    Replies: 1
    Last Post: 2010-11-22, 10:33 AM
  3. Replies: 3
    Last Post: 2009-10-22, 10:19 PM
  4. Dictionary for TableStyle not creating.
    By Dave F. in forum VBA/COM Interop
    Replies: 0
    Last Post: 2009-05-25, 11:39 PM
  5. Tablestyle command is unresponsive
    By dmorrell in forum AutoCAD Tables
    Replies: 3
    Last Post: 2006-08-18, 01:23 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •