特殊缩放

荒野孤行

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

;;;*****缩放处理 程序开始*****
(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请指定缩放比例的参照长度："))
(initget 3)
  (setq        len_add
         (getdist
           "\n请指定缩放后的长度和参照长度的差值（正值→放大、负值→缩小）："
         )
  )
  (initget 6)
  (if (not (setq n (getint "\n指定输入要缩放的次数：<10>")))
    (setq n 10)
  )
  (setq        i 1
        TorF T
  )
  (while (and (<= i n) TorF)
    (setq len_all (+ len (* i len_add))
          bili          (/ len_all len 1.0)
    )
    (command "_.SCALE" ss "" pt "C" bili)
    (setq i (+ i 1))
    (if        (<= (setq len_all (+ len (* i len_add))) 0)
      (setq TorF nil)
    )
  )
  (command "undo" "e")
  (princ)
)
;;;*****缩放处理 程序结束*****

stonedesign

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

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

stonedesign

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

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

荒野孤行

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

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

stonedesign

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

1554539微信   QQ细聊

tiduck

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

lee50310

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

lee50310

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

stonedesign

大侠   能帮忙搞定这个吗

wen1235

有深度      回复看内容