Request: Apply Date Routine as MM/DD/YY

chillme1
chillme1
in Programming and customization

Could someone point to a LISP routine with a format similar or able to be modified per the subject line?

Thanks,

Clinton Hill

Comments

  • Roy Klein Gebbinck
    Roy Klein Gebbinck
    edited July 2019

    Your request is a bit vague. But perhaps this?:

    (menucmd "M=$(edtime,$(getvar,date),MO/DD/YY)")
  • chillme1
    chillme1

    My pardons, Roy.

    I appreciate your offering. I am little rusty and need to revisit basic customization: Might this code be assigned to a palette or toolbar button?

    I was searching for an existing LISP program that would would allow the user to select an attribute value an existing value be replaced by the current date with a mouse click.

  • Roy Klein Gebbinck
    Roy Klein Gebbinck
    edited July 2019 
    (defun c:DateToAtt ( / doc enm sel)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-endundomark doc)
  (vla-startundomark doc)
  (if
    (and
      (setq sel (nentsel))
      (= 2 (length sel)) ; Avoid changing nested attributes.
      (setq enm (car sel))
      (= "ATTRIB" (vle-entget 0 enm))
    )
    (vle-entmod 1 enm (menucmd "M=$(edtime,$(getvar,date),MO/DD/YY)"))
  )
  (vla-endundomark doc)
  (princ)
)

    EDIT: Added a check to avoid changing nested attributes.

  • Jason Bourhill
    Jason Bourhill

    Have you considered using a FIELD? Depending on your requirements this would be a non-programming method to achieve the same.

    Regards,
    Jason Bourhill
    CAD Concepts

  • Kerry Brown
    Kerry Brown

    @Jason Bourhill said:
    Have you considered using a FIELD? Depending on your requirements this would be a non-programming method to achieve the same.

    Regards,
    Jason Bourhill
    CAD Concepts

    Take care using the FIELD option. The **FIELDEVAL **system variable may cause the date to auto-update, which may not be suitable if you wanted a static string.

    Regards,

  • Kerry Brown
    Kerry Brown
    edited July 2019

    Sorry, I tried, but I can't help myself ... this is a pet peeve of mine

    https://xkcd.com/1179/

  • chillme1
    chillme1
    edited July 2019

    Excellent idea: Fields are very powerful. In this case, I prefer a static value. I appreciate your concern.
    I was hoping someone might have a routine in their customization arsenal.

  • chillme1
    chillme1
    edited July 2019

    I hope I can rise to the LISP programming challenge through creating this routine.

  • Roy Klein Gebbinck
    Roy Klein Gebbinck

    @chillme1 You have perhaps missed my 2nd contribution?

  • chillme1
    chillme1

    Indeed I did, sir !!! I thank you for this generous offering.

    My aim is to refer to your code as a learning tool as well as applying it to daily drawing production.

    Thanks, Roy.

    Clint Hill