Question

利用lisp给cad直线取整？

假设我有两条直线，它们的起点终点坐标如下，line1（0,0,0；100.005,0,0），line2（100.005,0,0；200,0,0），现在我想利用lisp四舍五入使两个线段的长度都为整数100，就是线段的坐标变为，line1（0,0,0；100,0,0），line2（100,0,0；200,0,0），（实际情况中我可能有许多这样的直线需要处理）请问如何实现？谢谢！

Answer 1

写了一个autolisp，修改直线端点位置，使其长度变整数。代码如下：

(defun c:tes ( / &ang1 &dis1 &k1 &kw1 &ob1 &p1)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (if (null vlax-dump-object) (vl-load-com) )
 (princ "\n请选择直线")
 (if (setq &kw1 (ssget '((0 . "LINE"))))
  (progn
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1))
    (setq &ob1 (vlax-ename->vla-object &k1))
    (setq &dis1 (atof (rtos (vlax-curve-getDistAtParam &ob1 (vlax-curve-getEndParam &ob1)) 2 0)))
    (setq &p1 (vlax-curve-getStartPoint &ob1) &ang1 (vla-get-Angle &ob1))
    (setq &p1 (Vlax-3d-Point (polar &p1 &ang1 &dis1)))
    (vla-put-EndPoint &ob1 &p1)
   );while
  )
 )
 (princ)
)

追问

首先感谢您的帮助！

我在实际运用中发现，本来line1的终点是line2的起点，结果应用以上代码之后线段的长度是整了但是端点的关系错了，导致我的后续工作无法开展，下面是一片墙体各个端点的坐标

以上墙体利用上述lsp实现了线段长度取整，但是起点终点的关系对不上了，有些原来本是重合的起点终点现在不是重合的，望不吝赐教为谢！

追答

这个情况的话，程序需要分析对象，需要参考点坐标。【比如：轴线】，各种情况需要分析。必须有dwg图纸。另外有偿写程序。

Answer 2

如修改图形很麻烦，坐标点，线段长如是程序生成，要修改这lisp源代码，使之生成整数。
如是数据，设置精度，就简单。