【S】填充拉伸_v8.4——支持记忆拉伸

429014673

搞个支持中望CAD的咯

kucha007

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

不用中望。

fengdedaan

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

chslwj521

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

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

kucha007

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

多混论坛。或者下fas

yanchao316

请问如果想取消拉伸时的预览效果，好不好改，应该改哪个地方？一直在用个没预览的记忆拉伸，开始还希望有自带的拉伸预览效果，用久了反而觉得没预览的比较适合我（拉伸有标注尺寸的图，预览的标注尺寸会遮挡原图，影响视觉，口算尺寸），像如下这个效果
;;
(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

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

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

chslwj521

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

好的，哥，可以加V不？

yanchao316

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

好用，谢谢！

puzb2023

这个真的好用