请求捕获大型nu

hamidciv · 发表于 2022-7-5 22:26:19

你好，亲爱的朋友们
：（我想用lisp代码捕捉一个大的坐标点，然后用直线连接，我知道用scr可以做到这一点，但在lisp中怎么做到？
谢谢

marko_ribar · 发表于 2022-7-5 22:41:23

有很多可能性。。。捕捉点后，您想要什么类型的阵列-从拾取的起点到最短距离的连接；从拾取的起点到最大距离；通过从拾取的最小x坐标起点最近的x坐标；等

hamidciv · 发表于 2022-7-5 22:51:41

尊敬的marko_riber：
我想要捕捉例如点1（5 8 10），点2（20 10 0）。。。。。，点1000（10 20 25）并通过线路连接。
谢谢

marko_ribar · 发表于 2022-7-5 22:59:16

您是否已经准备好列表中具有正确阵列的点列表。。。如果是这样，那么这就可以了。。。

copy


(mapcar '(lambda ( a b ) (entmake (list '(0 . "LINE") (cons 10 a) (cons 11 b)))) ptlist (cdr ptlist))

hamidciv · 发表于 2022-7-5 23:02:12

如果可能的话，举一个简单的例子，捕捉用户命令行中的两个坐标点，并将它们与命令行连接。（我的主要目标是在命令行中输入坐标，这是怎么做到的？）
谢谢

hamidciv · 发表于 2022-7-5 23:09:50

如果可能的话，请解释一下这个代码，你放的这个代码是否满足了我的要求？
谢谢

marko_ribar · 发表于 2022-7-5 23:19:24

下面是具体lisp例程中的快速解释。。。

copy


(defun c:drawlines ( / p ptlist pp )
 (setq p (getpoint "\nPick or specify start point : "))
 (setq ptlist (cons p ptlist))
 (setq pp p)
 (while (setq pp (getpoint pp "\nPick or specify next point <Exit> : "))
   (setq ptlist (cons pp ptlist))
 )
 (setq ptlist (reverse ptlist)) [color=red];;; Here ptlist has been generated ;;;[/color]
 (mapcar '(lambda ( a b ) (entmake (list '(0 . "LINE") (cons 10 a) (cons 11 b)))) ptlist (cdr ptlist)) 
 [color=red];;; Here is the code for drawing lines from list of points (every 2 consecutive points are connected with line entity) ;;;[/color]
 (princ)
)

HTH，M.R。

hamidciv · 发表于 2022-7-5 23:27:43

亲爱的marko，我的问题解决了，非常感谢

[编程交流] 请求捕获大型nu

发表回复

精选推荐