PLEASE HELP ME TO USE LEE MAC WScript LISP

[hidxb123]

Now working :D:D:D:D

 

Thank you Leemac Sir. for your valuable time, this happened because i don't have any programing knowledge , i will try to learn but i don't know where i get a proper training

 

 

Thank you BIGAL also for your reply.

 

 

 

 

 

 

 

 

 

If you are changing ATTREQ to 0, you should not supply the attribute value:

(defun c:dee ( / fname )
   (mapcar 'setvar '("cmdecho" "insunits" "dimasz") '(0 4 3.0))
   (if (findfile (setq fname "c:\\hpc\\DE.dwg")) 
       (command "_.-insert" fname "_S" 1.4 "_R" 0.0 "_non" '(7.6911 3.3174))
   )
)

You also no longer require the ENTER & rotation responses, as these have already been supplied ("_S" 1.4 and "_R" 0.0).

 

Please take some time to study the comments in my posts, and also manually enter the prompts for the -INSERT command at the command-line so that you are aware of how your program works.

 

I see that you have also changed the function definition to 'c:dee', therefore, it will need to be evaluated as such:

_.open *file* (load "DEE.lsp" nil) (if c:DEE (c:DEE)) _.qsave _.close

[asos2000]

http://www.afralisp.net/index.php

 

http://www.cadmagazine.net/content.php (Arabic)

 

http://lee-mac.com/tutorials.html

 

http://web2.airmail.net/terrycad/Tutorials/MyDialogs.htm#IntroAutoLISP

[Lee Mac]

Now working :D:D:D:D

 

Thank you Leemac Sir. for your valuable time, this happened because i don't have any programing knowledge , i will try to learn but i don't know where i get a proper training

 

You're welcome - I'm glad the program is now working for you.

 

Good luck with your programming studies.

[marioo]

On 11/9/2016 at 8:22 PM, Lee Mac said:

 

You're welcome - I'm glad the program is now working for you.

 

Good luck with your programming studies.

_.open *file* -INSERT D:\@BLOCK\TB-ASBUILTSHOPDWG.dwg (COMMAND \E "RESUME") ASC TB1 ATTSYNC N TB-ASBUILTSHOPDWG _.QSAVE CLOSE

 

can you help me sir?
how i can separately command after ATTSYNC TB-ASBUILTSHOP DWG  &  qsave command in my autocad that one become in one line.

 

 

[BIGAL]

Should this be "TB-ASBUILTSHOP.DWG", if its a script consider doing a line by line this can force the Enter needed as the attsync is reading a fie name including all spaces up to end of line. If its a menu style ^c^c ...Attsync "TB-ASBUILTSHOP.DWG"; _.QSAVE CLOSE

 

not tested.

 

[marioo]

4 hours ago, BIGAL said:

Should this be "TB-ASBUILTSHOP.DWG", if its a script consider doing a line by line this can force the Enter needed as the attsync is reading a fie name including all spaces up to end of line. If its a menu style ^c^c ...Attsync "TB-ASBUILTSHOP.DWG"; _.QSAVE CLOSE

 

not tested.

 

thank you for your suggestion, i try but still can't.

luckily i see on lsp, already can like this.

_.open *file* -INSERT D:\@BLOCK\TB-ASBUILTSHOPDWG.dwg (COMMAND \E "RESUME") ASC TB1 (command "attsync" "n" "TB-ASBUILTSHOPDWG") _.QSAVE _.CLOSE

[BIGAL]

My take

 

_.open
*file*
-INSERT
"D:/BLOCK/TB-ASBUILTSHOPDWG.dwg"
(COMMAND \E "RESUME")
ASC
TB1
(command "attsync" "n" "TB-ASBUILTSHOP DWG")
_.QSAVE
_.CLOSE