Pawcyk Posted October 31, 2016 Report Posted October 31, 2016 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 Quote
Pawcyk Posted October 31, 2016 Author Report Posted October 31, 2016 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 Quote
kruszynski Posted October 31, 2016 Report Posted October 31, 2016 Wystarczy: (setq e (ssget "_+.:s" '((0 . "*POLYLINE")))) zamienić na: (setq e (ssget "_:s" '((0 . "*POLYLINE")))) dmatusz3 1 Quote
Pawcyk Posted November 3, 2016 Author Report Posted November 3, 2016 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ę Quote
kruszynski Posted November 3, 2016 Report Posted November 3, 2016 +. 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 Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.