![]() (setq objLength (vlax-curve-getDistAtParam UpperObj (vlax-curve-getEndParam UpperObj))) (setq BottomObj (vlax-ename->vla-object (entlast))) (setq UpperObj (vlax-ename->vla-object (entlast))) (setq yp(mapcar '(lambda(x) (list (car x) (cadr x))) yp)) (setq xp(mapcar '(lambda(x) (list (car x) (cadr x))) xp)) (setq BottomObj (vlax-ename->vla-object (car (entsel "\nSELECT BOTTOM OF BATTER >")))) (setq UpperObj (vlax-ename->vla-object (car (entsel "\nSELECT TOP OF BATTER >")))) (if(not distbetween)(setq distbetween olddistbetween)) distbetween (getreal(strcat"\nSPECIFY DISTANCE BETWEEN BATTER TICKS :"))) (command "-layer" "new" "BATTER TICKS" "Color" 30 "BATTER TICKS" "LTYPE" "Continuous" "BATTER TICKS" "") (if(not(tblsearch "LAYER" "BATTER TICKS")) ![]() (setq acadDoc (vla-get-ActiveDocument acadApp)) (defun C:PBTL ( / steplength2 endpt startpt divstep) ![]() draws batter ticks between two polylines I give complete code together with a function to make a block for the tick automatically: Then it can be used to draw ticks for many pairs of polylines in one go as can be seen in the picture shown. It returns an error message as it tries to initiate a point "tartPt2" outside the polyline right at the end This can be avoided by making steplLength2 for controlling the while loop. ![]() There seems to be a bug in the batterticks.lsp code given. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |