+ Reply to Thread
Page 3 of 3 FirstFirst 1 2 3
Results 21 to 23 of 23
  1. #21
    Super Member marko_ribar's Avatar
    Computer Details
    marko_ribar's Computer Details
    Operating System:
    Windows 7 Ultimate X64
    Computer:
    Intel quad core CPU 4x2.66GHz, 8GB RAM
    Motherboard:
    INTEL compatibile
    CPU:
    quad core 4x2.66GHz
    RAM:
    8GB
    Graphics:
    NVIDIA GeForce 6600 GT
    Primary Storage:
    250 GB
    Secondary Storage:
    500 GB
    Monitor:
    Samsung 17''
    Discipline
    Architectural
    marko_ribar's Discipline Details
    Occupation
    Architecture, project designer, project visualisation
    Discipline
    Architectural
    Details
    space design - modeling and animations
    Using
    AutoCAD 2014
    Join Date
    Feb 2010
    Location
    Belgrade, Serbia, Europe
    Posts
    1,228

    Default

    Registered forum members do not see this ad.

    Quote Originally Posted by sidhu412 View Post
    Bingooooooooooo

    Great.........!
    That's 100% What I needed You are Genius Mr. Marko_Ribar.

    Thanxxxxxx a lot

    Regards,


    Sidhu
    You're welcome, Sidhu...
    All the best in your work, I hope you'll find useful posted code...

    M.R.

    Marko Ribar, d.i.a. (graduated engineer of architecture)
    M.R. on YouTube

  2. #22
    Senior Member troggarf's Avatar
    Computer Details
    troggarf's Computer Details
    Operating System:
    Windows 8.1
    Using
    AutoCAD 2016
    Join Date
    Oct 2010
    Location
    Littleton, Co
    Posts
    192

    Default

    Wow this is great Marko!!
    This is definitely a helpful tool
    Thanks
    ~Greg
    ~Greg B
    Have fun!! www

  3. #23
    Super Member marko_ribar's Avatar
    Computer Details
    marko_ribar's Computer Details
    Operating System:
    Windows 7 Ultimate X64
    Computer:
    Intel quad core CPU 4x2.66GHz, 8GB RAM
    Motherboard:
    INTEL compatibile
    CPU:
    quad core 4x2.66GHz
    RAM:
    8GB
    Graphics:
    NVIDIA GeForce 6600 GT
    Primary Storage:
    250 GB
    Secondary Storage:
    500 GB
    Monitor:
    Samsung 17''
    Discipline
    Architectural
    marko_ribar's Discipline Details
    Occupation
    Architecture, project designer, project visualisation
    Discipline
    Architectural
    Details
    space design - modeling and animations
    Using
    AutoCAD 2014
    Join Date
    Feb 2010
    Location
    Belgrade, Serbia, Europe
    Posts
    1,228

    Default

    Registered forum members do not see this ad.

    Thanks Greg, I've cleaned code further more... Had mistake in checking weather picked entities belong to curve entities... Now fixed that issue and also changed defined functions to be local to main command function... This version I use now in my start-up acaddoc.lsp...

    Code:
    (defun c:exb2c ( / colect_entdata store_entdata colect_modified_entdata sel_mod_ents 
                       hig osm c1 c2 p ss entdata )
    
      (defun colect_entdata ( / ss i ent entdata )
        (setq ss (ssget "_X"))
        (setq i -1)
        (while (setq ent (ssname ss (setq i (1+ i))))
          (setq entdata (cons (entget ent) entdata))
        )
        entdata
      )
    
      (defun store_entdata nil
        (setq entdata (colect_entdata))
        (princ)
      )
    
      ;;; Modify entities ;;;
    
      (defun colect_modified_entdata ( / ss i ent entdatachk entdatamod )
        (setq ss (ssget "_X"))
        (setq i -1)
        (while (setq ent (ssname ss (setq i (1+ i))))
          (setq entdatachk (cons (entget ent) entdatachk))
        )
        (foreach data entdatachk
          (if (not (vl-some '(lambda ( x ) (equal x data 1e-6)) entdata))
            (setq entdatamod (cons data entdatamod))
          )
        )
        entdatamod
      )
    
      (defun sel_mod_ents nil
        (setq ss (ssadd))
        (foreach data (colect_modified_entdata)
          (ssadd (cdr (assoc -1 data)) ss)
        )
        (princ)
      )
    
      ;;; Main function ;;;
    
      (vl-load-com)
    
      (setq hig (getvar 'highlight))
      (setq osm (getvar 'osmode))
      (setvar 'osmode 0)
      (if (not (or etrim (not (vl-catch-all-error-p (vl-catch-all-apply 'load (list (findfile "extrim.lsp")))))))
        (progn
          (alert "\nExpress Tool EXTRIM not available - quitting...")
          (exit)
        )
      )
      (setq c1 (car (entsel "\nPick first curve")))
      (while (vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getstartparam (list c1)))
        (prompt "\nPicked entity isn't curve entity. Try again...")
        (setq c1 (car (entsel "\nPick first curve")))
      )
      (setq c2 (car (entsel "\nPick second curve")))
      (while (vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getstartparam (list c2)))
        (prompt "\nPicked entity isn't curve entity. Try again...")
        (setq c2 (car (entsel "\nPick second curve")))
      )
      (initget 1)
      (setq p (getpoint "\nPick or specify point between 2 prviously picked curves where do you want extrim to be processed : "))
      (store_entdata)
      (etrim c1 p)
      (sel_mod_ents)
      (command "_.copybase" '(0.0 0.0 0.0) ss "")
      (command "_.undo" "3")
      (etrim c2 p)
      (command "_.pasteclip" '(0.0 0.0 0.0))
      (setvar 'osmode osm)
      (setvar 'highlight hig)
      (princ)
    )
    HTH, M.R.

    Marko Ribar, d.i.a. (graduated engineer of architecture)
    M.R. on YouTube

Similar Threads

  1. Adding " Extrim" command to my Tool Platte
    By samifox in forum AutoCAD General
    Replies: 2
    Last Post: 31st Jan 2013, 04:49 pm
  2. Extrim not working in lisp
    By BIGAL in forum AutoLISP, Visual LISP & DCL
    Replies: 3
    Last Post: 28th Jan 2013, 12:53 am
  3. 2D circle jagged lines, 3D model " hidden" jagged lines. How do i get smooth lines?
    By richarda2012 in forum AutoCAD 3D Modelling & Rendering
    Replies: 8
    Last Post: 13th Oct 2012, 09:21 am
  4. Extrim command
    By chizifreshi in forum AutoCAD General
    Replies: 5
    Last Post: 30th Jan 2012, 02:57 pm
  5. Replies: 16
    Last Post: 3rd Dec 2008, 03:45 pm

Tags for this Thread

Bookmarks

Posting Permissions

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