ElCidCampeador Posted July 25, 2017 Share Posted July 25, 2017 I'm trying to write a VBA code that searches in a general drawing all lines that have a specific length and slope. Then, every time it finds that line in the drawing, it will write next to a specific text, for example "line". Do you think it's possibile? Any idea? Thanks Quote Link to comment Share on other sites More sharing options...
Tyke Posted July 25, 2017 Share Posted July 25, 2017 In principle what you want to do is perfectly possible. You search the current drawing filtering on lines to create a selection set. Then loop through the selection set and write your text at your desired position. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted July 26, 2017 Share Posted July 26, 2017 As VBA Dim FilterDXFCode(0) As Integer Dim FilterDXFVal(0) As Variant FilterDXFCode(0) = 0 FilterDXFVal(0) = "LINE" Set SS = ThisDrawing.SelectionSets.Add("Linelens") SS.Select acSelectionSetAll, , , FilterDXFCode, FilterDXFVal For Cntr = 0 To SS.Count - 1 'now get the length etc and do something As lisp (setq ss (ssget (list (cons 0 "Line")))) (repeat (setq x (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1))))) (vla-get-length obj) (princ "\n") ) Quote Link to comment Share on other sites More sharing options...
maratovich Posted July 26, 2017 Share Posted July 26, 2017 Do you think it's possibile? Can. Write all the requirements, and attach an example. Quote Link to comment Share on other sites More sharing options...
ElCidCampeador Posted July 27, 2017 Author Share Posted July 27, 2017 Thank you all! It works...! Quote Link to comment Share on other sites More sharing options...
BIGAL Posted July 27, 2017 Share Posted July 27, 2017 What worked ? You dont have to post the code just how, others may want the same answer. Quote Link to comment Share on other sites More sharing options...
ElCidCampeador Posted July 31, 2017 Author Share Posted July 31, 2017 I used your idea Bigal, vba Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.