旋转图块而使属性实体始终保持0度角的实现代码

newer · 发表于 2014-12-17 21:54:30

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

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

×

Visual Lisp example that rotates a block insert while keeping the attributtes at zero degrees

Question
Is there a Visual Lisp example that shows how to use the ActiveX interface to
rotate a BlockReference while keeping the Attributes that belong to the BlockReference
at zero degrees?
Answer
This example changes the rotation property of a BlockReference to 90 degrees.
It also iterates through the Attributes attached to the BlockReference and sets
their Rotation property to zero.

游客，如果您要查看本帖隐藏内容请回复

ludaweb · 发表于 2014-12-17 21:57:47

我的英文也不错嘛:o还是能看懂的

/db_自贡黄明儒_ · 发表于 2014-12-17 22:03:34

ludaweb 发表于 2014-12-17 21:57
我的英文也不错嘛还是能看懂的

这样说来、我的也过得去？？？

liuyj · 发表于 2014-12-17 22:16:16

cad里那几个英文单词天天看，猜也猜个差不多

/db_自贡黄明儒_ · 发表于 2014-12-17 22:17:51

liuyj 发表于 2014-12-17 22:16
cad里那几个英文单词天天看，猜也猜个差不多

还是中文亲切

819534890 · 发表于 2014-12-17 23:12:23

谢谢分享。

q3_2006 · 发表于 2014-12-18 05:15:29

学习不同方法

牢固 · 发表于 2014-12-18 12:43:35

本帖最后由牢固于 2014-12-18 13:02 编辑

有更简洁的代码:

(if (and (setq e (car (entsel "\n选择图块:")))
(= "INSERT" (cdr (assoc 0 (entget e))))
(= 1 (cdr (assoc 66 (entget e))))
)
(vla-put-Rotation
(setq obj (vlax-ename->vla-object e))
1.57)
(mapcar '(lambda (x) (vla-put-Rotation x 0))
(vlax-invoke obj 'GetAttributes))
)

wzg356 · 发表于 2014-12-18 12:58:24

lsp屌de高难度动作,抄下

GTJ116600 · 发表于 2014-12-18 13:14:03

呵呵学可学习

HLCAD · 发表于 2014-12-18 13:58:11

回帖，学习！

q3_2006 · 发表于 2014-12-18 14:14:08

牢固发表于 2014-12-18 12:43
有更简洁的代码:

抄之....简洁王道...{:soso_e113:}

dbx5511 · 发表于 2014-12-19 21:55:45

这个非常有用哦，谢谢哦。

e2002 · 发表于 2014-12-31 21:41:26

感谢分享，学习中。

czb203 · 发表于 2016-8-14 00:34:49

cad里那几个英文单词天天看，猜也猜个差不多

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

[每日一码] 旋转图块而使属性实体始终保持0度角的实现代码

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

相关帖子

点评

点评