savinirsb4u Posted November 27, 2021 Share Posted November 27, 2021 Hi All, I am looking for a lisp to draw a Line or polyline (strikethrough) over the specific attributes (like TAG1 or TAG3) in a selected block. Please find the attached sample drawing for the attributed block. My requirement is what ever the block I have selected, I need a strikeout line on top of the specific attributes. Please refer attached snip for reference. I have multiple attributes in my block. But I need only few of the attributes should be strikeoff. I don't want to use "%%K" to strikeoff the attribute text inside the blocks. I need a individual lines on top of the selected block. Is it possible through Lisp? Please help me Sample Attribute Block.dwg Quote Link to comment Share on other sites More sharing options...
tombu Posted November 27, 2021 Share Posted November 27, 2021 %%k Toggles strikethrough on and off. https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2022/ENU/AutoCAD-Core/files/GUID-968CBC1D-BA99-4519-ABDD-88419EB2BF92-htm.html Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted November 27, 2021 Share Posted November 27, 2021 This could be modified to operate on attributes - http://lee-mac.com/strikethrough.html 1 Quote Link to comment Share on other sites More sharing options...
savinirsb4u Posted November 27, 2021 Author Share Posted November 27, 2021 Thank you for your responses. But, I don't want to use prefix "%%K" to my attributes. I need to draw a individual line on top of attribute text over the block. Please refer attached drawing. If possible I need two lisps one is to create Lines for all the attributes in the selected block. And the other one is to create lines for specific attribute tag values for the selected block. Thank you for helping. Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted November 28, 2021 Share Posted November 28, 2021 My program does not use the %%K prefix. Quote Link to comment Share on other sites More sharing options...
savinirsb4u Posted November 28, 2021 Author Share Posted November 28, 2021 Actually I need individual lines (seoerate elements) on each block attributes. Quote Link to comment Share on other sites More sharing options...
Steven P Posted November 28, 2021 Share Posted November 28, 2021 5 hours ago, savinirsb4u said: Actually I need individual lines (seoerate elements) on each block attributes. ";; Strikethrough Text - Lee Mac ;; Generates polylines through the supplied text object, with spacing & width given by the supplied parameter list."... says it in Lee Macs Lisp... Quote Link to comment Share on other sites More sharing options...
savinirsb4u Posted November 29, 2021 Author Share Posted November 29, 2021 It works only on Text or Mtexts. How to modify this lisp to work on Block attributes as well? Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted November 30, 2021 Share Posted November 30, 2021 I've now updated my Strikethrough Text program to incorporate compatibility for both single & multiline attributes (with a single line of text) - you can download the new version 1.2 from here (note that you may need to refresh the page if you've visited recently, as it'll be cached in your browser). 1 Quote Link to comment Share on other sites More sharing options...
savinirsb4u Posted November 30, 2021 Author Share Posted November 30, 2021 Thank you Lee for your updated code. It works perfectly. Quote Link to comment Share on other sites More sharing options...
savinirsb4u Posted November 30, 2021 Author Share Posted November 30, 2021 Hi Lee, how to change the newly created Lines into specific layer. Also how to move the selected block into another laer by using your "Single Strikethrough - Single" tool. Appreciate your valuable time on this. Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted November 30, 2021 Share Posted November 30, 2021 13 hours ago, savinirsb4u said: Hi Lee, how to change the newly created Lines into specific layer. Also how to move the selected block into another laer by using your "Single Strikethrough - Single" tool. Appreciate your valuable time on this. Change line 221 from: (LM:defaultprops enx) to: (subst '(8 . "YourLayerHere") (assoc 8 enx) (LM:defaultprops enx)) Quote Link to comment Share on other sites More sharing options...
savinirsb4u Posted December 1, 2021 Author Share Posted December 1, 2021 Sorry Lee for asking too many questions> 1) How to change the color of the strike lines from "ByBlock" to "ByLayer". 2) Also is it possible to modify the selected block also into desired layer --> (8 . "YourLayerHere") 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.