sunny_8848 发表于 2020-6-1 08:17:34

多谢楼主分享，下载试用一下

fxlt619 发表于 2020-6-1 15:21:24


多谢楼主分享

my258 发表于 2020-6-1 18:07:14


多谢楼主分享

lingduwx 发表于 2020-6-1 20:45:19

本帖最后由 lingduwx 于 2020-6-1 20:46 编辑

大侠你好，可否在此完美版基础上修改一版，增加屏幕外框选，主要是有时框选之后需要放大好捕捉，这样就超出屏幕外了，谢谢

mokson 发表于 2020-6-2 19:21:00

大神辛苦了，感谢！

陈伟 发表于 2020-6-3 21:56:07

下面这个程序只能实现单次选择,不会出现卡顿问题，而且选择的区域不能取消，有大神能够帮忙实现像CAD自带拉伸工具一样自由选择取消吗（ssnamex获得多个选择区域，并重新选择这些区域）！


(defun C:S123( )


(setq xyxyxy (last (ssnamex (setq ss (ssget)) 0)));;获得ssget选择集的一个信息表。
(setq xt (last (cadr xyxyxy)) yt (last (cadddr xyxyxy)))   ;;提取刚才的窗选对角坐标。
(setq xt (trans xt 0 1)
      yt (trans yt 0 1)
)



(setq old_lay (getvar "clayer")) ;保存当前图层
   (setq layer "TC填充图案边界线")
      (if (not (tblsearch "layer" layer ))
      (progn   (command "layer" "new" "TC填充图案边界线" "s" "TC填充图案边界线" "C" 231 "" "L" "Continuous" "" "P" "N" "" "LW" 0"" "") ));新建图层
(COMMAND "clayer" layer) ;置当前图层

(setq sg (ssget "P" '((0 . "HATCH")) ) i -1 );过滤对象只选填充图案
(if sg (while (setq s1 (ssname sg (setq i (1+ i))));批量生成填充边界
    (command "-hatchedit" s1 "b" "p" "y") ))
(setvar "clayer" old_lay) ;恢复原先图层

(setq s2 (ssget "c" xt yt ))
(command ".STRETCH" S2 "" pause pause)   ;;


(setq sggg (ssget "A"'((8 . "TC填充图案边界线"))))
(COMMAND "_.erase"sggg "");删除生成的边界线！

(princ)
)

cren1128 发表于 2020-6-4 10:45:24

看着很强大

刚开始 发表于 2020-6-5 08:23:36

好东西，收藏了，感谢提供源代码。

dongya1235 发表于 2020-6-8 15:58:48

大佬，可不可以增加个记忆功能，显示上资拉伸的距离，空格直接按上次的拉伸的长度拉伸。

839928885 发表于 2020-6-9 12:19:08

感谢分箱，马住
页: 1 [2] 3 4 5 6 7 8 9 10 11
查看完整版本: 填充图案拉伸 更新至6.0，可代替CAD原拉伸命令！！