Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 12/31/2024 in all areas

  1. Try the code above again .. I missed setting the 'ff' variable.
    1 point
  2. Yes: I think the only way to achieve this is by transforming each byte into a list of bits. I have already done this. Now I am finishing designing the read and write functions to work with single (32 bits) and double (64 bits) precision numbers. Once I finish this work and test it, I will leave the result in this thread, in case anyone finds it useful. In any case, one thing is clear: in Lisp it cannot be...
    1 point
  3. I don't use initget anymore rather this. (if (not AH:Butts)(load "Multi Radio buttons.lsp")) (if (= but nil)(setq but 1)) (setq ans (ah:butts but "V" '("Please Choose" "All" "All in tab" "Select objects")))) ; ans holds the button picked as an integer value (cond ((if (= ans "All")(setq ss (ssget "_X" '((0 . "*TEXT")))))) ((if (= ans "All in tab")(setq ss (ssget "_X" '((0 . "*TEXT")(cons 410 (getvar...
    1 point
  4. @Nikon There were a few errors in the code you posted .. FWIW here are some modifications with comments. ;; Create a new text style and replace all styles in the drawing (defun c:cr-txtst-sel2 ;; RJP - Localize all variables (/ acaddoc eo ff i objstyle oldcmd select ss styles) (vl-load-com) ;; RJP - Check that the font can be found otherwise BOOM! Also search for the system font not tied...
    1 point
  5. I think Tharwat had the right solution : https://forums.autodesk.com/t5/autocad-forum/ad-how-to-redifine-f1-key/td-p/9395761
    1 point
  6. Just remove the asterisk when checking for equality. (= select All) (= select Select)
    1 point
×
×
  • Create New...