点方向

giskumar · 发表于 2022-7-6 22:29:40

大家好，

我添加了一个点，使用


ThisDrawing.ModelSpace.AddPoint(pnt)

然后使用旋转点

copy


pnt.Rotate p, somevalue

现在，我如何读取点的当前旋转值？
**dxf代码50表示旋转值。

谢谢
库马尔。

BlackBox · 发表于 2022-7-6 22:38:45

“ThisDrawing”。。。听起来像VBA thang。。。那么这个线程可能会有帮助：

http://forums.autodesk.com/t5/AutoCAD-Land-Desktop/AEC-Point-Rotation-and-Text-Size-through-VBA/td-p/621912

Joro-- · 发表于 2022-7-6 22:48:14

VBA中的点对象似乎没有。旋转属性。这只是一个问题。要进行旋转，最好使用包含点的块或任何类型的块。

BIGAL · 发表于 2022-7-6 22:56:22

搜索DUMPENT。lsp用于查找有关对象的各种信息，VL和VBA的命名将确认是否支持旋转。

BlackBox · 发表于 2022-7-6 23:04:52

copy


(defun c:DUMP  ( / eName)
 (if (setq eName (car (entsel "\nSelect object: ")))
   (progn
     (vlax-dump-object (vlax-ename->vla-object eName) T)
     (textpage))
   (prompt "\n** Nothing selected ** "))
 (princ))

BIGAL · 发表于 2022-7-6 23:08:45

谢谢Renderman在发帖时没有口齿不清。Autocad点的转储似乎没有旋转。注：CIV3D点完全不同

copy

Select object: ; IAcadPoint: AutoCAD Point Interface
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 000000013fdc2308>
;   Coordinates = (613.794 53.8048 0.0)
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0000000026ac7068>
;   EntityTransparency = "ByLayer"
;   Handle (RO) = "116C2"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000003768f208>
;   Layer = "DEFAULT"
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 87
;   ObjectID32 (RO) = 87
;   ObjectName (RO) = "AcDbPoint"
;   OwnerID (RO) = 88
;   OwnerID32 (RO) = 88
;   PlotStyleName = "ByLayer"
;   Thickness = 0.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 00000
Select object:
00037684520>
;   Visible = -1