2025.06.07版本API，xdrx_points_offset无法偏移？

pxt2015

xdrx_points_offset是我的一个高频函数，最近升级CAD，也升级了API，直接用最新版本。
发现2025.06.07版本API，xdrx_points_offset无法偏移？不管是直线，三点PL线，还是矩形PL线

XDSoft

pxt2015 发表于 2025-7-5 10:42
;;------------------------ 通用函数(defun c:xdrxver ()  (xdrx_prompt    "\n晓东API版本"    (xdrx_doc ...

1. (defun c:tt ()
   
2.   (xdrx-begin)
   
3.   (while (setq
   
4.            poly        (car
   
5.                   (xdrx-entsel "\n拾取多段线<退出>:" '((0 . "*polyline,line")))
   
6.                 )
   
7.          )
   
8.     (setq verts (xdrx-getpropertyvalue poly "vertices"))
   
9.     (setq closed (xdrx-getpropertyvalue poly "isclosed"))
   
10.     (setq voffset (xdrx-points-offset 100.0 verts))
    
11.     (xdrx-polyline-make voffset closed)
    
12.     (xdrx-entity-matchprop poly (entlast))
    
13.   )
    
14.   (xdrx-end)
    
15.   (princ)
    
16. )

(defun c:tt ()<br />   (xdrx-begin)<br />   (while (setq<br />            poly        (car<br />                   (xdrx-entsel "\n拾取多段线<退出>:" '((0 . "*polyline,line")))<br />                 )<br />          )<br />     (setq verts (xdrx-getpropertyvalue poly "vertices"))<br />     (setq closed (xdrx-getpropertyvalue poly "isclosed"))<br />     (setq voffset (xdrx-points-offset 100.0 verts))<br />     (xdrx-polyline-make voffset closed)<br />     (xdrx-entity-matchprop poly (entlast))<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )

XDSoft

xdrx-points-offset是 点表偏移

Command: !box
((22952.1 2424.77 0.0) (21742.3 6090.09 0.0) (18078.1 4880.67 0.0) (19287.9 1215.35 0.0))

Command: (setq b (xdrx-points-offset 100.0 box))
((23047.0 2456.11 0.0) (21805.9 6216.39 0.0) (17951.8 4944.28 0.0) (19192.9 1184.0 0.0))

XDSoft

xdrx-points-offset是 点表偏移

Command: !box
((22952.1 2424.77 0.0) (21742.3 6090.09 0.0) (18078.1 4880.67 0.0) (19287.9 1215.35 0.0))

Command: (setq b (xdrx-points-offset 100.0 box))
((23047.0 2456.11 0.0) (21805.9 6216.39 0.0) (17951.8 4944.28 0.0) (19192.9 1184.0 0.0))

pxt2015

;;------------------------ 通用函数

(defun c:xdrxver ()

  (xdrx_prompt    "\n晓东API版本"    (xdrx_document_getversionex)

    ", CAD版本"    (substr (getvar "acadver") 1 4)

  )

  (princ)

)

(defun xd-DimLst (pts / str i_dim n zg_dim)

  (setq i_dim 0)

  (setq zg_dim (/ (getvar "VIEWSIZE") 25.0)) ;屏幕高度的倍数

  (foreach n pts

    (setq str (itoa (setq i_dim (1+ i_dim))))

    (xdrx_text_make n str zg_dim 0)

  )

  (xdrx_polyline_make pts)

)

(if (= (xdrx_document_getversionex) "2020.02.08")

  (setq Xd-GetSpt Xdrx_Entity_GetStretchPoint)

  (setq Xd-GetSpt Xdrx_Entity_StretchPoints)

)

;;------------------------ 测试Xdrx_Points_Offset

(defun c:t1 ()

  (vl-cmdf "undo" "be")

  (c:xdrxver)

  (setq note "\n选择line,lwpolyline：")

  (while (setq e0 (xdrx_entsel note '((0 . "line,lwpolyline"))))

    (setq pts (Xd-GetSpt (car e0)))   

    (xd-DimLst (Xdrx_Points_Offset 500 pts))

  )

  (vl-cmdf "undo" "e")

  (princ)

)

1/2 运行环境：Windows11家庭中文版，24H2，操作系统版本26100.4351，autoCAD2018，晓东API版本号：2020.02.08




2/2 运行环境：Windows11家庭中文版，24H2，操作系统版本26100.4351，autoCAD2023，晓东API版本号：2025.06.08



第二个动画显示，没有达到预期的偏移效果。

pxt2015

终于找到原因了：2025版本API，(xdrx_points_offset dis pts)执行偏移的时候dis要输入实数500.0，不能输入整数500。