社区 › AutoLISP/Visual LISP 编程技术 › 关于修改块的210码挤出方向问题

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

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

本帖最后由 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:52

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

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

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

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:12

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



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

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

http://www.google.com/search?as_q=subst&as_epq=entmod&as_oq=&as_eq=&as_nlo=&as_nhi=&lr=&cr=&as_qdr=all&as_sitesearch=http%3A%2F%2Fbbs.mjtd.com%2F

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

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

Andyhon 发表于 2012-4-18 22:27 static/image/common/back.gif
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:51

再回2#....

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

Andyhon 发表于 2012-4-18 23:37 static/image/common/back.gif
再回2#....

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

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

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

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

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

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

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

修正210组码，位置不变
**** Hidden Message *****

查看完整版本: 关于修改块的210码挤出方向问题