See the top rated post in this thread. Click here

Page 1 of 2 12 LastLast
Results 1 to 10 of 16

Thread: extrim - how it works?

  1. #1
    Member
    Join Date
    2004-06
    Posts
    42
    Login to Give a bone
    0

    Default extrim - how it works?

    wanna create command in vba just like 'extrim' but with modifications, so i take a look at the lsp

    but i really dont know lisp, so dont know what it does

    i would like to know the procedure of this lsp just to start the same in vba
    anyone can help?¿ just a basic explanation

    *Note: I have removed the attachment. As it infringes on the copyright of Autodesk*
    Glenn forum moderator
    Last edited by Glenn Pope; 2004-10-25 at 01:44 PM.

  2. #2
    I could stop if I wanted to
    Join Date
    2003-05
    Posts
    335
    Login to Give a bone
    0

    Default Re: extrim - how it works?

    You can get a working procedure and explantion of all parts from the Express Tools.

  3. #3
    Member
    Join Date
    2004-06
    Posts
    42
    Login to Give a bone
    0

    Default Re: extrim - how it works?

    where? the express tools web page? any *.txt of the pack?

  4. #4
    I could stop if I wanted to
    Join Date
    2003-05
    Posts
    335
    Login to Give a bone
    0

    Default Re: extrim - how it works?

    EXTRIM



    Trims all objects at the cutting edge specified by a selected Polyline, Line, Circle, Arc, Ellipse, Text, mtext, or Attribute Definition.

    Command: EXTRIM
    Pick a POLYLINE, LINE, CIRCLE, ARC, ELLIPSE, IMAGE or TEXT for cutting edge...
    Select objects: Select an object to define the cutting edge
    Pick the side to trim on: Select a point inside or outside the object (objects are trimmed to objects cutting edge)


    Usage Example:
    Draw several overlapping circles with intersecting lines. Specify an internal point for location of the trim.


    Select a circle to define the cutting edge:



    Specify a point inside the circle:



    Objects trimmed to the edge of the circle:

    Express Tools Standard Toolbar:

    Express menu: Modify Cookie Cutter Trim

    Command line: EXTRIM

    Files: extrim.lsp

  5. #5
    Member
    Join Date
    2004-06
    Posts
    42
    Login to Give a bone
    0

    Default Re: extrim - how it works?

    O_o

    i know how it works in the user side
    i mean how it works in the programing side, i must make a routine to work with topography, rivers and basins, that need a hard treatment of polilines

    wanna make in vba what extrim does (as part of the program), but not using the command, only using the same routines/procedures.. so need someone who to watch the code and say...what the code does is this, and this, and this... only conceptual programatical-procedure, how it identify what part of a broken line is outside or inside boundary, how identify if a vertex is inside boundary... and so on

  6. #6
    All AUGI, all the time CAB2k's Avatar
    Join Date
    2016-01
    Location
    Brandon, Florida
    Posts
    687
    Login to Give a bone
    0

    Default Re: extrim - how it works?

    If you open the 'Express Tools Help' 'Contents' expand 'Categories' expand
    'Modify' select 'EXTRIM' you will see the help as Will displayed. But look
    at the very bottom of the help page and you will see 'Files: extrim.lsp'
    A file search will usually point you to the 'express' directory. Looking at
    the code, you will likely have to modify the main routine to be a function
    by removing the c: and you will have to make sure the support routines are
    loaded. Or you could go through and recreate the sub functions need to
    create a stand alone version.

  7. #7
    All AUGI, all the time CAB2k's Avatar
    Join Date
    2016-01
    Location
    Brandon, Florida
    Posts
    687
    Login to Give a bone
    0

    Default Re: extrim - how it works?

    Ooops, did i misread your post? You have already looked at the routine and want
    someone to comment the code?
    I think even posting the code here would be a copyright infringement.
    Last edited by CAB2k; 2004-10-10 at 02:15 PM.

  8. #8
    Member
    Join Date
    2004-06
    Posts
    42
    Login to Give a bone
    0

    Default Re: extrim - how it works?

    in europe still doesnt exits the soft-idea-copyright, ie, you cant copy the code but can copy the idea, in this case to VBA

  9. #9
    All AUGI, all the time CAB2k's Avatar
    Join Date
    2016-01
    Location
    Brandon, Florida
    Posts
    687
    Login to Give a bone
    0

    Default Re: extrim - how it works?

    I started but ran out Of time for today.
    Start at the top of the extrim.lsp ( acad2000)
    lines in file is 616 if we have the same version.
    Insert the following comments at the line number.
    Start with line 35.
    If that is any help I'll get back to it next week.

    Code:
     ;;35-vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
     ;;36-  call error handler to save & set these system variables
    ;;56-^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     ;;58-vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
     ;;59-  call Single pick routine & only accept these object types
     ;;60-  returns the entity name
     ;;90-^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
    ;;90-vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
     ;;92-  call error handler to save & set these system variables
           ;;105-  only if one of the object types above
           ;;106-  draw a pline around object
              ;;115- closed pline if 1st & last point are equal
              ;;120- get the name of the pline created
           ;;125- else no need for a separate trim object
         ;;134- if p1 go trim the object na
         ;;136- if separate trim object created
               ;;139- see if current layer is locked
      ;;152- restore the vars set at the start of this routine
      ;;170- if object matches any one of the following
      ;;171- set flag if pline
          ;;184- if pline & open clear flag
         ;;190- set point p1 to current UCS & get VP name
         ;;196- setup & zoom to object extents
         ;;219- get a point list from object,
         ;;220- ??eliminate points close together, within 1/2 of screen pixel distance

  10. #10
    Member
    Join Date
    2004-06
    Posts
    42
    Login to Give a bone
    0

    Default Re: extrim - how it works?

    very appreciated your help, ill wait cos
    the routine seems to be difficult
    thanks

Page 1 of 2 12 LastLast

Similar Threads

  1. Extrim
    By z_ayri788300 in forum AutoLISP
    Replies: 1
    Last Post: 2013-01-16, 12:38 PM
  2. Extrim macro not finishing in Acad2009
    By bcsraa in forum AutoCAD Customization
    Replies: 0
    Last Post: 2010-10-31, 12:12 AM
  3. Error using EXTRIM command
    By jason.cyr13 in forum AutoCAD General
    Replies: 1
    Last Post: 2007-12-03, 08:45 PM
  4. Trying to use a Block to ExTrim to
    By ReachAndre in forum AutoLISP
    Replies: 4
    Last Post: 2006-10-25, 12:53 PM
  5. extrim in vb
    By inner69923 in forum VBA/COM Interop
    Replies: 6
    Last Post: 2004-10-06, 04:17 AM

Posting Permissions

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