mdbdesign Posted October 24, 2011 Share Posted October 24, 2011 As per subject line: 1. Need to change fonts in one of customer text style to make it readable on print and 2. Line thickness in all layer to 0. Looks like got only last line of my script for print previous 1.missing 2. missing (command "-plot" "no" "" "previous plot" "" "" "" "") Please... Quote Link to comment Share on other sites More sharing options...
Tharwat Posted October 24, 2011 Share Posted October 24, 2011 What's the font's name and the text style that you want to change them to ? for changing all layers to 0. ( line Weight ) follow this simple process . Command: [b]-la[/b] -LAYER Current layer: "0" Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck /Unlock/stAte/Description/rEconcile]: [b]lw[/b] Enter lineweight (0.0mm - 2.11mm): [b]0[/b] Enter name list of layers(s) for lineweight 0.00mm <0>: [b]*[/b] Enter an option [?/Make/Set/New/Rename/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck /Unlock/stAte/Description/rEconcile]: Tharwat Quote Link to comment Share on other sites More sharing options...
mdbdesign Posted October 24, 2011 Author Share Posted October 24, 2011 Text style is RDM, fonts: romand to romans How do I can create command to change it without open dialog box Same to: all layers line thickness to zero. Quote Link to comment Share on other sites More sharing options...
Tharwat Posted October 24, 2011 Share Posted October 24, 2011 This routine would change the text style RDM font name to romans , and for lines you can follow the above process that I brought earlier . (defun c:Test (/ sty) (vl-load-com) ;; Tharwat 25. 10. 2011 (if (tblsearch "STYLE" "RDM") (progn (setq sty (entget (tblobjname "STYLE" "RDM"))) (if (not (eq (cdr (assoc 3 sty)) "romans.shx")) (entmod (subst (cons 3 "romans.shx") (assoc 3 sty) sty)) ) (vla-regen (vla-get-ActiveDocument (vlax-get-acad-object)) acAllViewports ) ) ) (princ) ) Tharwat Quote Link to comment Share on other sites More sharing options...
mdbdesign Posted October 24, 2011 Author Share Posted October 24, 2011 Will try. Thank you Tharwat. Quote Link to comment Share on other sites More sharing options...
alanjt Posted October 24, 2011 Share Posted October 24, 2011 You should be able to alter the style with the -STYLE command. Quote Link to comment Share on other sites More sharing options...
mdbdesign Posted October 24, 2011 Author Share Posted October 24, 2011 Ok got text style done, Now how to change all layers line thickness in one hit to 0.0 thickness. All dwgs got variable number of layers, cannot fix it with script... any macro but without dialog box? My head is empty now but almost 200 dwgs to print. Quote Link to comment Share on other sites More sharing options...
mdbdesign Posted October 25, 2011 Author Share Posted October 25, 2011 Done with old script - just added to acad.lsp and work OK. 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.