增强拉伸

st788796 · 发表于 2014-11-4 20:51:56

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

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

×

(defun c:XDTB_Stretch (/ p pts ss p1)
(if (and (setq pts (xd::doc:getpolygon nil nil 1))
(setq ss (ssget "CP" pts))
(setq p1 (getpoint (car pts) "\n方向: "))
(setq v (mapcar '- p1 (car pts)))
)
(progn
(xdrx_entity_stretch ss pts v)
(if (setq ss (ssget "F" pts '((0 . "INSERT"))))
(mapcar '(lambda (x)
(xdrx_entity_stretch x pts v)
)
(xdrx_pickset->ents ss)
)
)
)
)
(princ)
)

newer · 发表于 2014-11-4 21:15:36

只用 (mapcar       '(lambda (x)
               (xdrx_entity_stretch x pts v)
               )
            (xdrx_pickset->ents ss)
      )

是不是可以不用IF了，图块和实体一样处理？

st788796 · 发表于 2014-11-4 21:27:10

newer 发表于 2014-11-4 21:15
只用 (mapcar       '(lambda (x)
               (xdrx_entity_stretch x pts v)
               ...

是可以这样用，简化代码，只是觉得只有线上 Insert 才需要单独 Stretch，前面直接用选集处理就都在 ARX 内部减少了交互

newer · 发表于 2014-11-4 21:40:55

本帖最后由 newer 于 2014-11-4 21:42 编辑

st788796 发表于 2014-11-4 21:27
是可以这样用，简化代码，只是觉得只有线上 Insert 才需要单独 Stretch，前面直接用选集处理就都在 ARX ...

拉伸不会很很多实体吧，还是代码简化应该第一位的吧。{:soso_e113:}
另外，为什么块要单独呢，不能放选择集里面，一起拉伸吗？找老大去。

XDSoft · 发表于 2014-11-4 21:59:53

newer 发表于 2014-11-4 21:40
拉伸不会很很多实体吧，还是代码简化应该第一位的吧。
另外，为什么块要单独呢，不能放选 ...

不让选择集方式有块的原因是因为怕你一次不小心选择了2个以上的同名的块，这样操作就此起彼伏了，争相更新了。
不过你提醒我了，我看看从代码上能规避不。

iLisp · 发表于 2014-11-4 23:19:56

本帖最后由 iLisp 于 2014-11-4 23:21 编辑

XDSoft 发表于 2014-11-4 21:59
不让选择集方式有块的原因是因为怕你一次不小心选择了2个以上的同名的块，这样操作就此起彼伏了，争相更 ...

拉伸的是定义，更新的是引用，线上有同名块时所框住的范围可能不同，以哪个为准呢？
F 后同名的应该只拉一个，而且是相交区域最大的那个

st788796 · 发表于 2014-11-5 09:21:39

API更新后更强悍了，因为扫到的 BlockRef 会修改 BlockDef ，慎用！

(defun c:XDTB_Stretch (/ pts ss v)
(if (and (setq pts (xd::doc:getpolygon nil nil 1))
(setq ss (ssget "CP" pts))
(setq v (xd::doc:getdist nil "\n距离: " nil nil nil))
)
(xdrx_entity_stretch ss pts v)
)
(princ)
)

就念鱼儿 · 发表于 2014-12-22 21:55:19

哇。。。。。。。。。

Feverpitch · 发表于 2018-10-30 15:56:20

本帖最后由 Feverpitch 于 2018-10-30 15:57 编辑

请问一下s大，我在cad2014中安装了最新的晓东工具箱（18-10-23版本），使用里面的增强拉伸功能，发现图块拉不动，普通的矩形可以拉动，可能是什么原因呢？
多谢！

alnhny · 发表于 2018-11-15 06:36:46

能否增加一个矩形框选的方式？

coverne · 发表于 2018-11-15 08:58:01

不让选择集方式有块的原因是因为怕你一次不小心选择了2个以上的同名的块，这样操作就此起彼伏了，争相更新了。

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

[工具] 增强拉伸

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

点评

点评

点评