Tharwat 发表于 2022-7-6 08:58:01

 

(if (and
   (setq sp (car (entsel "\n Select Spline :")))
   (eq (cdr (assoc 0 (entget sp))) "SPLINE")
   )
(progn
   (princ (vlax-curve-getStartPoint sp))
   (princ (vlax-curve-getendPoint sp))
)
(princ "\n Nothing selected or it is not a Spline ** ")
)

transcad 发表于 2022-7-6 09:04:10

谢谢我还在睡觉。。。

Tharwat 发表于 2022-7-6 09:07:11

不客气。
 
醒醒，研究一下我们刚刚为您提供的简单代码，并毫不犹豫地要求任何澄清。
 
当做

transcad 发表于 2022-7-6 09:14:48

这就是我正在做的。。。对不起，不是用英语，但你们中的许多人会理解它是如何工作的。。。事实上是三个代码合一。。。对于不同的情况。。。代码的许多部分是不必要的，是为了我的工作方式。。。所以我会给你们看我的“杰作”。。。仍在工作，尚未完成。。。
当做
 
4

Tharwat 发表于 2022-7-6 09:15:34

祝你好运，伙计。
页: 1 [2]
查看完整版本: 测量vlax曲线getPointA