[编程大擂台]：如何将选择集X,Y方向不同比例伸缩，要求...

XDSoft · 发表于 2003-4-30 21:18:41

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

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

×

如何将选择集（非INSERT）X,Y方向不同比例伸缩，要求伸缩后的，其中的POLYLINE实体（仅包括直线段即可）能保持原来的线宽

希望大家讨论，贴出实现代码

cy956 · 发表于 2003-5-1 09:12:05

含块内的吗？——应该包含的。
我倒觉得应该用solid四边形来表达宽线的变异，而不是保持原宽。

eachy · 发表于 2003-5-1 09:19:06

不同比例后园－》椭圆，椭圆可能变园。

aeo · 发表于 2003-5-1 19:32:21

没弧就简单.

(defun sca-pl(e p x y / en li pt2 pt-xy-scale)
(defun pt-xy-scale(p pbase x y)
(list(+(car pbase)(* x(-(car p)(car pbase))))
(+(cadr pbase)(* y(-(cadr p)(cadr pbase)))) )
)
(setq en(entget e)li '() )
(foreach k en
(cond((= 10(car k))
(setq pt2(cdr k))
(setq li(cons(cons 10(pt-xy-scale pt2 p x y))li))
)
(t(setq li(cons k li)))
)
)
(entmod (reverse li))
)

下面试验:

(defun c:test( / pl pt x y)
;(setq x 1.5 y 3)
(if(and(setq pl(car(entsel)))
(setq pt(getpoint"\nBase point:"))
(setq x(getreal"X="))
(setq y(getreal"\nY=")) )
(sca-pl pl pt x y)
))

弧线是比较困难的.应该变为椭圆.
谁写一下变arc的.

我试了一下,有弧的pl线不同比例是不行的.
我把一有弧pl线做成块,不同比例插入,再炸开就不是pl线了.

XDSoft · 发表于 2003-5-1 19:44:57

抛砖引玉，我先写一个，在xdrx_api下面用。

适合任何实体，对于POLYLINE能保证原来的宽度信息。

<normalfont>
($xdrx_load '("xdlsp.lsp"))
;|
将选择集X,Y不同比例缩放
|;
(defun c:XDTB_EntXScale (/ $XScale_Pro box pj ss)
(defun $XScale_Pro (blkname / mat eblk plent blkent e1 n ed i p1 p2)
(command ".insert" blkname pj x y "")
(setq eblk (entlast))
(setq mat (xdrx_matrix_block2wcs eblk))
(setq plent nil)
(setq blkent (xdrx_object_get "block" blkname))
(while (setq e (xdrx_object_next))
(setq e1 (cadr e))
(if (= "AcDbPolyline" (car e))
(setq plent (cons e1 plent))
)
)
(foreach n plent
(setq ed (entget n)
ed (member '(100 . "AcDbEntity") ed)
ed (cons '(0 . "LWPOLYLINE") ed)
)
(xdrx_object_delete n)
(entmake ed)
(setq e (entlast))
(setq num (xdrx_polyline_numVerts e))
(setq i 0)
(repeat num
(setq p1 (xdrx_polyline_getpointAt e i)
p1 (mapcar
'-
p1
pj
)
p2 (xdrx_point_transform p1 mat)
)
(xdrx_polyline_setpointAt e i p2)
(setq i (1+ i))
)
)
(xdrx_entity_explode eblk)
(xdrx_object_delete blkent)
)
(prompt "\n请选取要缩放的实体<退出>:")
(if (and
(setq ss (ssget))
(setq x (getreal "\nX方向比例<退出>:"))
(setq y (getreal "\nY方向比例<退出>:"))
)
(progn
(xdrx_begin)
(setq box (xdrx_entity_box ss)
pj (car box)
)
(setq blkname (strcat "xdtb_" (xdrx_gettime)))
(xdrx_block_make blkname ss pj)
($xdlsp_pickset_erase ss)
($XScale_Pro blkname)
(xdrx_end)
)
)
(princ)
)
</normalfont>

<normalfont> 
($xdrx_load '("xdlsp.lsp")) 
;| 
  将选择集X,Y不同比例缩放 
|; 
(defun c:XDTB_EntXScale (/ $XScale_Pro box pj ss) 
  (defun $XScale_Pro (blkname / mat eblk plent blkent e1 n ed i p1 p2) 
    (command ".insert" blkname pj x y "") 
    (setq eblk (entlast)) 
    (setq mat (xdrx_matrix_block2wcs eblk)) 
    (setq plent nil) 
    (setq blkent (xdrx_object_get "block" blkname)) 
    (while (setq e (xdrx_object_next)) 
      (setq e1 (cadr e)) 
      (if (= "AcDbPolyline" (car e)) 
        (setq plent (cons e1 plent)) 
      ) 
    ) 
    (foreach n plent 
      (setq ed (entget n) 
            ed (member '(100 . "AcDbEntity") ed) 
            ed (cons '(0 . "LWPOLYLINE") ed) 
      ) 
      (xdrx_object_delete n) 
      (entmake ed) 
      (setq e (entlast)) 
      (setq num (xdrx_polyline_numVerts e)) 
      (setq i 0) 
      (repeat num 
        (setq p1 (xdrx_polyline_getpointAt e i) 
              p1 (mapcar 
                   '- 
                   p1 
                   pj 
                 ) 
              p2 (xdrx_point_transform p1 mat) 
        ) 
        (xdrx_polyline_setpointAt e i p2) 
        (setq i (1+ i)) 
      ) 
    ) 
    (xdrx_entity_explode eblk) 
    (xdrx_object_delete blkent) 
  ) 
  (prompt "\n请选取要缩放的实体<退出>:") 
  (if (and 
        (setq ss (ssget)) 
        (setq x (getreal "\nX方向比例<退出>:")) 
        (setq y (getreal "\nY方向比例<退出>:")) 
      ) 
    (progn 
      (xdrx_begin) 
      (setq box (xdrx_entity_box ss) 
            pj (car box) 
      ) 
      (setq blkname (strcat "xdtb_" (xdrx_gettime))) 
      (xdrx_block_make blkname ss pj) 
      ($xdlsp_pickset_erase ss) 
      ($XScale_Pro blkname) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
) 
</normalfont>

aeo · 发表于 2003-5-1 19:58:27

不可能全部实体的
你的还不是block--块里改宽--insert吗?
我写的直接改pl线

eachy · 发表于 2003-5-1 20:15:55

我的思路是：作块，不等比插入，遍历块内实体－》找出pline信息存到一个表－》删除块内非零宽Pline－》分解－》根据保存的Pline信息表entmake pline。

XDSoft · 发表于 2003-5-1 20:19:46

最初由 eachy 发布
[B]我的思路是：作块，不等比插入，遍历块内实体－》找出pline信息存到一个表－》删除块内非零宽Pline－》分解－》根据保存的Pline信息表entmake pline。 [/B]

你的思路就是我上面那个程序的实现。

不过是保存的是BLOCK定义里面的PLINE的信息，然后得到BLOCK到INSERT的转换矩阵，然后ENTAMKE生成PLINE，把矩阵作用到PLINE的每个顶点变换，最后从块定义里面删除POLYLINE实体。

XDSoft · 发表于 2003-5-1 20:20:21

最初由 aeo 发布
[B]不可能全部实体的
你的还不是block--块里改宽--insert吗?
我写的直接改pl线 [/B]

当然是适合全部实体，你运行下试试。

aeo · 发表于 2003-5-1 20:38:07

真土,对才怪,和我写的一个样.只能说有弧不对,但近视.

要知道arc会变椭圆,pl就不是pl.就应该没宽度.

XDSoft · 发表于 2003-5-1 20:59:12

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

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

×

最初由 aeo 发布
[B]真土,对才怪,和我写的一个样.只能说有弧不对,但近视.

要知道arc会变椭圆,pl就不是pl.就应该没宽度. [/B]

第一个帖子里面说过，POLYLINE实体不考虑有凸度信息的。我说的适合全部实体，是指时候文字等等所有实体，变换的结果当然要依据ACAD里面的规则，ARC、圆是要肯定变椭圆的，这是实体的“歧变”（不同比例嘛）

用ACAD的块做中间，POLYLINE实体炸开后是要变LINE的，失去宽度信息。所以上面程序对POLYLINE进行了处理，回复原来的宽度，这也符合实际应用中用户只在意的是X,Y不同比例的伸缩。

之所以没有考虑带弧段的PL，是因为实际中不会有这样的要求。或者说一个弧要求不同比例，变换后还是弧，这个不会在应用中出现（也不可能实现）

aeo · 发表于 2003-5-1 21:17:12

你不是写过一个改线宽的_plw_match
把椭圆用pl线模拟.
用到这里就不会出现近似的情况,虽然也是近似,但总比不理它好.
因为纯粹的半圆的pl线,xy相差远的情况下,失真太大了.

还有里面的文字,大家希望的应该是大小不变或随一个方向改的.
好象有人这样要求过.

下面的图不是要的结果吧.
特别是x=1 y=2本来不交,变为相交了

jx2008 · 发表于 2006-11-17 03:15:33

晓东工具箱里有，但是有的时候执行完后，整个快不见了

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

[编程大擂台]：如何将选择集X,Y方向不同比例伸缩，要求...

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

相关帖子

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

相关帖子