导出直线点和矩形

structo · 发表于 2022-7-5 17:02:58

大家好，

我要图层描述，起点坐标，终点坐标。和矩形层描述，左下角点坐标和右上角坐标到记事本。请查看记事本的格式。

单线数据示例为：线“Layer1”“45.56,0.23”“45.56,2.56”
这里“线”是对象的类型，层名称=Layer1，线的起点为=45.56,0.23，线的终点为=“45.56,2.56”

对于矩形数据：Rec“Layer3”“45.49,0.12”“45.72,0.50”

这里Rec是矩形对象，层名称=Layer1，左下角的矩形角点是45.49，0.12，右上角的矩形角点是45.72，0.50。

请用lisp求解。

谢谢
输出格式。txt文件
导出直线记录点。图纸

BIGAL · 发表于 2022-7-5 17:13:17

学习Lisp程序的好时机。任何一本好的lisp书籍都会给你所有的答案，你想要的是获取关于一个对象的信息的基础知识，google assoc 10&assoc 11或vla get startpoint，vla get endpoint。也包括assoc 8、assoc 0。最后“写行”

只要看看Cadtutor这里的代码示例，就知道有“entsel”的代码示例太多了。

此外，矩形对象不存在，它成为具有4个点的样条线，但很容易获得角点。

copy

; copy these two lines to the command line 1 at a time and pick a line.
(setq obj (entget (car (entsel "Pick line"))))
(setq stpt (assoc 10 obj))

structo · 发表于 2022-7-5 17:25:33

比加尔，

我正在寻找我的绘图lisp例程。请共享lisp。

谢谢

BIGAL · 发表于 2022-7-5 17:42:17

Cadtutor并不是一项免费服务，我们提供代码，因为我们有理由这样做。

structo · 发表于 2022-7-5 17:47:30

尊敬的BIGAL：，

我正在从这个网站寻求帮助。

halam · 发表于 2022-7-5 17:56:03

斯图克托，我建议你看看李·麦克网站上的entopo程序。事实上，对于任何lisp问题，我都会从那里开始。。

structo · 发表于 2022-7-5 18:11:47

哈拉姆，
谢谢你的回复。我需要导出这些点到记事本和相同的记事本应用于开发由记事本输出绘图。这可以通过lisp实现吗？

[编程交流] 导出直线点和矩形

发表回复

精选推荐

浏览过的版块