Mały lisp a nie działa w ZWCad 2012 Classic

[Pawcyk]

Dzień dobry.

Czy ktoś mógłby mi pomóc z poniższym lispem. Działa w AutoCadzie, a w ZWCadzie 2012 Classic już nie. 

 

1.lsp

[Pawcyk]

Aby nie wystraszyć powiem ze to tylko kilka linijek tekstu:

(defun c:dp ()
(vl-load-com)
(if (and (progn (prompt "\n Select Polyline :")
           (setq e (ssget "_+.:s" '((0 . "*POLYLINE"))))
         )
         (setq p (getpoint "\n Specify point on the previous selected polyline :"))
    )
  (print (vlax-curve-getdistatpoint (ssname e 0) (vlax-curve-getclosestpointto (ssname e 0) p)))
)
(print)
);KONIEC

[kruszynski]

Wystarczy:

 (setq e (ssget "_+.:s" '((0 . "*POLYLINE"))))

zamienić na:

(setq e (ssget "_:s" '((0 . "*POLYLINE"))))

 

 

[Pawcyk]

Dziękuję bardzo.

 

[Pawcyk]

A czy mógłbym poprosić jeszcze o wyjaśnienie co oznaczają te +.:s

Zgaduje że chodzi o wersje ZWCADA z plusem i bez...

W opisach funkcji ssget nie mogę nic znaleźć o tych znaczkach.

Dziękuję 

[kruszynski]

+. oznacza wybór przez wskazanie punktu ( nie przez okno) analogicznie jakby ustawić zmienną systemową PICKAUTO na 0.

:S pozwala na wybór tylko jednego elementu.

Nie wiem czy jest to opisane gdzieś po polsku, ale dokumentację w języku angielskim może Pan znaleźć np tutaj:
http://www.lee-mac.com/ssget.html

[Pawcyk]

Dziękuję za pomoc.