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

点方向

大家好，
 
我添加了一个点，使用
 


ThisDrawing.ModelSpace.AddPoint(pnt)

 
然后使用旋转点
 


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


(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点完全不同
 
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

BlackBox 发表于 2022-7-6 23:22:05

不客气；我有一系列用于各种对象的Dump*和Entget*函数。如果你觉得它们有用，我很乐意与你分享。
 
**编辑-我确实需要添加Civil 3D特定支持；vlax dump对象甚至不支持许多Aecc*对象。我需要编写一些代码。NET LispFunction方法来扩展LISP。

BIGAL 发表于 2022-7-6 23:23:42

Renderman您的邮箱已满，无法向您发送有关AECC CIV3d的帮助

BlackBox 发表于 2022-7-6 23:35:18

 
谢谢比格尔；收件箱清理完毕（足够了），开火吧！英雄联盟
 
干杯
页: [1]
查看完整版本: 点方向