Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 03/01/2023 in all areas

  1. Maybe have search only option on as default would be the simplest fix update line 505 " : toggle { key = \"search\"; label = \"Search Only\"; is_tab_stop = false; }" to " : toggle { key = \"search\"; label = \"Search Only\"; is_tab_stop = true; }"
    2 points
  2. I really do not know why. But you can use vla-put-insertionpoint (setq e1-obj (vlax-ename->vla-object e1)) (setpropertyvalue e1 "TextHeight" 14.00) (setq position-xyz ( list -2957.874 689.120 0.0)) ; new position (vla-put-InsertionPoint e1-obj (vlax-3d-point position-xyz))
    1 point
  3. This will certainly work. No more accidents. Thank you mhupp!
    1 point
  4. I think this is your problem: "Position/X I'd be tempted to use entmod instead of setpropertyvalue - see the first text to change as an example, commented out your original lines (defun c:mycoverpage (/ ss ss1 ss2 e e1 e2 ) (if (setq ss (ssget "_:S" '((0 . "MTEXT")))) (Progn (setq ed (entget (ssname ss 0 )) ) (setq ed (subst (cons 40 15) (assoc 40 ed) ed )) (setq ed (subst (cons 10 (list -2959.684 730.225 0)) (assoc 10 ed) ed )) (entmod ed) ; (setq e (ssname ss 0 )) ; (setpropertyvalue e "TextHeight" 15.00) ; (setpropertyvalue e "Position/X" -2959.684) ; (setpropertyvalue e "Position/Y" 730.225) ; (setpropertyvalue e "Position/Z" 0.00) ) ) (if (setq ss1 (ssget "_:S" '((0 . "MTEXT")))) (Progn (setq e1 (ssname ss1 0 )) (setpropertyvalue e1 "TextHeight" 14.00) (setpropertyvalue e1 "Position/X" -2957.874) (setpropertyvalue e1 "Position/Y" 689.120) (setpropertyvalue e1 "Position/Z" 0.00) (setpropertyvalue e1 "Contents" "\\pxqc;{\\C256;DETAILED DESIGN}") ) ) (if (setq ss2 (ssget "_:S" '((0 . "MTEXT")))) (Progn (setq e (ssname ss2 0 )) (setpropertyvalue e2 "TextHeight" 13.00) (setpropertyvalue e2 "Position/X" -2674.324) (setpropertyvalue e2 "Position/Y" 568.830) (setpropertyvalue e2 "Position/Z" 0.00) (setpropertyvalue e2 "Contents" "{\\fArial|b0|i0|c0|p34;\\C256;MARCH 2023}") ) ) (princ))
    1 point
  5. I have over 16000 posts here and respond to 4 forums occasionally I miss a request they could have sent me a private message. Sounds like I did not send an answer to you for a request. Or I did as much as I was prepared to do. I test the code before posting it and make sure it works often a user will do something not considered and it does not work. The code has been changed and not by me what I posted works for the original request. The code posted here is mostly provided free of charge, have you posted anything useful ?
    1 point
  6. This is like "FINDSTR" a windows function so find "Aliasedit" on my PC it can search an entire disk, just takes a while. I use to find code I have done. So maybe an option put in guess "Ali" Findstr works with this. Like others around 3000 lisp files.
    1 point
×
×
  • Create New...