Michal

super, działa bez zarzutu dzieki

Dzieki Tomku (jesli moge sie tak zwrocic) Mam kolejne pytanie związane z problemem dotyczącym kodów DXF. zrobilem lispa z helpa o treści nastepującej: (entsel) (setq en1 (entlast)) (setq ed (entget en1)) (setq ed (subst(cons 8 "2") (assoc 8 ed)ed));subst (entmod ed) zmienilem w tym lispie cyfre 8 na 50, i tak by dotyczył zmiany kąta pochylenia o 0.15, ale wywala mi bledy: (entsel) (setq en1 (entlast)) (setq ed (entget en1)) (setq ed (subst(cons 50 "0.15") (assoc 50 ed)ed));subst (entmod ed) ciekawy jestem co robie źle. Czy moglby mnie Ktoś oświecić ? pozdrawiam

witam, mógłbyś się podzielić Forumowiczu jaką książkę polecałbyś lub o jakiej piszesz do Autolispa ?? pozdrawiam z gory dzieki

Witam, czy mógłbym prosić o wyjaśnienie grupy kodów DXF 40-48? w helpie jest informacja, że 40-48 => double precision floating point values (text height, scale factors, and so on) Ja rozumiem w ten sposób, że kodów jest 9, dwa są rozszyfrowane, a co z pozostałymi? I mam pytanie nr 2. Czy w informacji o entycji jakieś linii jest podany kąt, czy należy go obliczyć z poszczególnych punktów? Potrzebne mi to jest do dostosowania pochylenia tekstu do danej linii i wydaje mi się że mógłbym to zrobić pobierając wspólną daną entycji dotyczącą kąta nachylenia. Miłego dnia. Michał

Witam, chciałbym sobie stworzyć klawisz escape. Niestety nie wiem jaką komende mam przypisać sobie do klawisza. prosze o podpowiedz pozdrawiam Michal

probował ktoś może instalować LT Extender lub program Toolkit Max 2009 w ZWCad ?? Może okazałoby się, że można korzystać wtedy jak w AutoCADzie?

A ma Pan możliwości żeby się dowiedzieć w której wersji ZWCADa planują wprowadzić funkcje vla oraz reszte vlax'ów ? o reaktorach vl juz nie pytam, bo to daleka przyszlosc, ale vla i vlaxy to jest chyba w ich zasięgu. pozdrawiam

potrzebowałbym np. do obliczenia punktu środkowego pomiędzy dwoma znanymi punktami (cal "(x1+x2)/2") Pytanie nr 2 to czy można funkcje vlax-get-acad-object z AutoCADa inaczej napisać pod ZWCADem oraz inne funkcje zamiast vla- które istnieją pod AutoCADem. pozdrawiam

problem jest w tym, że chcialem sie posluzyc programem napisanym dla AutoCADa w ZWCadzie i wyskoczyl mi blad ze nie mozna uzyc geomcal.arx Zatem jakie funkcje mnie interesuja to jeszcze nie wiem, ale sie rozeznam, bo jestem na etapie nauki. Myślałem, że można jakoś prosto używać tej funkcji w ZWCad. Może jakiś przykład użycia mógłby Pan pokazać?

Czy jest coś takiego jak geomcal.drx ?

w autocadzie w tworzeniu lispów można załadować geomcal.arx w zwcad2009 niestety sie tego nie da aplikowac czy jest jakas mozliwosc ominiecia tego?

witam gorąco. chcialem zapytac o ścieżke w rejestrze, gdyż kończy mi się na katalogu: ZWCAD2008i Eng\Profiles później mam do wyboru Default lub Setup. a w Default jest do wyboru: Accelerators, Addins, Aliases, Config (Plot, Previous Plot Settings, Quickcalc), DockingPaneLayouts, File Dialog, Menu, Profiles (Default, Editor Configuration), Purge, Recent File List, Settings, Skin). Zatem nigdzie nie ma zwprofil\Config i nigdzie w żadnym z tych folderów nie moge sie doszukać Key. Prosze o podpowiedź. pozdrawiam Michal

czy poniższy program zaadoptowany z Developer Help ma prawo nie działać ? (defun c:TB ( / lineObj startPt endPt matList transMat) (vl-load-com) ; Load ActiveX support (setq acadObject (vlax-get-acad-object)) (setq acadDocument (vla-get-ActiveDocument acadObject)) (setq mSpace (vla-get-ModelSpace acadDocument)) ;; Create a line (setq startPt (getpoint "Pick the start point")) (setq endPt (vlax-3d-point (getpoint startPt "Pick the end point"))) (setq lineObj (vla-addline mSpace (vlax-3d-point startPt) endPt)) ;;; Initialize the transMat variable with a transformation matrix ;;; that will rotate an object by 90 degrees about the point(0,0,0). ;;; Begin by Creating a list of four lists, each containing four ;;; numbers, representing transformation matrix elements. (setq matList (list '(0 -1 0 0) '(1 0 0 0) '(0 0 1 0) '(0 0 0 1))) ;;; Use vlax-tmatrix to convert the list to a variant. (setq transmat (vlax-tmatrix matlist)) ;;; Transform the line using the defined transformation matrix (vla-transformby lineObj transMat) (vla-zoomall acadObject) (princ "The line is transformed ") (princ) ) właściwie zmieniłem tylko pierwszą linijkę porównując do tego co w Helpie, a miała następującą postać: (defun Example_TransformBy () ; / lineObj startPt endPt matList transMat) może coś źle robie? to pytanie jest postawione nie bez przyczyny, gdyż uruchomiony lisp w programie zwcad wersji 2008i zwraca informacje w Command Bar o następującej treści: Command: TB error: null function (VLAX-GET-ACAD-OBJECT) (SETQ ACADOBJECT (VLAX-GET-ACAD-OBJECT)) (C:TB) nawet taki prosty lisp ktory przytoczony w innym Temacie na tym forum również uzyskuje zerowy wynik. Lisp ma się następująco: (defun c:get (/ A) (vl-load-com) (setq A(ssget)) (vlax-curve-getParamAtDist A 1.0) ) ;end defun

Wpisałem w programie komende vbaload, ale niestety wyskoczyl komunikat treści następującej: "To run Visual Basic, you will have to install VBA6. See the readme for more details."

czy udałoby się Panu uruchomić Lispa wykorzystującego komende jak z tematu ?? Probuje róznymi metodami uruchomic lispa jak poniżej ale bez pozytywnego skutku. Oto moj lisp przykladowy: (defun c:get (/ A) (vl-load-com) (setq A(ssget)) (vlax-curve-getParamAtDist A 1.0) ) ;end defun może coś źle robie? może ta komenda należy do 20% ktore nie będą na razie działać? bo wnioskuje, że te 10-20% ktore nie dzialają sa wymienione w Developer Help jako komendy ktore sa obecnie opracowywane i w najblizszych uaktualnieniach bedą działać.