设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › XDRX_API应用 › 填充式实体缩放
返回列表 发新帖
查看: 1915|回复: 11

[每日一码] 填充式实体缩放

[复制链接]
q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
发表于 2013-10-24 19:15:25 | 显示全部楼层 |阅读模式

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

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

×
本帖最后由 q3_2006 于 2013-10-24 19:16 编辑
  2. (defun c:tt ( / blayer box box1 cnt el entl errexit ip mbx olderr oldvar rec ss tmp x x1 xscal y y1 yscal)
  3.   (xd::begin)
  4.   (xdrx_undostart)
  5.   (defun makeunblock (ss ip / tmp errexit mbx blayer)
  6.     (setq t (not nil))
  7.     (setq olderr *error*
  8.     *error* errexit
  9.     )
  10.     (setq oldvar (list (getvar "CMDECHO")))
  11.     (setvar "CMDECHO" 0)
  12.     (terpri)
  13.     (if blayer
  14.       (command "._LAYER" (if (tblsearch "LAYER" blayer)
  15.          "_S"
  16.          "_M"
  17.        ) blayer ""
  18.       )
  19.     )
  20.     (if (and
  21.     ip
  22.     ss
  23.   )
  24.       (progn
  25.   (entmake (list (cons '0 "BLOCK") (cons '2 "*U") (cons '70 1)
  26.            (cons '10 ip)
  27.      )
  28.   )
  29.   (setq cnt (sslength ss))
  30.   (while (>= (setq cnt (1- cnt))
  31.        0
  32.          )
  33.     (setq tmp (ssname ss cnt))
  34.     (entmake (setq el (entget tmp)))
  35.     (if (> (cdr (assoc 66 el)) 0)
  36.       (while (/= "SEQEND" (cdr (assoc 0 (entmake (setq el
  37.                    (entget
  38.                      (entnext
  39.                         (cdr
  40.                        (assoc -1 el)
  41.                         )
  42.                      )
  43.                    )
  44.                    )
  45.                 )
  46.              )
  47.         )
  48.        )
  49.       )
  50.     )
  51.     (entdel tmp)
  52.   )
  53.   (setq tmp (entmake (list (cons '0 "ENDBLK"))))
  54.   (entmake (list (cons '0 "INSERT") (cons '2 tmp) (cons '10 ip)))
  55.       )
  56.     )
  57.     (restore)
  58.   )
  59.   (setq ss (ssget))
  60.   (if ss
  61.     (progn
  62.       (setvar "cmdecho" 0)
  63.       (print "\n选择填充框：")
  64.       (setq rec (car (entsel))
  65.       box (xdrx_entity_box ss)
  66.       x (distance (nth 0 box) (nth 1 box))
  67.       y (distance (nth 0 box) (nth 3 box))
  68.       box1 (xdrx_entity_box rec)
  69.       x1 (distance (nth 0 box1) (nth 1 box1))
  70.       y1 (distance (nth 0 box1) (nth 3 box1))
  71.       xscal (/ x1 x)
  72.       yscal (/ y1 y)
  73.       )
  74.       (makeunblock ss (nth 0 box))
  75.       (setq entl (entget (entlast))
  76.       entl (subst
  77.        (cons 41 xscal)
  78.        (assoc 41 entl)
  79.        entl
  80.      )
  81.       entl (subst
  82.        (cons 42 yscal)
  83.        (assoc 42 entl)
  84.        entl
  85.      )
  86.       )
  87.       (entmod entl)
  88.       (command "move" (entlast) "" (nth 0 box) (nth 0 box1))
  89.       (command "_explode" "l" "")
  90.       (princ)
  91.     )
  92.   )
  93.   (xdrx_undoend)
  94.   (xd::end)
  95. )
网上找的代码改的，算是不等比缩放的扩展，希望高手给优化一下！
000.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-10-24 19:19:52 | 显示全部楼层
什么叫填充式实体缩放？ 能详细说下吗。

看你用了API的函数，如果改，API写这个应该能减少代码到1/3.

点评

q3_2006
我用API还真是少。。。代码说实话，收集的挺多，看得少，这个代码我是能看懂的，所以版主用API优化及简化一下，我搞懂相关函数也不会有困难。  详情 回复 发表于 2013-10-24 19:26
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-10-24 19:26:28 | 显示全部楼层
两个 Box 比出 XY 比例, 构造非等比矩阵, TransformedCopy 过去

点评

q3_2006
不会。。求优化！  详情 回复 发表于 2013-10-24 19:27
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
 楼主| 发表于 2013-10-24 19:26:43 | 显示全部楼层
newer 发表于 2013-10-24 19:19
什么叫填充式实体缩放？ 能详细说下吗。

看你用了API的函数，如果改，API写这个应该能减少代码到1/3.

我用API还真是少。。。代码说实话，收集的挺多，看得少，这个代码我是能看懂的，所以版主用API优化及简化一下，我搞懂相关函数也不会有困难。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
 楼主| 发表于 2013-10-24 19:27:23 | 显示全部楼层
st788796 发表于 2013-10-24 19:26
两个 Box 比出 XY 比例, 构造非等比矩阵, TransformedCopy 过去

不会。。求优化！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lispboy

已领礼包: 51个

财富等级: 招财进宝
发表于 2013-10-24 21:56:20 | 显示全部楼层
本帖最后由 Lispboy 于 2013-10-24 23:18 编辑

xdtb_nscale.gif

下面的代码虽然不多，但信息量大，没有用 xdrx_entity_transformedCopy，因为不是所有实体都支持非等比缩放，这个代码和你贴的是一个思路，做不等比块。

  1. (defun c:tt()
  2.    (if (and (setq ss (ssget))
  3.             (setq e (car (xdrx_entsel "\n选取一个外框确定比例<退出>:" '((0 . "*POLYLINE")(-4 . "&=")(70 . 1)))))
  4.        )
  5.      (progn
  6.         (XD::Begin)
  7.         (setq box1 (XD::Entity:Box ss)
  8.               p1 (car box1)
  9.               y1 (xdrx_vector_length (mapcar '- (last box1)p1))
  10.               x1 (xdrx_vector_length (mapcar '- (cadr box1)p1))
  11.               box2 (XD::Entity:Box e)
  12.               p2 (car box2)
  13.               y2 (xdrx_vector_length (mapcar '- (last box2)p2))
  14.               x2 (xdrx_vector_length (mapcar '- (cadr box2)p2))
  15.               scl (list (/ x2 x1)(/ y2 y1) 1.0)
  16.         )
  17.         (setq a (xdrx_block_make "temp" ss p1 t))
  18.         (xdrx_setpropertyvalue (entlast) "ScaleFactors" scl)
  19.         (setq mat0 (xdrx_matrix_identity 3)
  20.               mat1 (xdrx_matrix_settranslation mat0 (mapcar '- p2 p1))
  21.         )
  22.         (xdrx_entity_transform (entlast) mat1)
  23.         (xdrx_entity_explode (entlast))
  24.         (XD::End)
  25.      )
  26.    )
  27.    (princ)
  28. )


点评

q3_2006
就是这样。。学习了！  详情 回复 发表于 2013-10-25 06:51
st788796
这个里面的 Explode 不会是 一炸到底 吧， 如果源里面有块，填充后 一炸到底 就不好了  详情 回复 发表于 2013-10-24 22:01
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-10-24 22:01:53 | 显示全部楼层
Lispboy 发表于 2013-10-24 21:56
下面的代码虽然不多，但信息量，没有用 xdrx_entity_transformedCopy，因为不是所有实体都支持等比缩放 ...

这个里面的 Explode 不会是 一炸到底 吧， 如果源里面有块，填充后 一炸到底 就不好了

点评

XDSoft
下版API给 xdrx_entity_explode 的深度炸开加个开关。  详情 回复 发表于 2013-10-24 22:21
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2013-10-24 22:21:49 | 显示全部楼层
st788796 发表于 2013-10-24 22:01
这个里面的 Explode 不会是 一炸到底 吧， 如果源里面有块，填充后 一炸到底 就不好了

下版API给 xdrx_entity_explode 的深度炸开加个开关。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
 楼主| 发表于 2013-10-25 06:51:22 | 显示全部楼层
Lispboy 发表于 2013-10-24 21:56
下面的代码虽然不多，但信息量大，没有用 xdrx_entity_transformedCopy，因为不是所有实体都支持非等比 ...

就是这样。。学习了！

点评

st788796
重复代码部分一般作成子函数  详情 回复 发表于 2013-10-25 07:06
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-10-25 07:06:36 | 显示全部楼层
本帖最后由 st788796 于 2013-10-25 07:11 编辑
q3_2006 发表于 2013-10-25 06:51
就是这样。。学习了！

重复代码部分一般作成子函数
  1. (defun c:tt (/ getwh ss e box1 p1 scl a mat0 mat1)
  2.   (defun getwh (box)
  3.     (list (mapcar '- (cadr box) (car box))
  4.    (mapcar '- (last box) (car box))
  5.    1.
  6.     )
  7.   )
  8.   (if (and (setq ss (ssget))
  9.     (setq e (car (xdrx_entsel
  10.      "\n选取一个外框确定比例<退出>:"
  11.      '((0 . "*POLYLINE") (-4 . "&=") (70 . 1))
  12.    )
  13.      )
  14.     )
  15.       )
  16.     (progn
  17.       (XD::Begin)
  18.       (mapcar 'set
  19.        '(box1 box2)
  20.        (list (XD::Entity:Box ss) (XD::Entity:Box e))
  21.       )
  22.       (mapcar 'set '(p1 p2) (list (car box1) (car box2)))
  23.       (setq scl (mapcar '/ (getwh e) (getwh box1))
  24.      a (xdrx_block_make "temp" ss p1 t)
  25.       )
  26.       (xdrx_setpropertyvalue (entlast) "ScaleFactors" scl)
  27.       (setq mat0 (xdrx_matrix_identity 3)
  28.      mat1 (xdrx_matrix_settranslation mat0 (mapcar '- p2 p1))
  29.       )
  30.       (xdrx_entity_transform (entlast) mat1)
  31.       (xdrx_entity_explode (entlast))
  32.       (XD::End)
  33.     )
  34.   )
  35.   (princ)
  36. )

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wx_tPzOZHoY
发表于 2020-6-8 17:04:10 | 显示全部楼层
Lispboy 发表于 2013-10-24 21:56
下面的代码虽然不多，但信息量大，没有用 xdrx_entity_transformedCopy，因为不是所有实体都支持非等比 ...

大神怎么改成拉伸缩放填充到矩形？ 能把你贴的这个代码帮忙改一下吗？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wx_tPzOZHoY
发表于 2020-6-13 08:54:31 | 显示全部楼层
Lispboy 发表于 2013-10-24 21:56
下面的代码虽然不多，但信息量大，没有用 xdrx_entity_transformedCopy，因为不是所有实体都支持非等比 ...

填充进去，边距保持不变怎么弄？可以写个代码吗？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-22 01:41 , Processed in 0.240706 second(s), 54 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表