| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Перемещение (Move label) "лейбла" cogo point civil 3d c помощью lisp

Перемещение (Move label) "лейбла" cogo point civil 3d c помощью lisp

Ответ
Поиск в этой теме
Непрочитано 18.11.2021, 20:55 #1
Перемещение (Move label) "лейбла" cogo point civil 3d c помощью lisp
RAD24
 
Регистрация: 24.01.2011
Сообщений: 57

Подскажите как перемещать отметки(лейбл) cogo points в civil 3d c помощью lisp.
в свойствах нашел только поворот "лейбла" а где найти его перемещение, без изменения положения самой точки.
Пример выбора точки и ее свойств:
Command: (setq vlaobj(vlax-ename->vla-object (car(entsel))))
Select object: #<VLA-OBJECT IAeccPoint 000000005f980910>
Command: (VLAX-DUMP-OBJECT vlaobj T)
; IAeccPoint: IAeccPoint Interface
; Property values:
; Application (RO) = #<VLA-OBJECT IAeccApplication 0000000066cb6c90>
; Convergence (RO) = Civil 3D API: This operation is not supported because the geodetic coordinate system has not been set.
; Description = "108-3"
; DescriptionFormat = ""
; DisplayName (RO) = Civil 3D API: Параметр задан неверно.
; Document (RO) = #<VLA-OBJECT IAeccDocument 00000000607cae50>
; Easting = 2.23008e+06
; Elevation = 173.254
; EntityTransparency = "ByLayer"
; FullDescription (RO) = "108-3"
; GridEasting = Civil 3D API: This operation is not supported because the geodetic coordinate system has not been set.
; GridNorthing = Civil 3D API: This operation is not supported because the geodetic coordinate system has not been set.
; Handle (RO) = "AF60"
; HasExtensionDictionary (RO) = 0
; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000005fadc848>
; LabelRotation = 0.0
; LabelStyle = #<VLA-OBJECT IAeccLabelStyle 000000005fa095e0>
; Latitude = Civil 3D API: This operation is not supported because the geodetic coordinate system has not been set.
; Layer = "Отметки"
; Linetype = "ByLayer"
; LinetypeScale = 1.0
; Lineweight = -1
; Location = (2.23008e+06 306222.0 173.254)
; Longitude = Civil 3D API: This operation is not supported because the geodetic coordinate system has not been set.
; Material = "ByLayer"
; Name = ""
; Northing = 306222.0
; Number = 268
; ObjectID (RO) = 44
; ObjectName (RO) = "AeccDbCogoPoint"
; OwnerID (RO) = 43
; PlotStyleName = "ByLayer"
; ProjectVersion (RO) = Civil 3D API: Параметр задан неверно.
; RawDescription = "108-3"
; Rotation = 0.0
; Scale (RO) = Civil 3D API: This operation is not supported because the geodetic coordinate system has not been set.
; ShowToolTip = -1
; Style = #<VLA-OBJECT IAeccPointStyle 0000000063c60c00>
; StyleName (RO) = "<none>"
; SurveyPoint (RO) = 0
; TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000005fad2820>
; Visible = -1
; XYScale = 1.0
; ZScale = 1.0
; Methods supported:
; ArrayPolar (3)
; ArrayRectangular (6)
; Copy ()
; Delete ()
; GetBoundingBox (2)
; GetExtensionDictionary ()
; GetUserDefinedPropertyValue (1)
; GetXData (3)
; Highlight (1)
; IntersectWith (2)
; IsReferenceObject ()
; IsReferenceStale ()
; IsReferenceSubObject ()
; IsReferenceValid ()
; Mirror (2)
; Mirror3D (3)
; Move (2)
; Rotate (2)
; Rotate3D (3)
; ScaleEntity (2)
; SetUserDefinedPropertyValue (2)
; SetXData (2)
; TransformBy (1)
; Update ()
T
Просмотров: 638
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Перемещение (Move label) "лейбла" cogo point civil 3d c помощью lisp

Система Техэксперт дает уверенность в правильности и эффективности принимаемых инженерных решений!
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не работают Civil3DPSVUtils на Civil 3D 2021 Russia polzovatel1 Вертикальные решения на базе AutoCAD 1 16.10.2020 12:22
Civil 3D. Как отменить поворот условных обозначений колодцев сетей при создании сети? Gedezuk5 Вертикальные решения на базе AutoCAD 2 24.04.2019 15:42
Lisp на превращение множества точек в цилиндры (Civil 3D 2015) Schumacher92 Вертикальные решения на базе AutoCAD 2 20.01.2019 15:56
Lisp. Почему не удается получить доступ к свойствам точек Civil 3D Kirill_Ja LISP 2 27.09.2016 10:46
Несовместимость версий Civil 3d 2013 c Civil 3d 2012 Pavel_GP Вертикальные решения на базе AutoCAD 3 04.04.2013 11:22