关于修改块的210码挤出方向问题

qq229918602 · 发表于 2012-4-18 21:41

本帖最后由 qq229918602 于 2012-4-18 22:42 编辑

附件如图：
图中的块的群码210的Z值为-1，图元挤出方向与WCS的Z轴不平行，导致码10的坐标与ID测量的值不相符（X值一个为正一个为负），现在要将其改为正值。我的做法是：

命令: (setq e1(entget(car(entsel))))
选择对象: ((-1 . <图元名: -116d18>) (0 . "INSERT") (330 . <图元名: -104308>) (5 . "505")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "PAD") (100 .
"AcDbBlockReference") (2 . "SEG") (10 -5.643 -0.48775 0.0) (41 . 0.001) (42 .
0.001) (43 . -0.001) (50 . 6.28319) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0)
(210 0.0 0.0 -1.0))

命令: (setq e2(subst '(210 0.0 0.0 1.0) '(210 0.0 0.0 -1.0) e1))
((-1 . <图元名: -116d18>) (0 . "INSERT") (330 . <图元名: -104308>) (5 . "505") (100 .
"AcDbEntity") (67 . 0) (410 . "Model") (8 . "PAD") (100 . "AcDbBlockReference")
(2 . "SEG") (10 -5.643 -0.48775 0.0) (41 . 0.001) (42 . 0.001) (43 . -0.001)
(50 . 6.28319) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
补上一句，
命令: (entmod e2) ((-1 . <图元名: -116d18>) (0 . "INSERT") (330 . <图元名: -104308>) (5
. "505") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "PAD") (100 .
"AcDbBlockReference") (2 . "SEG") (10 -5.643 -0.48775 0.0) (41 . 0.001) (42 .
0.001) (43 . -0.001) (50 . 6.28319) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0)
(210 0.0 0.0 1.0))
命令后该块的坐标就变位置了（自动镜像到另一边），能否保持位置不变的情况下，修改210码？就好像此贴的http://bbs.mjtd.com/thread-93079-1-1.html 的xyp1964 版主的附件，老师他是什么做到的？
请问各位大大有好的Z轴归零么？最好能实现批量归零。
感谢万分。感谢Andyhon长老！

广易精通 · 发表于 2021-9-20 11:08

Gu_xl 发表于 2012-4-19 08:56
修正210组码，位置不变
**** 本内容被作者隐藏 ****

这个功能很好，就是文字角度和颠倒调整后位置还变

Andyhon · 发表于 2012-4-18 21:54

subst 之后得加 EntMod (有些还得补 EntUpd)
以上请参考旧帖中的讨论

您的例子 210 更新还必得更新 10 之 x 项为正值才可
(10 -5.643 -0.48775 0.0) ==> (10 5.643 -0.48775 0.0)

qq229918602 · 发表于 2012-4-18 22:14

Andyhon 发表于 2012-4-18 21:54
subst 之后得加 EntMod (有些还得补 EntUpd)
以上请参考旧帖中的讨论

首先感谢你的回答，后补一句(entmod e2)还是没有效果，请问旧帖有地址么？给我参考下，谢谢

Andyhon · 发表于 2012-4-18 22:27

http://www.google.com/search?as_ ... F%2Fbbs.mjtd.com%2F

qq229918602 · 发表于 2012-4-18 22:48

本帖最后由 qq229918602 于 2012-4-18 22:49 编辑

Andyhon 发表于 2012-4-18 22:27
http://www.google.com/search?as_q=subst&as_epq=entmod&as_oq=&as_eq=&as_nlo=&as_nhi=&lr=&cr=&as_qdr=a ...

谢谢长老。打扰了。(entmod e2)后能修改210码，可是命令后该块的坐标就变位置了（自动镜像到另一边），能否保持位置不变的情况下，修改210码？就好像此贴的http://bbs.mjtd.com/thread-93079-1-1.html 的xyp1964 版主的附件，老师他是什么做到的？

Andyhon · 发表于 2012-4-18 23:37

再回2#....

qq229918602 · 发表于 2012-4-18 23:41

Andyhon 发表于 2012-4-18 23:37
再回2#....

正在努力阶段，不知道怎样才可以更新10..

danxingpen · 发表于 2012-4-18 23:52

哈哈,灌水?理解一下我上个帖子的回复的第二种方法!

qq229918602 · 发表于 2012-4-19 00:07

danxingpen 发表于 2012-4-18 23:52
哈哈,灌水?理解一下我上个帖子的回复的第二种方法!

欢迎高手灌水。呵呵，谢谢你

Gu_xl · 发表于 2012-4-19 08:56

修正210组码，位置不变

(defun c:correct210 (/ ss za mat n)
(setq ss (ssget))
(if ss
(repeat (setq n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
(setq ZA (vlax-safearray->list
(vlax-variant-value (vla-get-Normal obj))))
(setq mat (vlax-tmatrix
(list
(list 1 0 (car ZA) 0)
(list 0 1 (cadr ZA) 0)
(list 0 0 (caddr ZA) 0)
(list 0 0 0 1)
)
)
)
(vla-TransformBy obj mat)
)
)
)

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

关于修改块的210码挤出方向问题

本帖子中包含更多资源

点评