旋转过的图块插入点如何求得?

masterlong · 发表于 2011-5-11 16:55:39

(trans (cdr (assoc 10 (entget block-ent))) block-ent 1)

changzhi · 发表于 2011-5-11 21:33:57

提示: 作者被禁止或删除内容自动屏蔽

masterlong · 发表于 2011-5-11 23:02:21

changzhi 发表于 2011-5-11 21:33
上边程序并不能完全转换正确，郁闷。

上个图看看

yoyoho · 发表于 2011-5-15 17:53:46

;;;土法炼钢的方法
(defun c:test_1-1()
(command "ucs" "w")
(command "ucs" "z" "-90")
(command "ucs" "y" "-90")
(setq qq (trans (cdr (assoc 10 (entget (car (entsel))))) 0 1))
(princ qq)
(command "ucs" "w")
(command "id")
)

yoyoho · 发表于 2011-5-15 17:58:19

非常感谢masterlong
依据masterlong提供方法测试 o.k.

(defun c:test_1-2()
(setq block-ent (car (entsel)))
(setq qq (trans (cdr (assoc 10 (entget block-ent))) block-ent 1))
(princ qq)
(command "ucs" "w")
(command "id")
)

yoyoho · 发表于 2011-5-15 18:07:56

有个困惑可否麻烦masterlong解答
(trans (cdr (assoc 10 (entget block-ent))) block-ent 1)的用法
一般常看到
(trans (cdr (assoc 10 (entget block-ent))) 0 1)
或
(trans (cdr (assoc 10 (entget block-ent))) 1 0)
第一次看到这种用法
block-ent 1的方式

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

changzhi changzhi 当前离线积分 608 明经币个注册时间 2011-3-18 在线时间小时威望金钱个贡献激情	发表于 2011-5-11 21:33:57 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

旋转过的图块插入点如何求得?

评分