gilsoto13 Posted April 15, 2010 Share Posted April 15, 2010 Hi, Everyone... Part of me is working on a drawing inserting points at each vertex of selected poylines, but the lisp I am using works too slow.. This one works a lot faster... maybe 10 times faster.. It inserts circles at each vertex.. then I can convert them to points with another lisp... but this one does not insert circles at the z coordinate... how would you add this feature? http://forums.augi.com/showpost.php?p=344138&postcount=5 (defun c:foo () (vl-load-com) (setq *model-space* (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))) (setq obj (vlax-ename->vla-object (car (entsel)))) (setq c (vlax-get obj "Coordinates") i 0) (repeat (/ (length c) 2) [color=red] (setq x (nth i c) y (nth (1+ i) c)) [/color] (vla-addcircle *model-space* (vlax-3d-point (list x y [color=red]0.0[/color])) 3.0) (setq i (+ i 2)) ) (princ) ) Quote Link to comment Share on other sites More sharing options...
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.