社区 › Auto Lisp › 按点的二维到三维多段线

BIGAL 发表于 2022-7-5 13:56:08

李，我试图找到一个非常确定的地方，你可以得到一个IAeccPoint见下面的代码，你可以得到北东海拔，也可以使用直接VL得到北东等属性
 

some code !!
(alert "Pick CIV3D points press ESC or pick nothing to exit")
(while (setq obj (vlax-ename->vla-object(car (entsel))))
; vl 3d point convert to plain lisp
(setq pt1 (vlax-safearray->list (vlax-variant-value (vlax-get-property obj "Location"))))
(setq ht (rtos (nth 2 pt1) 2 3)) ; Z val
(setq ptx (nth 0 pt1))
(setq pty (nth 1 pt1))

iztok13 发表于 2022-7-5 13:58:19

Thx发送给BIGAL&LEE MAC，代表重播的u的bouth。
也许这是dum的问题，但我现在不知道如何在两点之间插值顶点。所以如果我需要创建一个弧，我只需要做更多的顶点。但这些顶点有0 z坐标。在自动创建两点之间的顶点时，有没有可能的插值方法？

jackson5 发表于 2022-7-5 14:02:03

您好，是否可以更新lisp以处理点不完全在多段线上，但距离很小的情况（我经常从测量员那里获得这种情况下的地图，点移动很小，不知道为什么，可能在转换过程中点没有完全移动到多段线）。如果lisp使用一些可以选择的公差（例如，在道路设计中为0.05m），并且新创建的三维多段线将沿着拾取的多段线（2d）从该公差范围内的所有点拾取高程，这将是完美的。
 
或者有一种方法可以自动将点（节点）移动到多段线上最近的点？

Lee Mac 发表于 2022-7-5 14:05:44

 
我当前代码中的公差为1e-4（即0.0001），您可以更改此值以满足您的要求。

jackson5 发表于 2022-7-5 14:09:01

是的，非常感谢！

Lee Mac 发表于 2022-7-5 14:11:54

 
不客气！

drdownload18 发表于 2022-7-5 14:14:18

为什么我会出现这样的错误：输入上有额外的右对齐？ 

dlanorh 发表于 2022-7-5 14:17:03

 
我大胆猜测这句话：
 

(entmake '((0 . "POLYLINE") (70 . ))需要一个额外的）。

Tharwat 发表于 2022-7-5 14:19:57

https://www.cadtutor.net/forum/topic/65914-error-extra-right-paren-on-input/?tab=comments#comment-542102

drdownload18 发表于 2022-7-5 14:22:11

我仍然得到相同的错误

查看完整版本: 按点的二维到三维多段线