Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

Anonymous
485 Vistas, 6 Respuestas

Scale problem

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