[寻找]：功能是"多线义反向"的lsp 【完成】

ydf7332462 · 发表于 2003-10-21 20:41:41

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

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

×

论坛有一Revpolyline的Lsp,功能是多线义反向，但不成功

luoyaya · 发表于 2003-10-22 10:31:21

我写过一个,不过只能对没有弧的PLINE线呵呵,如果你要我就贴上来

ydf7332462 · 发表于 2003-10-22 20:49:41

谢了，烦请贴上。

luoyaya · 发表于 2003-10-23 13:36:42

[code]
(defun c:repl( / pline i ct point_list point_l new_pline POINT)

  (setq pline (entget (car (entsel "点选取一pline线段:"))))
  (If (equal  (assoc 0 pline) '(0 . "LWPOLYLINE"))
(progn
   (setq i 13
      ct t
      point_list '())
   (setq new_pline (li_l pline (1+ i)) )
   (while ct
(setq i (1+ i))
(setq point (nth i pline))
(if (= (car point) 10)
   (progn
   (setq point_l (list point (nth (+ i 1) pline)))
   (setq point_l (append point_l (list (nth (+ i 2) pline))))
   (setq point_l (append point_l (list (nth (setq i (+ i 3)) pline))))
   )
   )
(if (/= (car point) 210)
(setq point_list (append point_l point_list))
   (setq ct nil)
   )

)
   (setq point_list (append point_list (list (nth i pline))))
   (setq new_pline (append new_pline point_list))
   (if (entmod new_pline)
(princ "修改成功!")
(princ "修改失败!")
)
   )
(princ "没有选中有效对象!")
)

(princ)
  )

不知道是不是你要的东西,我的是把线的开始点变为结束点,就是这样, 不管他弧的凸度

ydf7332462 · 发表于 2003-10-25 21:10:29

点选取一pline线段:;错误:no function-definition:Li-L

aeo · 发表于 2003-10-26 00:58:05

最初由 luoyaya 发布
[B我的是把线的开始点变为结束点,就是这样, 不管他弧的凸度 [/B]

没那么简单的,
倒过来以后，单条线，前后的线宽要换过来
凸度反过来，要* -1

;;;只能LWpolyline
(defun re-LWpline (e / a en how li1 li2 li3)
(setq en(entget e) how nil)
(foreach an en
(if(setq a(member(car an)'(10 40 41 42)))(setq how t))
(cond((not how)(setq li1(cons an li1)))
((and how a)
(cond((=(car an)40)(setq an(cons 41(cdr an))))
((=(car an)41)(setq an(cons 40(cdr an))))
((=(car an)42)(setq an(cons 42(- 0(cdr an)))))
(t an)
)
(setq li2(cons an li2)))
((and how(not a))(setq li3(cons an li3)))
)
)
(entmod(append
(reverse li1)
(append(cdddr li2)(list(car li2)(cadr li2)(caddr li2)))
(reverse li3)
)
)
)

试验:
先画一复杂的LWpline,宽度要变化，并带圆弧.
(defun test()
(re-LWpline(car(entsel)))
)

陌生人 · 发表于 2003-10-26 03:52:17

写得挺好:)
(if(setq a(member(car an)'(10 40 41 42)))(setq how t))
......
((and how(not a))(setq li3(cons an li3)))
能否解释下这两句,后者什么情况下成立?

Tong · 发表于 2003-10-26 08:53:01

_1_$ li3
((210 0.0 0.0 1.0))

li1 杂项 li2 顶点信息表

在R14下就不行了，要去掉实体名句柄，2000以上CAD自动检查

aeo · 发表于 2003-10-26 19:21:24

看来大家挺感兴趣:)
回答7楼问题:
en我把它分为3段，八楼说的好, li1 li2 li3为剩下的
1设how 为nil ,碰到dxf10就改为t ,这样保证的li1为dxf10以前的.
2一旦how为Ture ,只要是'(10 40 41 42),-->有a,就存为li2,这里一直没改how
3how为Ture了，就是已经过了dxf10,但不在'(10 40 41 42)里->(not a)就为剩下的了.-->'((210 ...)..)
我们要改的就是中间的li2.

这三段成立的条件是en很有规律，因为我知道碰到dxf10之前，how不可能被改为Ture,也就肯定执行cond的第一项，不可能到li3中去的.
虽然到了li3可能也不要紧，但我不想弄乱它.
其实((and how(not a))(setq li3(cons an li3)))直接写成(T(setq li3(cons an li3)))就可以

R14下，应该也行，我是修改，不是entmake，如果要entmake,(setq li1(cdr li1))就可以了.

ydf7332462 · 发表于 2003-10-27 20:41:17

6F只能LWpolyline可惜不合我

fjw_ok · 发表于 2003-10-28 14:54:43

应该加上line 就完美了

aeo · 发表于 2003-10-28 21:04:55

我想知道,反过来到底干什么。

如果LWpolyline已经可以完成呢的工作，那碰到polyline,convert一下不就行了.

ydf7332462 · 发表于 2003-10-28 21:41:09

line pline有方向,我想用其表示管道中水的流向.
Lw表示打印宽,用层宽;
pline自身线宽表示管径+坡度等
不要将前后的线宽换过来,如要换让用者选；

fjw_ok · 发表于 2003-10-29 08:36:00

比如开挖线，由于线形的关系，有时需要反向，以前
都是作了两种线形解决，但比较麻烦！

luoyaya · 发表于 2003-10-29 14:16:07

如果要用到等分就有用了,不过我那个少给了一个函数呵呵~

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

[寻找]：功能是"多线义反向"的lsp 【完成】

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

相关帖子