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))
