请教：如何重新指定一条封闭多段线的起点？（已解决，感谢andyhon）

mandala

Andyhon 发表于 2011-3-14 10:39
您试试这段代码
(setq dat (entget ee)      ;  LwPolyLine ee
   ptfrst (cons 10 pt)     ; pt ==> 新起 ...

看了一下，我觉得老兄的这段lsp还是很有道理的，不过我对如何具体使用还是不太懂，我这么一用，结果是什么都没了：
(defun c:aa ()
(setq ee (car(entsel)))
(setq pt (getpoint))

(setq dat (entget ee)      ;  LwPolyLine ee
   ptfrst (cons 10 pt)     ; pt ==> 新起点 say '(100 200)
     dat0 (reverse (member '(39 . 0.0) (reverse dat)))
     dat1 (cdr (member '(39 . 0.0)  dat))
     dat9 (List (Last dat1))
     dat1 (reverse (cdr (reverse dat1)))
     data (member ptfrst dat1)
     datb (reverse (cdr (member ptfrst (reverse dat1))))
)
(entmod (append dat0 data datb dat9))

)

Andyhon

(setq pt (getpoint))
这个 pt 不合 LwPolyLine 的 Data 格式
您比对即知

mandala

Andyhon 发表于 2011-3-14 14:36
(setq pt (getpoint))
这个 pt 不合 LwPolyLine 的 Data 格式
您比对即知

我真该死，最简单的问题想了半天，应该这么用才是：
(defun c:aa ()
(setq ee (car(entsel)))
(setq p1 (getpoint))
(setq pt (list (car p1) (cadr p1)))

(setq dat (entget ee)      ;  LwPolyLine ee
   ptfrst (cons 10 pt)     ; pt ==> 新起点 say '(100 200)

     dat0 (reverse (member '(39 . 0.0) (reverse dat)))
     dat1 (cdr (member '(39 . 0.0)  dat))
     dat9 (List (Last dat1))
     dat1 (reverse (cdr (reverse dat1)))
     data (member ptfrst dat1)
     datb (reverse (cdr (member ptfrst (reverse dat1))))
)
(print pt)(print dat)
(entmod (append dat0 data datb dat9))

)

mandala

回复 Andyhon 的帖子

这段lsp的确可以改变闭合pline的起点，非常感谢！我还有一个问题：

在画闭合pline的时候，用“c”来结束pline命令。但很多时候是用捕捉端点的方式来画完一个闭合pline的，这样画出来的pline实际上是不闭合的，组码最后多了一个和起点相同的端点，另外（70）段也不对，如：

((-1 . <图元名: 7efaa138>) (0 . "LWPOLYLINE") (330 . <图元名: 7efc5cf8>) (5 .
"2CF") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "jzxl") (6 .
"Continuous") (100 . "AcDbPolyline") (90 . 5) (70 . 128) (43 . 0.0) (38 . 0.0)
(39 . 0.0) (10 298.65 -13.7655) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 318.492
-13.7655) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 317.64 -29.0924) (40 . 0.0) (41
. 0.0) (42 . 0.0) (10 296.459 -27.876) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
298.65 -13.7655) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

我的问题是：能否用lisp来让这类pline闭合，但组码中不会多出一个点来呢？因为如果用pedit的“c”来闭合，只是（70）段变成了129，而组码中依然多一个点，这给以后的编程会带来麻烦。

Andyhon

将这类型的pline交付予 overKill 处理即可

mandala

回复 Andyhon 的帖子

请问如何在lsp中引用overkill命令呢？

Andyhon

在 Lsp 中,我没用过 OverKill 呢
若不想用 OverKill 前置处理
那么依着之前的代码改动一下亦可

若一定非得在lsp中引用overkill命令,可翻翻老帖中的类似讨论....

ZZXXQQ

mandala 发表于 2011-3-14 20:58
回复 Andyhon 的帖子

这段lsp的确可以改变闭合pline的起点，非常感谢！我还有一个问题：

可直接用命令PEDIT中封闭子命令"C"

logoin

我记得之前有写过一个点击封闭多义线的一段，就在这一段打开(close->open)
你这个应该是这样，，比较笨的方法，，明经的高手应该有更好的方法
用getpoint获取到点
生成找出顶点链表
生成凸度表
找出点在表中拉置
更新顶点和凸度表...好像是这样...

mandala

ZZXXQQ 发表于 2011-3-14 21:30
可直接用命令PEDIT中封闭子命令"C"

用pedit的“c”只是将70组码变成了“129”，而表里边依然多一个点。