社区 › 源码共享 › 【S】带填充拉伸_v8.6——支持记忆拉伸

429014673 发表于 2024-2-28 08:07:09

搞个支持中望CAD的咯:handshake

kucha007 发表于 2024-2-28 08:26:37

429014673 发表于 2024-2-28 08:07
搞个支持中望CAD的咯

不用中望。

fengdedaan 发表于 2024-2-28 10:11:15

谢谢楼主，正好碰到这个问题

chslwj521 发表于 2024-2-29 10:39:28

kucha007 发表于 2024-2-24 14:01
20240204-v8.2
尝试过滤掉关联填充，只生成非关联填充的边界，使得拉伸前关联的填充，拉伸后仍然保持关联 ...

如何才能购买这个源代码呀？兄弟:lol

kucha007 发表于 2024-2-29 10:59:53

chslwj521 发表于 2024-2-29 10:39
如何才能购买这个源代码呀？兄弟

多混论坛。或者下fas

yanchao316 发表于 2024-2-29 12:07:11

本帖最后由 yanchao316 于 2024-2-29 12:15 编辑

请问如果想取消拉伸时的预览效果，好不好改，应该改哪个地方？一直在用个没预览的记忆拉伸，开始还希望有自带的拉伸预览效果，用久了反而觉得没预览的比较适合我（拉伸有标注尺寸的图，预览的标注尺寸会遮挡原图，影响视觉，口算尺寸），像如下这个效果
;;
(defun c:s (/ ANG DIS SS P1 P2)
(mapcar 'set '(ANG DIS) **STRETCH_DAT**)
(or ANG (setq ANG 0))
(or DIS (setq DIS 50))
(if (and (setq SS (ssget))
         (if (and (setq P1 (getpoint (strcat "\n指定基点 <" (rtos DIS) ">: ")))
                  (or (setq P2 (getpoint P1 "\n指定第二个点: "))
                        (setq P2 T)
                  )
               )
             (if (= P2 T)
               (setq P2 nil)
               (setq **STRETCH_DAT** (list (angle P1 P2) (distance P1 P2)))
             )
             (setq P1 '(0 0 0) P2 (polar P1 ANG DIS))
         )
         P2
      )
    (command "_.STRETCH" SS "" "_non" P1 "_non" P2)
)
(princ))

kucha007 发表于 2024-2-29 17:14:28

yanchao316 发表于 2024-2-29 12:07
请问如果想取消拉伸时的预览效果，好不好改，应该改哪个地方？一直在用个没预览的记忆拉伸，开始还希望有自 ...

找到这句：
(command "_.STRETCH" SS """non" FstPT pause)
替换成这句：
(command "_.STRETCH" SS """non" FstPT (getpoint FstPT))

chslwj521 发表于 2024-2-29 20:10:09

kucha007 发表于 2024-2-29 10:59
多混论坛。或者下fas

好的，哥，可以加V不？

yanchao316 发表于 2024-2-29 22:25:13

kucha007 发表于 2024-2-29 17:14
找到这句：
(command "_.STRETCH" SS """non" FstPT pause)
替换成这句：


好用，谢谢！

puzb2023 发表于 2024-3-1 21:20:45

这个真的好用

查看完整版本: 【S】带填充拉伸_v8.6——支持记忆拉伸