荒野孤行 发表于 2015-6-4 22:10:03

特殊缩放

本帖最后由 荒野孤行 于 2015-6-5 08:13 编辑

有些图形偏移很多次之后，圆角就没有了，所以采用缩放的方式进行处理，这样做出来的图形交接不会改变。具体请看图示吧。

;;;*****缩放处理 程序开始*****
(defun c:t1 ()
(setvar "cmdecho" 0)
(setvar "osmode" 15359)
(princ
    "\n功能：将图元按等倍数、等距离的方式进行缩放。\n请选择要进行缩放的块、文字、圆、圆弧、椭圆或线："
)
(command "undo" "be")
(setq ss (ssget '((0 . "INSERT,*TEXT,*LINE,ARC,CIRCLE,ELLIPSE"))))
(setq pt (getpoint "\n请指定缩放的基点："))
(initget 3)
(setq len (getdist "\n请指定缩放比例的参照长度："))
**** Hidden Message *****
      (setq TorF nil)
    )
)
(command "undo" "e")
(princ)
)
;;;*****缩放处理 程序结束*****

stonedesign 发表于 2020-4-20 14:26:26

荒野孤行 发表于 2020-4-19 18:08
没看明白这是要实现什么功能。

就是一张原始结构图   一张设计好的改造的墙体图   然后2张对比出现第三张图   哪里敲墙的分出来自动填充

stonedesign 发表于 2020-6-9 07:15:29

荒野孤行 发表于 2020-4-19 18:08
没看明白这是要实现什么功能。

就是把一张原始结构图和一张做方案改好的图纸，做好的图纸是有敲墙体的，2张对比后生成一张新的拆墙图有填充的

荒野孤行 发表于 2020-4-19 18:08:26

stonedesign 发表于 2020-4-14 10:00
大侠   能帮忙搞定这个吗

没看明白这是要实现什么功能。:(

stonedesign 发表于 2020-4-20 14:23:33

荒野孤行 发表于 2020-4-19 18:08
没看明白这是要实现什么功能。

1554539微信   QQ细聊

tiduck 发表于 2020-4-20 09:47:00

哥你写的程序怎么大部分都会把捕捉设置全部打开

lee50310 发表于 2020-4-20 09:18:32

很不错的程序，学习一下。

lee50310 发表于 2020-4-20 09:18:01

很不错的程序，学习一下。

stonedesign 发表于 2020-4-14 10:00:01

大侠   能帮忙搞定这个吗

wen1235 发表于 2016-6-25 23:28:22

有深度      回复看内容
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 特殊缩放