[编程交流] [Autolisp, Civil 3D] Convert s

; Ś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))) ))