[求助]：救教关于编能绘出多段线的lisp程序!!

tgh56 · 发表于 2005-4-2 16:37:39

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

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

×

先决条件是程序中不能用到command函数,(用这个函数的多段线程序我已经搞定了)
我用entmake函数只能编出line线,一直编不出pline线程序,有会的教教我!!

xiao_longxin · 发表于 2005-4-2 18:09:28

(
(-1 . <图元名: 40095978>)
(0 . "LWPOLYLINE")
(330 . <图元名: 40093cc0>)
(5 . "3AF")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "0")
(6 . "Continuous")
(100 . "AcDbPolyline")
(90 . 10) (70 . 128)
(43 . 0.0) (38 .
0.0)
(39 . 0.0)
(10 101.768 52.6005)
(40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(10 130.573 70.5614)
(40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(10 143.478 87.6013)
(40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(10 139.1 102.569)
(40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(10 120.664 107.174)
(40 . 0.0) (41 . 0.0)
(42 . 0.0)
(10 96.4681 97.5028)
(40. 0.0)
(41 . 0.0)
(42 . 0.0)
(10 78.2632 89.9039)
(40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(10 74.8065 86.2196)
(40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(10 73.8848 70.1009)
(40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(10 90.4766 68.489)
(40 . 0.0)
(41 . 0.0)
(42. 0.0)
(210 0.0 0.0 1.0))

多段线组码

组码                说明

100 ：                子类标记（AcDb2dPolyline 或 AcDb3dPolyline）

10 ：                   DXF：始终为 0；APP：一个“伪”点，X 和 Y 值始终为零，Z 值为多段线的标高（二维时在 OCS 中，三维时在 WCS 中）

20    ：          DXF：始终为零

30 ：                   DXF：多段线的标高（二维时在 OCS 中，三维时在 WCS 中）

39：
厚度（可选，缺省值= 0）

70：
多段线标志（位编码）；缺省值为 0：

1 = 这是一个闭合的多段线（或在 M 方向闭合的多边形网格）；

2 = 曲线拟合添加了顶点；

4 = 添加样条曲线拟合添加了顶点；

8 = 这是一个三维多段线；

16 = 这是一个三维多边形网格；

32 = 在 N 方向闭合的多边形网格；

64 = 多段线是多面网格；

128 = 不断在此多段线顶点的周围生成线型图案；

40：
缺省开始宽度（可选，缺省值= 0）

41：
缺省结尾宽度（可选，缺省值= 0）

71：
多边形网格的 M 顶点数（可选，缺省值= 0）

72：
多边形网格的 N 顶点数（可选，缺省值= 0）

73：
平滑表面 M 向的密度（可选，缺省值= 0）

74：
平滑表面 N 向的密度（可选，缺省值= 0）

75：
曲线和平滑表面类型（可选，缺省值= 0），整型编码，不是位码：

0 = 无平滑表面拟合：

5 = 二次 B 样条曲线表面；

6 = 三次 B 样条曲线表面；

8 = Bezier 表面

210：
拉伸方向（可选，缺省值= 0, 0, 1）

DXF：X 值；APP：三维矢量

220, 230：
DXF：拉伸方向的 Y 和 Z 值(可选)

tgh56 · 发表于 2005-4-2 19:23:54

谢谢2楼的回复!!我不是想要这个,我是想解决用LISP自己编一个绘多断线的函数,
下面是我编的一个lisp,但绘的多断线是一截一截的,我要的是连续的多断线,就象cad自带的,pline命令一样.
(defun hx ()

  (setq z1 (getpoint "\n第一点:")
z3 z1
z1 (cons 10 z1)
z1 (list '(0 . "vertex") z1)
  )
  (while
(setq z2 (getpoint z3 "\n第二点:")
   z3 z2
   z2 (cons 10 z2)

   z2 (list '(0 . "vertex") z2)
)
   (entmake '((0 . "polyline") (66 . 1)))
   (entmake z1)
   (entmake z2)

   (entmake '((0 . "seqend")))
   (setq z1 z2)
  )
)

david96007 · 发表于 2005-4-7 22:46:56

复杂图元在其定义完成之前，不会有任何部分显示在图形中。直到最终的 seqend 和 endblk 子图元被传入 entmake，图元才会出现在图形数据库中。

谢小海 · 发表于 2005-4-8 13:01:42

我是一个新手啊！现在学习编线切割3B 程序的LISP语言啊！不知道怎么编啊！有没有样例指教一下！谢谢！

LUCAS · 发表于 2005-4-11 17:05:19

;;為甚麼不用COMMAND?

(defun HX (/ Z1 Z2 Z3)
(vl-load-com)
(setq Z1 (getpoint "\n指定起點: ")
Z3 Z1
Z1 (cons 10 Z1)
Z1 (list '(0 . "vertex") Z1)
)
(entmake '((0 . "polyline") (66 . 1)))
(while (setq Z2 (getpoint Z3 "\n指定下一點: "))
(grdraw (cdadr Z1) Z2 -1 1)
(princ)
(setq Z3 Z2
Z2 (cons 10 Z2)
Z2 (list '(0 . "vertex") Z2)
)
(entmake Z1)
(entmake Z2)
(setq Z1 Z2)
)
(entmake '((0 . "seqend")))
(redraw)
(princ)
)

青马 · 发表于 2005-4-12 17:30:00

(setq p0 (getpoint "\n请输入第一点<退出>")) ;线的第一点
  (setq p1 (getpoint "\n输入下一点<退出>"))
  (command "pline" p0 p1 "") ;画第一段线
  (setq ss (entlast))
  (setq p2 (getpoint "\n输入下一点<退出>"))
  (while (/= p2 nil)
(progn
   (command "pline" p1 p2 "")
   (setq ss1 (entlast))
   (command "pedit" ss "j" ss1 "" "")
   (setq ss (entlast))
   (setq p1 p2)
   (setq p2 (getpoint "\n输入下一点<退出>"))
)
  ) ;如果最后一点不是空，就一直画pline，并和前一条pline合并为一个pline

但有一些问题我不知怎么解决
1。我想在中间加一个u的参数，画错了可以回到上一段线，和pline中的一样，我还想加一个c的参数，可以封闭pline,这两个我都不知怎么下手，请大家帮着给解答一下，谢谢先

xiao_longxin · 发表于 2005-4-16 23:37:37

为什么不能command函数？先说明理由

bloodmao · 发表于 2008-12-13 20:30:05

这个程序能合并二级多段线吗？

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

[求助] [求助]：救教关于编能绘出多段线的lisp程序!!

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

相关帖子