哪位大哥可以帮忙把龙龙仔老师“Spline转换为pline”程序修改一下

mycad · 发表于 2011-9-1 20:05:39

本帖最后由 mycad 于 2011-9-25 14:49 编辑

哪位大哥可以帮忙把龙龙仔老师“Spline转换为pline”程序修改一下，原程序把spline转化为pline，但是都是弧段，我想可不可以把spline转化为不含弧段的pline线，其中每一段的线段长度可以用户设置，可以设置每一段为0.5米，1米等，谢谢。
我把(vl-cmdf "_.pline" (nth N1 PT_LIST) "A")改为(vl-cmdf "_.pline" (nth N1 PT_LIST) "L")后，绘制的pline线开头不对，不知为什么，谢谢各位高手赐教，同时也谢谢明镜通道的龙龙仔老师，谢谢！！！

Andyhon · 发表于 2011-9-1 20:32:21

如果您不介意用偏方...
measure ==> 搜集点位 ==> 用 Pline 串接

caiqs · 发表于 2011-9-2 07:16:00

本帖最后由 caiqs 于 2011-9-2 07:35 编辑

关闭捕捉后再运行
vl-cmdf和command算不得程序，只能说是脚本，受捕捉影响较大，稳定性差

mycad · 发表于 2011-9-2 11:56:32

请问怎样“ 搜集点位 ==> 用 Pline 串接”？

Andyhon · 发表于 2011-9-2 12:02:57

您上传个文件,依您的实例来作探讨如何?

mycad · 发表于 2011-9-13 20:26:16

附图，拟合的效果图

Andyhon · 发表于 2011-9-14 08:51:28

(defun gtPtlst (sel / n pt pts)
(repeat (setq n (sslength sel))
(setq n (1- n)
pt (cdr (assoc 10 (entget (ssname sel n))))
pts (cons pt pts)
) )
)
;;; For test only
(defun c:Test ()
(setq ee (entsel)
ee (car ee)
dat (entget ee)
p0 (cdr (assoc 10 dat))
p9 (cdr (assoc 10 (reverse dat)))
dd (getdist "\n设置每一段为 ?? 米: ")
)
(command "measure" ee dd)
(setq Ptss (gtPtlst (ssget "P"))
ptss (cons
p9
(reverse (cons p0 ptss))
) )
(setVar 'OsMode 0)
(Apply 'command (cons "_PLINE" ptss))
(command)
)

mycad · 发表于 2011-9-23 13:01:53

谢谢Andyhon 大哥！

mycad · 发表于 2011-9-25 14:47:50

本帖最后由 mycad 于 2011-9-25 20:50 编辑

请问怎样删除“mearsure”生成的point实体呢？即：怎样把Andyhon 大哥的程序运行后生成的“point”实体删除，在lisp程序中处理，不用手工处理，谢谢赐教!

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

哪位大哥可以帮忙把龙龙仔老师“Spline转换为pline”程序修改一下

本帖子中包含更多资源

本帖子中包含更多资源