Search:

Type: Posts; User: GP_

Page 1 of 5 1 2 3 4

Search: Search took 0.01 seconds.

  1. Maybe this...

    Maybe this topic can help...
  2. Replies
    9
    Views
    367

    You're welcome. :)

    You're welcome. :)
  3. Replies
    9
    Views
    367

    Another way. I've divided the gif because of...

    Another way.

    I've divided the gif because of the size.



    49141
  4. Thread: command issues

    by GP_
    Replies
    11
    Views
    492

    Try: (defun C:TEST(/ ent) (setq ent...

    Try:


    (defun C:TEST(/ ent)
    (setq ent (entget(car(entsel))))

    (command "HATCHGENERATEBOUNDARY" (cdr (assoc -1 ent)) "")
    (command "WIPEOUT" "p" "y")
    (command "DRAWORDER" (entlast) ""...
  5. Replies
    64
    Views
    1,979

    (My $0.02) Edit the acad.dcl and add width =...

    (My $0.02)
    Edit the acad.dcl and add width = 25; or another value that satisfies.


    before:

    48175


    after:
  6. Hi Marco, why not use an unused function key? ...

    Hi Marco,
    why not use an unused function key?
    I've assigned F5, very fast. :)
  7. Replies
    4
    Views
    338

    The polylines don't intersect.

    The polylines don't intersect.
  8. Replies
    4
    Views
    338

    Please post dwg.

    Please post dwg.
  9. Replies
    8
    Views
    582

    Another. (vl-cmdf "._pedit" lin1 (if (eq...

    Another.


    (vl-cmdf "._pedit" lin1 (if (eq (getvar 'peditaccept) 0) "_Y") "" )
    (vl-cmdf "._join" (entlast) arc1 "")

    or


    (vl-cmdf "._pedit" lin1 (if (eq (getvar 'peditaccept) 0) "_Y")...
  10. Thread: ssget returns nil

    by GP_
    Replies
    9
    Views
    337

    Good stuff :)

    Good stuff :)
  11. Thread: ssget returns nil

    by GP_
    Replies
    9
    Views
    337

    (setq spt (getpoint)) ;BLOCK -> insert point...

    (setq spt (getpoint)) ;BLOCK -> insert point
    (619827.0 2.61951e+006 1.11028e-011)
    _$
    (setq ss(ssget "X" (list (cons 0 "INSERT")(cons 10 spt))))
    <Selection set: 3da>
    _$


    (setq spt...
  12. Replies
    5
    Views
    306

    My attempt (for x and y positive). (defun...

    My attempt (for x and y positive).


    (defun c:test ( / p ab p1 p2 d )
    (setq p (getpoint "Pick a point "))
    (setq ab (getdist "\nLength Line "))
    (if (< ab (cadr p))
    (progn...
  13. My offer... :) (defun c:test ( / poly...

    My offer... :)




    (defun c:test ( / poly pt Lv n)
    (if (and
    (setq poly (car (entsel "\nSelect a Polygon")))
    (setq pt (getpoint "\nSelect a point"))
    )
  14. Thread: getpoint to ss

    by GP_
    Replies
    11
    Views
    513

    (setq pnt nil) (while (setq pntx...

    (setq pnt nil)
    (while (setq pntx (getpoint"\nSelect points from the LEFT to RIGHT : "))
    (setq pnt (cons pntx pnt))
    )
  15. The area enclosed by the surface is not...

    The area enclosed by the surface is not watertight.
    For example here, but also in other parts.


    46677
  16. Replies
    7
    Views
    608

    Maybe "polar tracking". ...

    Maybe "polar tracking".

    http://www.dailymotion.com/video/xm7xt5_autocad-2012-tutorials-polar-tracking_tech






    Nice :)
  17. Replies
    11
    Views
    588

    Add... ................ ...................

    Add...



    ................
    ................
    (vlax-for o b
    (if (or
    (eq "AcDbHatch" (vla-get-objectname o))
    (eq "AcDbSolid" (vla-get-objectname o))
  18. Replies
    11
    Views
    588

    Also this, by Tharwat (updated to include...

    Also this, by Tharwat (updated to include "SOLID")
    http://www.cadtutor.net/forum/showthread.php?80180-Deleting-Hatch-from-Blocks



    (vl-load-com)
    (defun c:Test (/ b o)
    ;;--- Tharwat...
  19. Replies
    29
    Views
    1,368

    Not that I'm aware of.

    Not that I'm aware of.
  20. Replies
    10
    Views
    696

    You're welcome Oops :P

    You're welcome




    Oops :P
Results 1 to 20 of 100
Page 1 of 5 1 2 3 4