如何让这三条command命令形成的图形和文字成一个整体

szx025szx · 发表于 2014-7-10 16:29:02

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

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

×

(command "_.pline" "non" pt1 "W" "0" "" "non" pt2 "non" pt4 "")(command "_.pline" "non" p2 "W" "0" "" "non" pt_mid "non" p1 "non" p3 "")(command "text" "j" "c" "non" p4 300 0 str)
如何让这三条command命令形成的图形和文字成一个整体，我想让他们能够整体按一定的方向镜像

csharp · 发表于 2014-7-10 17:18:24

(setq ss (ssadd))
(command "_.pline" "non" pt1 "W" "0" "" "non" pt2 "non" pt4 "")
(ssadd (entlast) ss)
(command "_.pline" "non" p2 "W" "0" "" "non" pt_mid "non" p1 "non" p3 "")
(ssadd (entlast) ss)
(command "text" "j" "c" "non" p4 300 0 str)
(ssadd (entlast) ss)
(command ".mirror" ss "" ....)

zxq0220 · 发表于 2014-7-10 21:13:47

本帖最后由 zxq0220 于 2014-7-10 21:15 编辑

(setq s1 (entlast) ss (ssadd))
(command "_.pline" "non" pt1 "W" "0" "" "non" pt2 "non" pt4 "")
(command "_.pline" "non" p2 "W" "0" "" "non" pt_mid "non" p1 "non" p3 "")
(command "text" "j" "c" "non" p4 300 0 str)
(if s1
(while (setq s1 (entnext s1)) (ssadd s1 ss))
(setq ss (ssget "X"))
)
(command "_.MIRROR" ss "")
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))</P>

szx025szx · 发表于 2014-7-11 10:26:47

谢谢zxq0220, 你的程序完全满足要求，我还想请教一下，如果这三条command命令之间插入了其它语句如：
         (command "_.pline" "non" pt1 "W" "0"  "" "non" pt2 "non" pt4 "")
      (command "_.pline" "non" p2 "W" "0"  "" "non" pt_mid "non" p1 "non" p3 "")
      (setq pt1_mid (mid_pt p2 p3)
   p4    (polar pt1_mid (* 0.5 pi) 100)
      )
      ;;文字起点
         (if (not (setq str (getreal "\n请输入标高±0.000:")))
         (setq str 0.000)
         )
         (setq str (if (/= str 0)
         (rtos str 2 3)
         "%%P0.000"
                  )
         )
      (command "text" "j" "c" "non" p4 300 0 str)
怎么做到让这三条command命令形成的图形和文字成一个整体，再镜像

st788796 · 发表于 2014-7-11 23:51:08

szx025szx 发表于 2014-7-11 10:26
谢谢zxq0220, 你的程序完全满足要求，我还想请教一下，如果这三条command命令之间插入了其它语句如：
...

中间再加多少语句都没有关系(没有生成实体)

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

[求助] 如何让这三条command命令形成的图形和文字成一个整体

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