希望版主能帮我编一个查看拟合多段线的路径和更改路径的LISP程序

龙吟舞 · 发表于 2014-4-16 10:19:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

第一次发贴也不知道能不能成功，要求见附件

龙吟舞 · 发表于 2014-4-16 10:25:46

本帖最后由龙吟舞于 2014-4-17 08:07 编辑

由于论坛上传附件有设置，现在将动态文件压缩了下，终于可以上传了。因为工作上的原因，每天必须用到拟合多段线的方向问题，希望那位高手能帮我作一个LISP的查看和更改多段线方向程序，输入命令后，框选拟合过的多段线，就能显示多段线的方向，在多段线起始的线端点处有一个类似于点标记的记号（最好是点标记，这样可以随窗口显示的图形大小而改变），当多段线改变方向后，点标记也随之改变（点标记颜色随当前窗口图层），改变多段线方向时可以多选（连续单个的选择，不能可用框选）。附件图一为多段线原来的方向，图二为更该后的多段先方向。CAD版本2007，最好是帮忙做成LISP的程序，直接加载就能调用的那种，论坛中好多很好的程序是AIP的，我到现在也还没学会怎么用。

newer · 发表于 2014-4-16 10:31:50

龙吟舞发表于 2014-4-16 10:25
刚附件没成功上传，现在重新传一次

把你所有的要求都用文字和图片贴到论坛上来，方便交流。

龙吟舞 · 发表于 2014-4-16 10:42:52

newer 发表于 2014-4-16 10:31
把你所有的要求都用文字和图片贴到论坛上来，方便交流。

附件传了两次了，都没成功

newer · 发表于 2014-4-16 11:15:25

龙吟舞发表于 2014-4-16 10:42
附件传了两次了，都没成功

你先练练怎么传附件吧。

龙吟舞 · 发表于 2014-4-16 12:41:45

newer 发表于 2014-4-16 11:15
你先练练怎么传附件吧。

这也太小了点吧，附件小于1000个KB

st788796 · 发表于 2014-4-16 13:06:31

说明下用的cad版本，高版本有recover命令

龙吟舞 · 发表于 2014-4-17 08:09:46

龙吟舞发表于 2014-4-16 10:42
附件传了两次了，都没成功

我已按版主你的要求上传了文件个文字说明，希望版主能帮我个忙

龙吟舞 · 发表于 2014-4-19 20:57:34

各位版主，就不能帮我下吗？这个对我真的很有用处啊

XDSoft · 发表于 2014-4-19 23:17:02

龙吟舞发表于 2014-4-16 10:25
由于论坛上传附件有设置，现在将动态文件压缩了下，终于可以上传了。因为工作上的原因，每天必须用到拟合多 ...

你必须得学会使用API，难道你让开放者为了将就你的不学习，要写很多重复的代码吗？

龙吟舞 · 发表于 2014-4-20 08:25:36

XDSoft 发表于 2014-4-19 23:17
你必须得学会使用API，难道你让开放者为了将就你的不学习，要写很多重复的代码吗？

我也在学怎么使用API，也看了论坛里的API加载和调用的贴，我现在有个疑问是API是可以单独加载使用呢？还是一定要配合晓东工具箱使用呢？无论如何还是请版主帮我编个程序，我会学会使用的，因为是刚来这论坛有些东西刚接触还没习惯，很多习惯还是明经那边的对这里可能不实用，我会慢慢习惯这里的。

st788796 · 发表于 2014-4-20 08:38:20

本帖最后由 st788796 于 2014-4-20 08:39 编辑

加载 arx 即可，使用 API 写起来更方便，用Autolisp当然也可以，那些重复语句就要写很多了

(defun c:tt (/ ss)
(if (setq ss (ssget '((0 . "Lwpolyline"))));_选择多段线
(progn
(xdrx_layer_make "$XDStartPoint" 1);_新建临时图层
(xdrx_setmark);_标记，用于选择生成的起点标记
(mapcar
'(lambda (x)
(xdrx_donut_make (xdrx_curve_getstartpoint x) 0 10.)
);_取得起点，并在起点处绘制一个实心圆环
(xdrx_pickset->ents ss);_选择集转换为实体列表
)
(xdrx_entity_setlayer (xdrx_getss) "$XDStartPoint");_将所有实心圆环置于临时图层
)
)
(princ)
)

龙吟舞 · 发表于 2014-4-20 11:08:22

st788796 发表于 2014-4-20 08:38
加载 arx 即可，使用 API 写起来更方便，用Autolisp当然也可以，那些重复语句就要写很多了

谢谢版主的帮助，非常感谢我学会ARX的加载使用，程序试用了下效果很满意。有点遗憾的是还有下半个更改路径的程序版主没帮我作出来，有个不情只请不知版主能帮我完成下半个更改路径的程序不，路径更该的同时，那个点标记也随之更改，那样就更完美了。我已经喜欢上这论坛了，可以让我这样的菜鸟学到不上好东西，不知论坛有没有QQ群。

st788796 · 发表于 2014-4-20 12:12:44

本帖最后由 st788796 于 2014-4-20 13:14 编辑

改方向就一个函数xdrx_curve_reverse

看api手册说明

st788796 · 发表于 2014-4-20 17:46:41

龙吟舞发表于 2014-4-20 11:08
谢谢版主的帮助，非常感谢我学会ARX的加载使用，程序试用了下效果很满意。有点遗憾的是还有下半个更改路 ...

(defun c:tt (/ ss ss1 s0)
(if (setq ss (ssget '((0 . "*polyline"))))
(progn
(xdrx_layer_make "$xdtempmark" 1)
(xdrx_setmark)
(mapcar
'(lambda (x / point)
(setq point (xdrx_point_make (xdrx_curve_getstartpoint x)))
)
(xdrx_pickset->ents ss)
)
(xdrx_entity_setlayer (xdrx_getss) "$xdtempmark")
(xdrx_pickset_highlight ss)
(princ "\n选择反向曲线.....")
(if (setq ss1 (ssget '((0 . "*polyline"))))
(mapcar '(lambda (x)
(xdrx_curve_reverse x)
)
(xdrx_pickset->ents ss1)
)
)
(xdrx_pickset_highlight ss t)
(xdrx_entity_delete (ssget "x" '((8 . "$xdtempmark"))))
)
)
(princ)
)

账号		自动登录	找回密码
密码			立即注册

[编程申请] 希望版主能帮我编一个查看拟合多段线的路径和更改路径的LISP程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评