TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: TJAM51 on December 16, 2004, 09:04:22 AM

Title: Need assistance
Post by: TJAM51 on December 16, 2004, 09:04:22 AM

Just a little assist with a small routine already written. The block being inserted has two attributes rather than one. How can I get the prompt to allow me time to enter both attributed information.....

(DEFUN C:diff-co (/ PB1 PT1 PT2 LAY SCL PLY AGL RTD ANG)
(SETQ PB1 (GETVAR "PICKBOX"))
(SETVAR "PICKBOX" 0)
(SETVAR "CMDECHO" 0)
(SETQ PT1 (GETPOINT "\nFrom Point: ")
      PT2 (GETPOINT PT1 "\nTo Point: ")
      LAY (GETVAR "CLAYER")
      SCL (GETVAR "DIMSCALE")
      PLY (* SCL 0.23)
      AGL (ANGLE PT1 PT2)
      RTD (/ 180 PI)
      ANG (* RTD AGL))
(COMMAND "COLOR" "bylayer"
         "LINE" PT1 PT2 ""
         "COLOR" "BYLAYER"
         "INSERT" "meinarw" PT1 SCL "" ANG
         "POLYGON" "6" PT2 "I" PLY
         "TRIM" "L" "" PT2 ""
         "ERASE" "L" "")
(SETQ ATT (GETSTRING "\nKey Number: "))
(COMMAND "INSERT" "M-Text-CFMTag" PT2 SCL "" "" ATT)
(COMMAND "SETVAR" "PICKBOX" PB1)
(SETVAR "CMDECHO" 1)
(PRINC))

Title: Need assistance
Post by: David Bethel on December 16, 2004, 09:59:31 AM

Code: [Select]

(SETQ ATT (GETSTRING "\nKey Number: "))
(SETQ ATT2 (GETSTRING "\n2nd Attrib: "))
(COMMAND "INSERT" "M-Text-CFMTag" PT2 SCL "" "" ATT ATT2)

-David

Title: Need assistance
Post by: TJAM51 on December 16, 2004, 10:07:37 AM

Thank you very much.....- :D