Scale problem
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
Hi,
i am a beginner, i have a lisp for insert the drawing and Template (.dwg formate).
its working in my machine
1.inserting drawing
2.template at 0,0 location (for my requirement drawing has to insert first)
but its not working in other machines,
I tried INSUNITS, DWGUNITS, ATTREQ but its not working
the lisp routing is below,
(defun c:zedwg1( / *error* echohold attreqhold KorR )
(defun *error* (errmsg)
(if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break"))
(princ (strcat "\nError: " errmsg))
); end if
(setvar 'attreq attreqhold)
(command "_.undo" "_end")
(setvar 'cmdecho echohold)
(princ)
); defun
(command "_.undo" "_begin")
(setq
echohold (getvar 'cmdecho)
attreqhold (getvar 'attreq)
); setq
(setvar 'cmdecho 0)
(setvar 'attreq 0)
(initget 1 "Keep Remove")
(setq KorR (prompt "\nSelect Block name from list, then pick OK."))
(princ)
(initdia)
(command "_.insert" (getvar 'viewctr) "_.erase" "_last" ""); establishes default Block name
(command "_.zoom" "E")
(command "_.-insert" "ISO TEMPLATE" "0,0,0" "1" "" "")
(princ "\nEasy EXPLODE & attedit & attedit")(princ)
(command "EXPLODE" "LAST" "")
(initdia)
(command "._attedit" "726.712806,120.221366,0.000000")
(princ)
(initdia)
(command "._attedit" "820.800222,141.451045,0.000000")
(command "_.-insert" "CONFIDENTIAL_BLOCK" "12.7000,39.400,0" "1" "" "")
(command "LAYISO" "_WINDOW" "60.5062,157.2234" "527.9969,383.1805" "" )
(command "scale" "_window" "12.8700000,39.4000" "608.2000,520.700" "R" "window" "13.0000,500.2000" "37.3000,521.2000"
"" "328.4033,265.5697" "0.95")
(command "LAYUNISO" "")
(princ)
)
could some please help me to fix the issue.....
I would appreciate you valuable Guide to fix the issue,
Thanks,
Meganathan