如何在3D Pline/3D Spl上标记

Phiphi · 发表于 2022-7-6 15:06:57

感谢JohnM的LISP，我刚刚创建了一条三维多段线和三维样条曲线，但我不知道如何在三维多段线和三维样条曲线上标记点到点的指定距离（或变化）。是否需要LISP例程来支持解决此问题？有关详细信息，请参见附图，但请注意，所有点和尺寸均不正确，仅供展示。请帮忙，谢谢。

登录/注册后可看大图

标记距离。图纸

lpseifert · 发表于 2022-7-6 15:18:51

这将在距离曲线起点指定距离处放置一个点
为我个人使用而写，无错误检查。。。。

copy


;places point at specified station along a polyline, measured from start LPS 2008
(defun c:pop ()
(vl-load-com)
(setq oldosnap (getvar "osmode"))
(setvar "osmode" 0)
(command "ucs" "w")
(if (/= (getvar "pdmode") 3)(setvar "pdmode" 3))
(setq ob (entsel "Select curve: "))
(setq p2 (getreal "\n Specify Distance : "))
(setq obj (vlax-ename->vla-object (car ob)))
(setq pt1 (vlax-curve-getPointAtDist Obj p2))
(command "Point" pt1)
(command "ucs" "p")
(setvar "osmode" oldosnap)
(princ)
)

Phiphi · 发表于 2022-7-6 15:19:08

感谢Lpsifert，但指定的距离必须是点到点的对齐尺寸，而不是沿曲线的长度。

lpseifert · 发表于 2022-7-6 15:29:30

以尺寸的起点为中心绘制一个半径为所需距离的圆。

Phiphi · 发表于 2022-7-6 15:33:21

您好，请注意，它们是三维多段线和三维样条曲线，那么哪些UCS将用于绘制该圆？

登录/注册后可看大图

Lee Mac · 发表于 2022-7-6 15:38:58

试试这个：

copy


(defun c:dimcurve  (/ vLst oVar cEnt sDis pt cnt pt2 pt3)
 (setq    vLst (list "PDMODE" "OSMODE" "CMDECHO")
   oVar (mapcar 'getvar vLst))
 (mapcar 'setvar vLst (list 3 0 0))
 (if (and (setq cEnt (car (entsel "\nSelect Curve >  ")))
      (member (cdadr (entget cEnt)) '("LINE" "POLYLINE" "LWPOLYLINE" "SPLINE" "ARC" "CIRCLE" "ELLIPSE"))
      (not (initget 7))
      (setq sDis (getreal "\nSpecify Spacing >  ")))
   (progn
     (command "_ucs" "_w")
     (setq cnt 0)
     (while (>= (distance (setq pt (vlax-curve-GetPointAtDist cEnt (* sDis cnt))) (vlax-curve-GetEndPoint cEnt)) sDis)
   (command "_point" pt)
   (setq pt2 (polar pt (+ (/ pi 2) (angle '(0 0 0) (vlax-curve-getFirstDeriv cEnt (vlax-curve-GetParamAtPoint cEnt pt)))) 5.0))
   (command "_dimaligned" pt (setq pt3 (vlax-curve-GetPointAtDist cEnt (* sDis (setq cnt (1+ cnt))))) pt2)
   (command "_point" pt3))
     (command "_ucs" "_P"))
   (princ "\n<!> Nothing Selected <!>"))
 (mapcar 'setvar vLst oVar)
 (princ))