[Autolisp, Civil 3D] Convert s
Hello all.is my first post on this forum.
I have a question on how to convert station and offset on xy coordinates.
Differently than is shown on this page.
http://cadpanacea.com/node/187
Code of this page
; Średnia wybór podmiotu ( setq sel ( entsel"\ Wyrównanie nZaznacz:" )); uzyskać nazwę podmiotu ( setq ent ( samochód sel)); uzyskać listę podmiotu ( setq lst ( entget ENT)), sprawdź, czy wybór był przewidywany typ (if ( eq"AECC_ALIGNMENT" ( cdr ( assoc 0 lst))), jeśli tak, konwertować jednostki do VLA-OBJECT( setq obj ( vlax-ename-> VLA-object ENT)))( jeśli obj ( Progn ; uzyskać nazwę wyrównania ( setq nam ( vlax-get-property obj 'Name)) ; dostać stację początkową ( setq STA1 ( vlax-get-property obj 'StartingStation)) ; dostać na stację końcową ( setq StA2 ( vlax-get-property obj 'EndingStation)) , ustawić kilka zmiennych ( setq sta 100,0 off 10,0) , z zastosowaniem powyższych zmiennych, znaleźć ten punkt na dostosowaniu ( vlax-powołać-metoda obj 'PointLocation sta off' x ' y) , utworzyć punkt AutoCAD w tym miejscu ( entmake ( list ( cons 0 "POINT" ) ( cons 10 ( list xy)))) ; poprosić użytkownika, aby wybrać punkt ( setq pt1 ( getpoint "\ punkt nZaznacz:" )) ; znaleźć stację i przesunięcie tego punktu ( vlax-powołać-metoda obj 'StationOffset ( samochód pt1) ( cadr pt1) 'off STA ") , informuje użytkownika ( alert ( strcat "stacja" ( RTOS sta 2 2) "\ nW Przesunięcie jest" ( RTOS off 2 2))) ))
页:
[1]