社区 › Auto Lisp › 如何制作点enti列表

subodh_gis 发表于 2022-7-5 16:41:27

如何制作点enti列表

这是代码的一部分。我得到了；错误：错误的点列表
我们将如何制作点pt1和pt2的列表，以便在ssget“F”中通过。请帮忙

(setq txt (entsel "Select text: "))

   (setq oText (vlax-ename->vla-object (car txt)))
   (setq pt1 (vlax-safearray->list (vlax-variant-value (vlax-get-property oText 'InsertionPoint))))
(setq x1 (car pt) y1 (cadr pt))
(setq angle_obj (vlax-get-property oText 'Rotation))
(setq pt2 (polar pt (+ angle_obj PI 90) 0.3))
       (setq x2 (car pt) y2 (cadr pt))

(setq ss (ssget "_F" '((x1 y1) (x2 y2)) ))

Roy_043 发表于 2022-7-5 16:53:30

取而代之的是：
使用以下方法：
或者：
注：pt变量似乎未定义。

tombu 发表于 2022-7-5 17:06:34

看看http://www.lee-mac.com/quote.html

subodh_gis 发表于 2022-7-5 17:11:50

感谢您的回复，但当我使用
错误：错误参数类型：LSETP nil
 
但是当我们写x-y坐标时，代码运行良好。喜欢
最后介绍了如何制作pt1和pt2的xy坐标表。

tombu 发表于 2022-7-5 17:21:08

这应该可以解释一下：
6

Roy_043 发表于 2022-7-5 17:28:45

@汤布：
你是说第一个围栏点必须是3D点，但其他点可以是2D？

tombu 发表于 2022-7-5 17:34:21

不，只是没关系。示例代码仅此而已。开始简化TEXTBOX函数的使用，但实际上
7会做同样的事情。

subodh_gis 发表于 2022-7-5 17:46:39

@汤布
谢谢兄弟！它现在正在工作。

查看完整版本: 如何制作点enti列表