Topic: Convert BricsCAD's LISP to run on AutoCAD

[ctrlaltdel]

This LISP runs on BricsCAD but has an error when running on AutoCAD 2014.

Please help to covert the below LISP to run on AutoCAD 2014.

Thanks

Code: [Select]

(defun c:test ( / nentselLst nestLevel)
  (if
    (and
      (setq nentselLst (nentsel))
      (= 4 (length nentselLst))
      (<= 0 (setq nestLevel (- (length (cadddr nentselLst)) 2)))
    )
    (progn
      (setvar 'cmdecho 0)
      (command "_.-refedit" (list (last (cadddr nentselLst)) (cadr nentselLst)))
      (repeat nestLevel (command "_next"))
      (command "_ok" "_all" "_yes")
      (setvar 'cmdecho 1)
    )
  )
  (princ)
)
Error when running this LISP on AutoCAD 2014

Command: test
Select object:
*Invalid selection*
Expects a single object.
Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).
Converting (command) calls to (command-s) is recommended.
Select reference: *Cancel*
Command: *Cancel*

[ChrisCarlson]

What happens if you restart AutoCAD and run this for the first time?

[ctrlaltdel]

What happens if you restart AutoCAD and run this for the first time?

Tested at work & home. Same problem.

[ChrisCarlson]

I can't test it as I do not deal with references but some trouble shooting

1) Try command-s instead of command

[ctrlaltdel]

I did that eariler, on someone's advise.

Change the LISP as suggested. But no go. Not sure if its still due to BricsCAD incompatibility or the code is not right, though the writer said it worked in BricsCAD

Code: [Select]

(defun c:test ( / nentselLst nestLevel)
  (if
    (and
      (setq nentselLst (nentsel))
      (= 4 (length nentselLst))
      (<= 0 (setq nestLevel (- (length (cadddr nentselLst)) 2)))
    )
    (progn
      (setvar 'cmdecho 0)
      (command-s "_.-refedit" (list (last (cadddr nentselLst)) (cadr nentselLst)))
      (repeat nestLevel (command-s "_next"))
      (command-s "_ok" "_all" "_yes")
      (setvar 'cmdecho 1)
    )
  )
  (princ)
)


After I click the entity, it was suppose to bring me to a block in-place mode of a block level but nothing happend

Command: test
Select object:                    <<<<<I select entity but nothing happend, instead runs the usual refedit command
Select reference: *Cancel*    <<<<<AT this point if i select anything, it just runs the usual refedit command
Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).
Converting (command) calls to (command-s) is recommended.
Command:
Command: *Cancel*

[danallen]

Have you tried typing each command in the lisp to see if the sequence of prompts / inputs is correct? example: -refedt (enter something) (enter something) "next", etc?

Also add some temporary princ statements of variables inside the PROGN, example (princ "\nnestlevel")(princ nextlevel), and see if the values match what is needed for prompts? Or - in Acad, use IDE to walk through each line step by step and use watch window to check variables

[hmspe]

Could you post a block that this is supposed to work with? 

The "*Invalid selection*  Expects a single object." message makes this look like there is an issue with entity selection.

[ctrlaltdel]

Have you tried typing each command in the lisp to see if the sequence of prompts / inputs is correct? example: -refedt (enter something) (enter something) "next", etc?

Also add some temporary princ statements of variables inside the PROGN, example (princ "\nnestlevel")(princ nextlevel), and see if the values match what is needed for prompts? Or - in Acad, use IDE to walk through each line step by step and use watch window to check variables

At the start of the command, after clicking an entity, its should go straight to Block IN-Place/refedit mode of a block level. But the last edited LISP I did, did not do that but instead it immediately proceed to this command

Select reference:

which leads to a usual refedit command which is not I wanted.

[ctrlaltdel]

Could you post a block that this is supposed to work with? 

The "*Invalid selection*  Expects a single object." message makes this look like there is an issue with entity selection.

Hi hmspe. You can refer to the link below where i posted a block.

https://www.theswamp.org/index.php?topic=51887.0

[ur_naz]

AutoCAD can't select outside visible drawing area, Bricscad can. That's a difference... It can't be fixed. You must zoom out to select all you need in AutoCAD.

[ctrlaltdel]

Hi ur_naz. The issue has been resolve in my other thread.