（完成）[编程申请]：请帮忙编辑可写块的lsp-----实体对齐

flowerson · 发表于 2004-5-31 20:28:53

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

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

×

比如做施工图的目录，要对齐某一列有什么好的方法一次把它对齐？？如果是单纯的文字就比较容易对齐。可写块各位大哥有什么好方法？？

eachy · 发表于 2004-6-1 07:32:01

最初由 flowerson 发布
[B]比如做施工图的目录，要对齐某一列有什么好的方法一次把它对齐？？如果是单纯的文字就比较容易对齐。可写块各位大哥有什么好方法？？ [/B]

你搜索下，前面有个实体对齐的程序，可以是任何实体。

eachy · 发表于 2004-6-4 21:07:51

最初由 flowerson 发布
[B]高手都在那里忙着？ [/B]

(defun c:XDTB_EntAlign (/ tf mat mats e box p lef rig cen mid ss v)
(if (setq p (getpoint "\n对齐点: "))
(progn
(initget "0 1 2 3 4")
(if (not (setq tf
(getkword
"\n请选择基点类型[0-左对齐 / 1-底对齐 / 2-右对齐 / 3-垂直居中 / 4-水平居中]<0>:"
)
)
)
(setq tf "0")
)
(initget 6)
(setq mat (xdrx_matrix_identity 3))
(while (and
(progn
(prompt "\r请选取要对齐的实体<结束>:")
t
)
(setq ss (ssget))
)
(xdrx_begin)
(xdrx_ucson)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq box (xdrx_entity_box e)
lef (car box)
mid (xdrx_midp (car box) (cadr box))
rig (cadr box)
cen (xdrx_midp (car box) (caddr box))
v (cond
((= tf "0")
(list (- (car p) (car lef)) 0. 0.)
)
((= tf "1")
(list 0. (- (cadr p) (cadr lef)) 0.)
)
((= tf "2")
(list (- (car p) (car rig)) 0. 0.)
)
((= tf "3")
(list (- (car p) (car mid)) 0. 0.)
)
(t
(list 0. (- (cadr p) (cadr cen)) 0.)
)
)
mats (xdrx_matrix_SetTranslation mat v)
)
(xdrx_entity_transform e mats)
)
(xdrx_ucsoff)
(xdrx_end)
)
)
)
(princ)
)

(defun c:XDTB_EntAlign (/ tf mat mats e box p lef rig cen mid ss v) 
  (if (setq p (getpoint "\n对齐点: ")) 
    (progn 
      (initget "0 1 2 3 4") 
      (if (not (setq tf 
                      (getkword 
                        "\n请选择基点类型[0-左对齐 / 1-底对齐 / 2-右对齐 / 3-垂直居中 / 4-水平居中]<0>:" 
                      ) 
               ) 
          ) 
        (setq tf "0") 
      ) 
      (initget 6) 
      (setq mat (xdrx_matrix_identity 3)) 
      (while (and 
               (progn 
                 (prompt "\r请选取要对齐的实体<结束>:") 
                 t 
               ) 
               (setq ss (ssget)) 
             ) 
        (xdrx_begin) 
        (xdrx_ucson) 
        (xdrx_setsstodb ss 0) 
        (while (setq e (xdrx_getentdata 0)) 
          (setq        box  (xdrx_entity_box e) 
                lef  (car box) 
                mid  (xdrx_midp (car box) (cadr box)) 
                rig  (cadr box) 
                cen  (xdrx_midp (car box) (caddr box)) 
                v    (cond 
                       ((= tf "0") 
                        (list (- (car p) (car lef)) 0. 0.) 
                       ) 
                       ((= tf "1") 
                        (list 0. (- (cadr p) (cadr lef)) 0.) 
                       ) 
                       ((= tf "2") 
                        (list (- (car p) (car rig)) 0. 0.) 
                       ) 
                       ((= tf "3") 
                        (list (- (car p) (car mid)) 0. 0.) 
                       ) 
                       (t 
                        (list 0. (- (cadr p) (cadr cen)) 0.) 
                       ) 
                     ) 
                mats (xdrx_matrix_SetTranslation mat v) 
          ) 
          (xdrx_entity_transform e mats) 
        ) 
        (xdrx_ucsoff) 
        (xdrx_end) 
      ) 
    ) 
  ) 
  (princ) 
)

xgwl · 发表于 2004-6-5 07:23:52

只可惜晓东工具V0.30不能和天正6一起用，这个好工具也就不能用了！：（

eachy · 发表于 2004-6-5 08:07:53

最初由 xgwl 发布
[B]只可惜晓东工具V0.30不能和天正6一起用，这个好工具也就不能用了！：（ [/B]

送你个 lisp 版，气死我了，XD竟然不让我收币！！！！

cdjtsf · 发表于 2004-6-5 09:49:21

最初由 eachy 发布
[B]
送你个 lisp 版，气死我了，XD竟然不让我收币！！！！ [/B]

高手有那么多币和积分，还收啊，呵呵，不过不让你收，大伙儿可是偷着乐

xgwl · 发表于 2004-6-5 13:11:46

最初由 eachy 发布
[B]
送你个 lisp 版，气死我了，XD竟然不让我收币！！！！ [/B]

呵呵~~~嘿嘿~~~省了一个币! 谢谢啦! 你已经是大款了,还那么爱币?:)

晓东工具箱3.0和天正6.0共存,我找到办法了!详见
http://www.xdcad.net/forum/showthread.php?s=&threadid=193915

eachy · 发表于 2004-6-5 15:02:18

最初由 xgwl 发布
[B]

呵呵~~~嘿嘿~~~省了一个币! 谢谢啦! 你已经是大款了,还那么爱币?:)

晓东工具箱3.0和天正6.0共存... [/B]

收币的目的正如论坛设置爱心币的目的，对其他人来说在这里不是什么都可以白捡的：）

j1187 · 发表于 2004-6-7 00:18:44

呵呵，没有付出就没有收获，XD怎么不让你收呢，晕

flowerson · 发表于 2004-6-7 15:02:03

谢谢各位斑竹、高手！！我更想要这样的可写块对齐

eachy · 发表于 2004-6-7 19:38:23

最初由 flowerson 发布
[B]谢谢各位斑竹、高手！！我更想要这样的可写块对齐 [/B]

2005下表格用 Table ，对齐编程就容易了。

apolowww · 发表于 2004-6-17 09:48:39

我也下载不了呢？

木春林 · 发表于 2004-6-17 15:14:50

我加载完程序，不知道敲什么命令啊？请7楼楼主告诉我一下

gongpanf · 发表于 2004-6-17 15:27:03

最初由木春林发布
[B]我加载完程序，不知道敲什么命令啊？请7楼楼主告诉我一下 [/B]

楼上朋友，命令应该是：XDTB_EntAlign

谢谢斑竹！！

seasky06 · 发表于 2004-7-13 09:01:22

eachy 斑竹，你写的代码用那里的啊，是放到lisp里生成个应用程序么？我不了解cad的编程啊，指点下好么？

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

（完成）[编程申请]：请帮忙编辑可写块的lsp-----实体对齐

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

相关帖子

Re: [编程申请]：请帮忙编辑可写块的lsp