_

Współrzędne punktów charakterystycznych.

Forum poświęcone flagowemu produktowi oraz aplikacjom pochodnym Autodesku. To jedyne forum mające w tytule nazwę programu, a to ze względu na jego olbrzymią popularność w Polsce. Można tutaj umieszczać również posty z ogólnie pojętej tematyki "Kreślarskie 2D".

Re: Współrzędne punktów charakterystycznych.

Postprzez z » lip 23, 2014 10:58

tomasinho napisał(a):witam
trochę odświeżę temat. PolyVert.lsp bardzo mi pomógł ale potrzebowałbym zapis numeracji punktów w formacie "000.000" (nie "Punkt1, Punkt 2 itd). sam trochę kombinowałem ale jako całkowity laik w temacie skończyło się na tym że straciłem tylko czas. będę wielce wdzięczny za pomoc i ewentualne wskazówki.
pozdrawiam
t.
Nie rozumiem. Teraz jest "PunktNR" x y, a chcesz x.y ?
z
z
 
Posty: 1949
Dołączył(a): cze 16, 2009 22:49

Re: Współrzędne punktów charakterystycznych.

Postprzez tomasinho » lip 23, 2014 15:03

może nie do końca jasno się wyraziłem (zmęczenie dało znać o sobie). chodzi mi o nazwę punktu w formacie 000.000 np. 077.023, 077.024... gdzie np. 077 to nazwa warstwy (lub kolejnego ciągu) a 023 kolejnego punktu, czyli:
077.023 x y
077.024 x y
pozdrawiam
t.
tomasinho
 
Posty: 3
Dołączył(a): lip 23, 2014 02:11

Re: Współrzędne punktów charakterystycznych.

Postprzez z » lip 23, 2014 17:25

tomasinho napisał(a):może nie do końca jasno się wyraziłem (zmęczenie dało znać o sobie). chodzi mi o nazwę punktu w formacie 000.000 np. 077.023, 077.024... gdzie np. 077 to nazwa warstwy (lub kolejnego ciągu) a 023 kolejnego punktu, czyli:
077.023 x y
077.024 x y
pozdrawiam
t.
W kodzie PolyVert.lsp zamień tekst "Punkt" na "077.0" (w dwóch miejscach). Jeśli wartość po kropce ma być zawsze trzycyfrowa, a nr początkowego punktu jeden, dwa lub trzycyfrowy to zmiana będzie bardziej skomplikowana.
z
z
 
Posty: 1949
Dołączył(a): cze 16, 2009 22:49

Re: Współrzędne punktów charakterystycznych.

Postprzez tomasinho » lip 23, 2014 23:55

przed i po kropce będą wartości 3 cyfrowe.
ale niestety zmiana "Punkt" na "077." nie pomogła. komunikat: błąd: no function definition: CD:ENT_MAKEBLOCKHEAD

edit: jak się nie ma w głowie to się później człowiek wstydzi. :oops: nie wczytałem CADPL-Pack-v1.lsp.
jedyny problem jest taki że w nazwie punktu po kropce nie ma 3 miejsc. może być:
077.001, 077.002...077.0010 itd lub
077.01, 077.02.....077.010 itd

jeszcze jak by to udało się ogarnąć to by było super
tomasinho
 
Posty: 3
Dołączył(a): lip 23, 2014 02:11

Re: Współrzędne punktów charakterystycznych.

Postprzez Kizior » lip 24, 2014 06:41

tomasinho napisał(a):przed i po kropce będą wartości 3 cyfrowe.
ale niestety zmiana "Punkt" na "077." nie pomogła. komunikat: błąd: no function definition: CD:ENT_MAKEBLOCKHEAD

edit: jak się nie ma w głowie to się później człowiek wstydzi. :oops: nie wczytałem CADPL-Pack-v1.lsp.
jedyny problem jest taki że w nazwie punktu po kropce nie ma 3 miejsc. może być:
077.001, 077.002...077.0010 itd lub
077.01, 077.02.....077.010 itd

jeszcze jak by to udało się ogarnąć to by było super

Jeśli potrzebujesz mieć "00" przed numerem
tomasinho napisał(a): 077.001, 077.002...077.0010 itd lub

To po prostu to "dopisz" w kodzie
Kod: Zaznacz cały
 (foreach % (jk:DXF_massoc 10 (entget en))
        (kr:ENT_MakeText
          (list (+ (car %) 0.35) (+ (cadr %) 0.25))
          1 (strcat "077.00" (itoa n)) "0"
        )
       (kr:BLK_InsertBlockEntmake "CD_DOT" % "0" 1 1 0 nil)
        (setq lst
          (cons (strcat "077.00" (itoa n) "\t" (rtos (car %)) "\t" (rtos (cadr %))) lst)
        )
        (setq n (1+ n))
      )

Jeśli potrzebujesz dodać tyle zer aby ilość cyfr była równa 3
np: 001 002 ... 010 011
To skorzystaj z tej funkcji:
Kod: Zaznacz cały
(defun Integer->StrNum (n /)
  (strcat (substr "000" 1 (- 3 (strlen (itoa n)))) (itoa n))
  )

W kodzie zamień (itoa n) w dwóch miejscach na (Integer->StrNum n)
To nie rozwiązuje wszystkich kwestii
np. większej ilości wierzchołków niż 999
Numerowanie od liczb większych niż 1000
Kizior
 
Posty: 178
Dołączył(a): paź 12, 2011 22:01
Lokalizacja: Lublin

Re: Współrzędne punktów charakterystycznych.

Postprzez z » lip 24, 2014 11:01

Kizior napisał(a):Jeśli potrzebujesz dodać tyle zer aby ilość cyfr była równa 3
np: 001 002 ... 010 011
To skorzystaj z tej funkcji:
Kod: Zaznacz cały
(defun Integer->StrNum (n /)
  (strcat (substr "000" 1 (- 3 (strlen (itoa n)))) (itoa n))
  )

W kodzie zamień (itoa n) w dwóch miejscach na (Integer->StrNum n)
To nie rozwiązuje wszystkich kwestii
np. większej ilości wierzchołków niż 999
Numerowanie od liczb większych niż 1000

Właśnie o takim rozwiązaniu pisałem. Ja bym jednak inaczej to rozwiązał. Zamiast tekstów i bloków punkt, wstawił bym bloki z 2 atrybutami:
pierwszy - z jakąkolwiek numeracją (byle były po kolei),
drugi - współrzędne bloku
Następnie wypluł _attout do pliku, tam excelem zmienił na dowolne ciągi i _attin.
z
z
 
Posty: 1949
Dołączył(a): cze 16, 2009 22:49

Re: Współrzędne punktów charakterystycznych.

Postprzez Semy » sty 23, 2017 00:19

Z góry chciałbym wszystkim podziekować za pomoce z tą nieszczęsną numeracją punktów charakterystycznych.

Jednak moim problemem jest to że ta numeracja na rysunku czyli "punkt 1" znajduje się na tylu elementach które być muszą na rysunku ale przeszkadzają. W związku z tym zwykle ustawiam maskę tła dla wybranego tekstu. I tutaj pojawia się problem bo dla tych opisów się nie da tego zrobić. I teraz pytanie - czy znajde jakieś ustawienia globalne dla tego stylu opisu gdzie będę mógł ustawić maskę bądź coś na jej kształt, czy wymaga to już zmiany polecenia w tworzenia pola tekstowego w wcześniej umieszczonych skryptach(?) ?
Semy
 
Posty: 1
Dołączył(a): sty 23, 2017 00:14

Re: Współrzędne punktów charakterystycznych.

Postprzez Tony » lip 24, 2019 07:43

Cześć Panowie,

trochę odświeżam posta - chciałbym skorzystać z PolyVert przez was przygotowanego (świetna robota swoją drogą) - w obecnej wersji mogę zaznaczyć tylko jedną polilinię i ją opisać, a chciałbym zazanczyć wszystkie polilinie na raz i je opisać (w tym przykłądowym projekcie jest ich ok 300, przyspieszyłoby to pracę).

Jak to zrobić?
Tony
 
Posty: 2
Dołączył(a): wrz 27, 2018 19:47

Poprzednia strona

Powrót do AutoCAD

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników