（求助） 异常缩放功能结束后合并所有线段

999999

原贴是明经论坛sailorcwx 二楼大神发出的插件http://bbs.mjtd.com/forum.php?mod=viewthread&tid=64188&highlight=%D2%EC%B3%A3%CB%F5%B7%C5
以下是源代码：缩放完成后，目前是所有的框都是单独的断线，求助各位论坛大神帮助解决一下，请问有没有缩放完成后，并自动合并所有断线框
在此对冒犯的大神说一声对不起了

异常缩放
(defun c:XY(/ YH_BNAME YH_BPT YH_NXSCALE YH_NYSCALE YH_SLT YH_TPT)
  (while (setq YH_slt (ssget))
    (if (not YH_xscale)(setq YH_xscale 1))
    (if (not YH_yscale)(setq YH_yscale 1))
    (if (not (setq YH_bpt (getpoint "\n指定缩放基点<原点>:")))(setq YH_bpt '(0 0 0)))
    (setq YH_nxscale (getdist YH_bpt (strcat "\n输入X方向缩放比例:<" (rtos YH_xscale) ">"))
   YH_nyscale (getdist YH_bpt (strcat "\n输入Y方向缩放比例:<" (rtos YH_yscale) ">"))
   YH_bname (getvar "cdate")
   )
    (if (> YH_nxscale 0)(setq YH_xscale YH_nxscale))
    (if (> YH_nyscale 0)(setq YH_yscale YH_nyscale))
    (command "block" YH_bname YH_bpt YH_slt "" "insert" YH_bname YH_bpt YH_xscale YH_yscale 0 "EXPLODE" "L" "purge" "B" YH_bname "Y" "Y")
    (if (not (setq YH_tpt (getpoint "\n指定说明文字位置<原点>:")))(setq YH_tpt '(0 0 0)))
    (command "TEXT" YH_tpt (getvar "TEXTSIZE") 0 (strcat "缩放比例 X方向:" (rtos YH_xscale) " Y方向:" (rtos YH_yscale)))
    )
  (princ)
  )

GDFGFGF

(defun c:XY(/ YH_BNAME YH_BPT YH_NXSCALE YH_NYSCALE YH_SLT YH_TPT)
  (while (setq YH_slt (ssget))
    (if (not YH_xscale)(setq YH_xscale 1))
    (if (not YH_yscale)(setq YH_yscale 1))
    (if (not (setq YH_bpt (getpoint "\n指定缩放基点<原点>:")))(setq YH_bpt '(0 0 0)))
    (setq YH_nxscale (getdist YH_bpt (strcat "\n输入X方向缩放比例:<" (rtos YH_xscale) ">"))
   YH_nyscale (getdist YH_bpt (strcat "\n输入Y方向缩放比例:<" (rtos YH_yscale) ">"))
   YH_bname (getvar "cdate")
   )
    (if (> YH_nxscale 0)(setq YH_xscale YH_nxscale))
    (if (> YH_nyscale 0)(setq YH_yscale YH_nyscale))
    (command "block" YH_bname YH_bpt YH_slt "" "insert" YH_bname YH_bpt YH_xscale YH_yscale 0 "EXPLODE" "L" "purge" "B" YH_bname "Y" "Y")
    (if (not (setq YH_tpt (getpoint "\n指定说明文字位置<原点>:")))(setq YH_tpt '(0 0 0)))
    (command "TEXT" YH_tpt (getvar "TEXTSIZE") 0 (strcat "缩放比例 X方向:" (rtos YH_xscale) " Y方向:" (rtos YH_yscale)))
  (command "_.pedit" "_M" "P" ""  "J" "0" "")  
)
  (princ)
  )

gaics

命令：join

999999

gaics 发表于 2020-8-26 08:24
命令：join

大神你好，join我这边CAD2007用不了这个命令，并且有时候有太多炸开的文件

999999

有没有大神知道解决的方法的呢

纵横八方

圆弧不等比缩放会变成椭圆，椭圆是合并不了多段线的，所以肯定是打散的，能合并那才见鬼了，自己想一下就明白了，不然低版本cad怎么天生就合并不了样条线

bssurvey

試試(command "_pedit" "m" "all" "" "" "_join" "" "") 加在最後 (princ)的前面 ，看看是不是您想要的

999999

纵横八方 发表于 2020-9-1 10:22
圆弧不等比缩放会变成椭圆，椭圆是合并不了多段线的，所以肯定是打散的，能合并那才见鬼了，自己想一下就明 ...

大神，，我是想，圆弧的自动连接不了的话，其它不是圆弧的应该是可以连接的吧，，因为也不是说哪个文件都有圆弧

999999

bssurvey 发表于 2020-9-1 16:21
試試(command "_pedit" "m" "all" "" "" "_join" "" "") 加在最後 (princ)的前面 ，看看是不是您想要的

大神您好，我加到后面去，出现了重复的操作，不知道是怎么回事，因为出现了乱码

bssurvey

999999 发表于 2020-9-1 16:41
大神您好，我加到后面去，出现了重复的操作，不知道是怎么回事，因为出现了乱码

我這邊2008測試沒問題，您是不是先把cad關掉重開再執行看看
(defun c:XY(/ YH_BNAME YH_BPT YH_NXSCALE YH_NYSCALE YH_SLT YH_TPT)
  (while (setq YH_slt (ssget))
    (if (not YH_xscale)(setq YH_xscale 1))
    (if (not YH_yscale)(setq YH_yscale 1))
    (if (not (setq YH_bpt (getpoint "\n指定缩放基点<原点>:")))(setq YH_bpt '(0 0 0)))
    (setq YH_nxscale (getdist YH_bpt (strcat "\n输入X方向缩放比例:<" (rtos YH_xscale) ">"))
   YH_nyscale (getdist YH_bpt (strcat "\n输入Y方向缩放比例:<" (rtos YH_yscale) ">"))
   YH_bname (getvar "cdate")
   )
    (if (> YH_nxscale 0)(setq YH_xscale YH_nxscale))
    (if (> YH_nyscale 0)(setq YH_yscale YH_nyscale))
    (command "block" YH_bname YH_bpt YH_slt "" "insert" YH_bname YH_bpt YH_xscale YH_yscale 0 "EXPLODE" "L" "purge" "B" YH_bname "Y" "Y")
    (if (not (setq YH_tpt (getpoint "\n指定说明文字位置<原点>:")))(setq YH_tpt '(0 0 0)))
    (command "TEXT" YH_tpt (getvar "TEXTSIZE") 0 (strcat "缩放比例 X方向:" (rtos YH_xscale) " Y方向:" (rtos YH_yscale)))
    )
  (command "_pedit" "m" "all" "" "" "_join" "" "")
  (princ)
  )