求助。动态块夹点的移动！【已解决】

sinawell · 发表于 2017-8-1 15:58:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 sinawell 于 2017-8-10 17:08 编辑

各位大神好，小弟做了一个动态块，块内是一条直线，直线的终点可随意拖动。
但我试图用程序指定终点坐标时，会丢失移动点。
请教各位大神，如何可以用lisp指定终点坐标？且不丢失移动点和其他块参照。谢谢！！！

newer · 发表于 2017-8-1 16:09:14

把你写的代码贴上来吧。

sinawell · 发表于 2017-8-1 17:32:43

(Vlax-Put-Property (Vlax-Ename->Vla-Object (car (nentsel))) 'EndPoint (Vlax-3d-Point '(12 12 0.0)) )

终点坐标可修改，但动态夹点没有变。是不是没有夹点这个对像。

xinxirong · 发表于 2017-8-1 20:44:36

vba好像直接设置对象的属性，试试用arx应该可以

marting · 发表于 2017-8-1 22:43:35

sinawell 发表于 2017-8-1 17:32

你这个代码，就相当于在块编辑器里面，修改了直线的端点。没其他操作，动态块的夹点怎么会跟着动？

动态块，方便的就是用夹点人机交互。你用程序反而失去了动态块的意义了。

fan_zh · 发表于 2017-8-2 09:27:18

sinawell 发表于 2017-8-1 17:32

mark 学习收藏了

sinawell · 发表于 2017-8-3 09:52:53

除了手动移动点，在工作中，也会需要通过导入坐标自动给点，这就有意义了。老大，请问有没有也可以同时移动夹点的办法。谢谢！

st788796 · 发表于 2017-8-3 10:06:44

动态属性要用动态属性对象的特性和方法，一般查询是否动态块

(setq obj (vlax-ename->vla-object (car (entsel "\n拾取图块: ")))
(setq tf (vla-get-IsDynamicBlock e))

如果是动态块，返回 :vlax-true
后面就是获取动态属性

(setq dynpros (safearray-value (variant-value (vla-GetDynamicBlockProperties obj))))

对应你这个图，查看属性
(mapcar 'vlax-dump-object dynpros)
; IAcadDynamicBlockReferenceProperty: AutoCAD 动态块特性接口
;特性值:
; AllowedValues (RO) = nil
; Description (RO) = ""
; PropertyName (RO) = "位置1 X"
; ReadOnly (RO) = 0
; Show (RO) = -1
; UnitsType (RO) = 2
; Value = 40.0
; IAcadDynamicBlockReferenceProperty: AutoCAD 动态块特性接口
;特性值:
; AllowedValues (RO) = nil
; Description (RO) = ""
; PropertyName (RO) = "位置1 Y"
; ReadOnly (RO) = 0
; Show (RO) = -1
; UnitsType (RO) = 2
; Value = 0.0
(T T)
可以看到，PropertyName 分别是位置1 X 和位置1 Y，对应的修改方法是设置 value, 即
修改 X

(vla-put-value (car dynpros) 50.0)

复制代码

修改 Y 方向

(vla-put-value (cadr dynpros) 10.0)

复制代码

sinawell · 发表于 2017-8-3 10:36:19

st788796大神突然出现，在小弟本以为无解的时候，细心指教。万分感谢！!!!

sinawell · 发表于 2017-8-3 10:42:22

望大神再指教一下，当前可以更改的是块内坐标，怎么才能改成图内的实际坐标，谢谢！

st788796 · 发表于 2017-8-3 11:13:16

本帖最后由 st788796 于 2017-8-3 11:15 编辑

sinawell 发表于 2017-8-3 10:42

这个动态属性修改的是动态点相对插入点的 X/Y 坐标，先获取块的插入点(inspt),动态点设置为 pt, 那么修改属性就是

(setq v (mapcar '- pt inspt))
(vla-put-value (car dynpros) (car v))
(vla-put-value (cadr dynpros) (cadr v))

获取动态点的实际坐标就是

(mapcar '+ inspt (list (vla-get-value (car dynpros)) (vla-get-value (cadr dynpros)) 0.))

复制代码

sinawell · 发表于 2017-8-3 11:20:11

思路代码俱全！再次感谢大神出手指教！！！！！

newer · 发表于 2017-8-3 11:29:38

sinawell 发表于 2017-8-3 11:20

那你写好你的代码，贴到论坛和大家分享吧。

daodai123 · 发表于 2017-10-13 10:22:56

学习了，多谢

账号		自动登录	找回密码
密码			立即注册

[已解决] 求助。动态块夹点的移动！【已解决】

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。