[求助]：可不可以同时把长度为1的线替换为长充为2的线？

hairhare

可不可以同时把长度为1的线替换为长充为2的线？
如果我是定义了块就好办，可是我没有定义块怎么办才好呢＞

柔柔

1。修改这条线，把长1拉长到2
2。删除重画
根据实际情况选择其中一个方法编一个小程序，前提是编程的时间大大少于手工一个一个编辑的时间。

27182818284

晓东他老人家替我们想到了这个东东。用晓东工具>>>>>>工具二>>>>>>自身缩放(XDTB_EntSclByPnt)可以做到。

lsjjm

(defun c:test ()
  (setq ss (ssget '((0 . "LINE"))))
  (setq n 0)
  (while (< n (sslength ss))
    (setq pt1 (cdr (assoc 10 (entget (ssname ss n)))))
    (setq pt2 (cdr (assoc 11 (entget (ssname ss n)))))
    (if (equal (distance pt1 pt2) 1 0.0001)
      (vl-cmdf "lengthen" "de" 1.0 pt2 "")
    )
    (setq n (1+ n))
  )
)