Results 1 to 6 of 6

Thread: Help updating a wall LISP

  1. #1
    Active Member
    Join Date
    2005-02
    Posts
    67
    Login to Give a bone
    0

    Default Help updating a wall LISP

    Greetings,

    We recently upgraded our software to ADT 2004. However, we currently are training on the ADT content and therefore still drawing in 3D. I have a wall routine that is dialog driven, but the command shortcut is wall which is the same for ADT walls, so it loads the ADT content. I want to change my routine to launch with DW, I went through & changed wall to DW and renamed the .lsp & .dcl file to DW, but I get a pop-up saying "can't find dialog definition dw". The dw.dcl file is in my support folder which is in my search path. So am I missing something in the .lsp file?

    I had to change the extension on the dcl file because you can't attach dcl's. Also the dw.lsp file was too big, so I just attached the dialog calling section.

    Thanks in advance.
    Attached Files Attached Files

  2. #2
    AUGI Addict madcadder's Avatar
    Join Date
    2000-11
    Location
    Too far from the beach
    Posts
    1,054
    Login to Give a bone
    0

    Default Re: Help updating a wall LISP

    just a sec...

  3. #3
    Administrator Opie's Avatar
    Join Date
    2002-01
    Location
    jUSt Here (a lot)
    Posts
    9,096
    Login to Give a bone
    0

    Default Re: Help updating a wall LISP

    Have you tried changing the first line in your dcl file to read
    Code:
    dw : dialog {
    instead of
    Code:
    wall : dialog {
    I'm not the best at DCL files, so just a thought.

    HTH
    Richard
    If you have a technical question, please find the appropriate forum and ask it there.
    You will get a quicker response from your fellow AUGI members than if you sent it to me via a PM or email.
    jUSt

  4. #4
    AUGI Addict madcadder's Avatar
    Join Date
    2000-11
    Location
    Too far from the beach
    Posts
    1,054
    Login to Give a bone
    0

    Default Re: Help updating a wall LISP

    That'll do it
    (sorry, got sidetracked)

  5. #5
    Administrator Opie's Avatar
    Join Date
    2002-01
    Location
    jUSt Here (a lot)
    Posts
    9,096
    Login to Give a bone
    0

    Default Re: Help updating a wall LISP

    Code:
    (defun dcl (/ dcl_id)
    
    	(setq depths 
    		' ("1 1/2\"" "2\"" 	  "2 1/8\"" "2 1/4\"" "2 7/8\"" "3 1/8\""
    			"3 5/8\"" "3 3/4\"" "4 1/4\"" "4 3/4\"" "4 7/8\"" "5\""
    			"5 1/4\"" "5 3/8\"" "5 5/8\"" "5 3/4\"" "6 1/8\"" "6 3/4\""
    			"7 1/4\"" "7 5/8\"" "7 7/8\"" "8 1/4\"" "9 1/8\"" "10 5/8\""
    			)
    	      dcldone nil
    	      dclwidth t
    	)
    	(setq dcl_id(load_dialog "dw"))
    	(if(not(new_dialog "dw" dcl_id))(exit));;<- This is the reason you need to change it in your dcl file.
                                                                                            ;;<- If "dw" was left as "wall" I believe you would not have had
                                                                                            ;;<- the problem.
    	(settiles)
    	(action_tile "start" "(set_tile \"auto\" \"0\")")
    	(action_tile "end" "(set_tile \"auto\" \"0\")")
    	(action_tile "auto" "(foreach tile '(\"start\" \"end\")(set_tile tile \"0\"))")
    	(action_tile "offset" "(mode_tile \"offsetsize\" 0 )")
    	(action_tile "size" "(getdepth)")
    	(foreach tile '("left" "right" "center")(action_tile tile "(mode_tile \"offsetsize\" 1)"))
    	(action_tile "accept" "(gettiles)")
    	(action_tile "cancel" "(done_dialog 1)")
    	(if (= (start_dialog) 1)(exit))
      	(setq dcldone t)
    	(princ)
    )
    If you have a technical question, please find the appropriate forum and ask it there.
    You will get a quicker response from your fellow AUGI members than if you sent it to me via a PM or email.
    jUSt

  6. #6
    Active Member
    Join Date
    2005-02
    Posts
    67
    Login to Give a bone
    0

    Default Re: Help updating a wall LISP

    Thanks, that did it!

Similar Threads

  1. Updating a simple lisp routine to Autocad 2014
    By Danoposada320107 in forum AutoLISP
    Replies: 6
    Last Post: 2014-01-02, 10:53 PM
  2. Force Screen Updating while LISP running
    By mailmaverick361505 in forum AutoLISP
    Replies: 5
    Last Post: 2013-12-12, 06:28 PM
  3. Updating Lisp Variable
    By sam.121498 in forum AutoLISP
    Replies: 10
    Last Post: 2010-02-04, 05:58 PM
  4. Replies: 4
    Last Post: 2008-09-06, 08:10 PM
  5. Updating multiple computers using a script or LISP file
    By Chris.Partin in forum AutoCAD Customization
    Replies: 9
    Last Post: 2007-08-22, 04:34 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •