1. Forum
  2. Usenet
  3. COMP.CAD.AUTOCAD

  • Attribute Dialog for Insert in R2000 / Autolisp

    From [email protected]@21:1/5 to All on Wed Aug 3 22:25:36 2016
    Help me... mi code is... but open dialog box and not insert value



    (setvar "OSMODE" 0)
    (command "_LAYER" "M" "valvulas" "COLOR" "white" "valvulas" ""
    "_DONUT" "0.00" diext ptv ""
    "_LAYER" "M" Di1 "COLOR" "BLUE" "" ""
    "_PLINE" pt1 "W" (* 0.5 g:escala) "" Pt2 ""
    "_LAYER" "M" Di2 "COLOR" "RED" "" ""
    "_PLINE" Pt2 "W" (* 0.4 g:escala) "" Pt3 ""
    "_LAYER" "M" Di3 "COLOR" "GREEN" "" ""
    "_PLINE" Pt3 "W" (* 0.3 g:escala) "" Pt4 ""
    "_LAYER" "M" "memoria" "COLOR" "WHITE" "memoria" ""
    "_.-Insert" "datval" ptt g:escala "" 0
    (strcat (rtos (/ area 10000) 2 4))
    (strcat (rtos (* gas 1000) 2 2))
    (strcat (rtos per 2 2) " mca") ""
    "_LAYER" "M" "reducciones" "COLOR" "blue" "reducciones" ""
    "_PLINE" pt2 "W" wid 0 p1 ""
    "_PLINE" pt3 "W" wid 0 p2 ""
    "_LAYER" "M" "diametros" "COLOR" "7" "diametros" ""
    "_TEXT" "M" pi1 "" (+ (* ang (/ 180 pi)) (if rev 180 0)) tx1
    "_TEXT" "M" pi2 "" (+ (* ang (/ 180 pi)) (if rev 180 0)) tx2
    "_TEXT" "M" pi3 "" (+ (* ang (/ 180 pi)) (if rev 180 0)) tx3
    )
    (setvar "BLIPMODE" oldblp)
    (setvar "CMDECHO" oldcmd)
    (setvar "OSMODE" oldosm)
    (setvar "CLAYER" clay)
    (setq *ERROR* olderr)
    (princ)
    )

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)