Command, vl-cmdf and command-s Autocad 2015

[l3ch]

Hi,

If ListPoints is a list of points and R is a distance,

with Autocad2015:

Case 1:

(mapcar '(lambda (pt) (command "_circle" pr R)) ListPoints)

returns: VVC: Internal Error

Case 2:

(mapcar '(lambda (pt) (vl-cmdf "_circle" pr R)) ListPoints)

returns: VVC: Internal Error

Case 3:

(mapcar '(lambda (pt) (command-s "_circle" pr R)) ListPoints)

Works Ok.

With Autocad2013 case 1 and case 2 work Ok. Why not now?

Command-s can avoid problems, but... if the order was:

(mapcar '(lambda (pt) (vl-cmdf "_pline" pt)) ListPoints)

command-s doesn't generate a single pline.

[BlackBox]

Kean's AutoCAD 2015: calling commands article may be able to provide some clarification... Put simply the ObjectARX functions were modified, which LISP is ultimately dependent on, and despite Autodesk generally handling which new 'correct' ARX call to make in the LispFunction code-behind, without changing the calling LISP, there are instances where Command-s is needed as you're already aware.

Cheers

[BlackBox]

Also, FWIW -

(vl-load-com)

(defun _MakeCircles (doc points radius / oSpace circles)
  (setq oSpace (vlax-get doc
                         (if (= 1 (getvar 'cvport))
                           'paperspace
                           'modelspace
                         )
               )
  )
  (foreach pt points
    (setq circles
           (cons (vla-addcircle oSpace (vlax-3d-point pt) radius)
                 circles
           )
    )
  )
  (reverse circles)
)

[Tharwat]

To work with entmake(x) is much better than the use of command calls specially in lisps .

(mapcar '(lambda (pt) (entmake (list '(0 . "CIRCLE") (cons 10 pt) (cons 40 R)))) ListPoints)

[l3ch]

Thank you, Tharwat, I will use your idea. I love plain Lisp.

But the main question is not how to draw circles but why suddenly command, vl-cmdf don't work. I have lot of codes, and I have never hadd problems with new autocad versions, i don't understand why now.

By the way, how can I solve the problema with the pline?

[BlackBox]

I love plain Lisp.

I opt for Visual LISP for ease of supporting UNDO functionality, which 'plain LISP' can only accomplish with Command calls, or to use Visual LISP for the UNDO portion, in which case you'd just use same in the first place. Also, with any 'current' workstation, 'plain LISP' doesn't have any real, demonstrable difference in performance for end user, as is not as 'plain' to read (DXF has always been cheeky that way).

But the main question is not how to draw circles but why suddenly command, vl-cmdf don't work. I have lot of codes, and I have never hadd problems with new autocad versions, i don't understand why now.

Please read Kean's article, linked above.

By the way, how can I solve the problema with the pline?

(vl-load-com)

(defun _AddPolyline (doc points)
  ;; Example: (_AddPolyline acDoc listPoints)
  (if (= (rem (length (setq points (apply 'append points))) 3) 0)
    (vla-addpolyline
      (vlax-get doc
                (if (= 1 (getvar 'cvport))
                  'paperspace
                  'modelspace
                )
      )
      (vlax-safearray-fill
        (vlax-make-safearray
          vlax-vbDouble
          (cons 0 (- (length points) 1))
        )
        points
      )
    )
  )
)

Cheers

[peter]

I noticed in your lambda expression(at the top) you have the argument (pt) but in the expression you have a variable pr

This is what I see above.

(mapcar '(lambda (pt) (vl-cmdf "_circle" pr R)) ListPoints)

Try

(mapcar '(lambda (pt) (vl-cmdf "_circle" PT R)) ListPoints)

Worked for me.

P=

[l3ch]

Thanks, Peter, it was a misprint. I thought everybody caught the idea and I didn't want to add another message with the correction. I apologize for any inconveniences.

[l3ch]

Thanks, BlackBox. Kean'sarticle was hard for me, but I get the idea. Is a matter of fact, Autocad2015.

Thanks again for your code with the pline solution.

I have rewritten my codes, where I used (mapcar '(lambda... with lots of commands and so, I have created small subroutines (like _AddPolyline).

[BlackBox]

Thanks, BlackBox. Kean'sarticle was hard for me, but I get the idea. Is a matter of fact, Autocad2015.

Thanks again for your code with the pline solution.

I have rewritten my codes, where I used (mapcar '(lambda... with lots of commands and so, I have created small subroutines (like _AddPolyline).

You're welcome, l3ch; reading Kean's (and others') articles gets easier the more you understand.

As Peter aptly demonstrated, there's nothing wrong with the Command version either. To my mind it's more about using the right method for any given task, so as a small example, you could not use the command option in a ObjectDBX batch process, whereas you could use my offering, but you're unlikely to perform a batch process often.

Hope this makes (more?) sense.

Cheers