设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 如何创建POLYLINE??
12下一页
返回列表 发新帖
查看: 2653|回复: 13

如何创建POLYLINE??

  [复制链接]
lionyoyo
发表于 2008-5-28 16:00:00 | 显示全部楼层 |阅读模式

如何创建POLYLINE??

我的这段代码始终不能运行
提示：“错误: 输入中的点位置不正确”
请指教，谢谢


(defun c:ym ( / )

(entmake '((0 . "POLYLINE")
             ;(100 . "AcDbEntity")
             ;(67 . 0) (410 . Model)
             ;(8 . 0)
             ;(100 . "AcDb2dPolyline")
             ;(90 . 7)
             (70 . 128)
             ;(43 . 0.0)
             ;(38 . 0.0)
             (66 . 1)
             (10 1.9 10.0)
             (40 . 0.0) (41 .0.0) (42 . 0.0)
             (10 0.1 0.0)
             (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 3.9 0.0)
             (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 2.1 10.0 0.0)
             (40 . 0.0) (41 . 0.0) (42 . -1.0)
             (10 5.9 10.0 0.0)
             (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 4.1 0.0 0.0)
             (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 7.9 0.0 0.0)
             (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (210 0.0 0.0 1.0)
             )
  )

  (princ)
)

回复

使用道具 举报

skg123
发表于 2022-5-7 19:57:05 | 显示全部楼层
本帖最后由 skg123 于 2022-5-7 20:08 编辑
  2. (defun c:tt ( / )
  3. (entmake '((0 . "POLY-LINE")
  4.              (100 . "AcDbEntity")
  5.              (67 . 0)
  6.              (8 . "0")
  7.              (100 . "AcDbPolyline")
  8.               (90 . 7)
  9.              (70 . 128)
  10.              (43 . 0.0)
  11.              (38 . 0.0)
  12.              (66 . 1)
  13.              (10 1.9 10.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
  14.              (10 0.1 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
  15.              (10 3.9 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
  16.              (10 2.1 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . -1.0)
  17.              (10 5.9 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
  18.              (10 4.1 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
  19.              (10 7.9 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
  20.              (210 0.0 0.0 1.0)
  21.           )
  22. )
  23. (princ)
  24. )



  28. ;;By Longxin 明经通道 2006.03

  30. ;;生成一条pline
  31. ;;参数：
  32. ;;plist:坐标点表，如：((x1 y1 z1) (x2 y2 z2) (x2 y2 z2))或((x1 y1) (x2 y2) (x2 y2))
  33. ;;tudulist:各点之间的凸度表，与plist相对应，可为nil
  34. ;;bg：标高
  35. ;;clo:是否闭合，1:闭合，0：不闭合
  36. (defun c:test ()
  37. (setq a '((102.946 68.6354 3) (112.102 97.4851 3) (125.484 59.4879 3) (103.651 52.4513 3))
  38. b '(-1.02092 -0.485629 0 -1.31201)
  39. )
  40. (makepline a b 211 1)
  41. )

  43. (defun makepline (plist clo bg tudulist / dxf n i pt)
  44.   (setq bg  (cons 38 bg)
  45. i   0
  46. n   (length plist)
  47. dxf nil
  48.   )

  50.   (if (= clo 1)
  51.     (entmake (list '(0 . "POLYLINE") '(66 . 1) '(70 . 1) bg))
  52.     (entmake (list '(0 . "POLYLINE") '(66 . 1) bg))
  53.   )
  54.   (repeat n
  55.     (setq pt (nth i plist)
  56.    pt (list (nth 0 pt) (nth 1 pt))
  57.     )
  58.     (if tudulist
  59.       (entmake (list (cons 0 "VERTEX")
  60.        (cons 10 pt)
  61.        (cons 42 (nth i tudulist))
  62.         )
  63.       )
  64.       (entmake (list (cons 0 "VERTEX")
  65.        (cons 10 pt)
  66.         )
  67.       )
  68.     )
  69.     (setq i (1+ i))
  70.   )
  71.   (entmake '((0 . "SEQEND")))
  72.   (princ)
  73. )
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=44662&highlight=POLYLINE
代码来源 上面帖子的 5楼，但是我没有测试成功
(entmake '((0 . "POLYLINE")

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

skg123
发表于 2022-5-7 21:03:52 | 显示全部楼层
搜索了一晚上，终于成功了
https://www.highflybird.cn/drupal/node/148
  2. (defun c:test ()
  3. (setq pts '((102.946 68.6354 3) (112.102 97.4851 3) (125.484 59.4879 3) (103.651 52.4513 3))
  4. Closed 1
  5. )
  6. (Ent:Make_Poly pts 1)
  7. )
  8. (defun Ent:Make_Poly (pts Closed / e)
  9.   (if (=  Closed 1)
  10.     (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 9))))
  11.     (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 8))))
  12.   )
  13.   (foreach p pts
  14.     (entmake (list '(0 . "VERTEX") '(70 . 32) (cons 10 p)))
  15.   )
  16.   (entmake '((0 . "SEQEND")))
  17.   (entlast)
  18. )
回复 支持 反对

使用道具 举报

skg123
发表于 2022-5-7 20:16:49 | 显示全部楼层
本帖最后由 skg123 于 2022-5-7 21:13 编辑

(conmand ".3dpoly" pt1 pt2 pt 3 pt4 "C")

完整代码，请翻看论文
https://www.docin.com/p-1521012869.html

高飞鸟大神的代码

https://www.highflybird.cn/drupal/node/148

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

asen
发表于 2008-5-28 17:17:00 | 显示全部楼层

看看

(entmake '((0 . "LWPOLYLINE")
             (100 . "AcDbEntity")
             (67 . 0)
      (410 . "Model")
             (8 . "0")
             (100 . "AcDbPolyline")
             (90 . 7)
             (70 . 128)
             (43 . 0.0)
             (38 . 0.0)
             (66 . 1)
             (10 1.9 10.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 0.1 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 3.9 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 2.1 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . -1.0)
             (10 5.9 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 4.1 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 7.9 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (210 0.0 0.0 1.0)
             )
  )

回复 支持 反对

使用道具 举报

liminnet
发表于 2008-5-28 17:33:00 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

lionyoyo
 楼主| 发表于 2008-5-28 18:50:00 | 显示全部楼层

混分不是这个混法啊

去掉;和不去掉有什么分别啊

LWPOLYLINE我也试过

是加载时就提示错误

又找不到错在哪

回复 支持 反对

使用道具 举报

ZZXXQQ
发表于 2008-5-28 19:42:00 | 显示全部楼层

这样试试

(entmake '((0 . "LWPOLYLINE")
             (100 . "AcDbEntity")
             (67 . 0)
             (8 . "0")
             (100 . "AcDbPolyline")
             (90 . 7)
             (70 . 128)
             (43 . 0.0)
             (38 . 0.0)
             (66 . 1)
             (10 1.9 10.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 0.1 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 3.9 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 2.1 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . -1.0)
             (10 5.9 10.0 0.0)  (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (10 4.1 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 1.0)
             (10 7.9 0.0 0.0)   (40 . 0.0) (41 . 0.0) (42 . 0.0)
             (210 0.0 0.0 1.0) 
          )
)

回复 支持 反对

使用道具 举报

wwwliuyu
发表于 2008-5-28 20:03:00 | 显示全部楼层
自己检查下书写正不正确,可以先画一条多段线,再用ENTGET对比一下自己的.
回复 支持 反对

使用道具 举报

lionyoyo
 楼主| 发表于 2008-5-28 20:10:00 | 显示全部楼层

版主这个好用

但是没弄明白我的那个错在哪了

为什么不能执行

另外，

             (90 . 7)
             (70 . 128)
             (43 . 0.0)
             (38 . 0.0)
             (66 . 1)

这5对组码代表什么，版主能给我讲下吗

回复 支持 反对

使用道具 举报

ZZXXQQ
发表于 2008-5-28 20:30:00 | 显示全部楼层
为什么不看ACAD的帮助？
回复 支持 反对

使用道具 举报

lionyoyo
 楼主| 发表于 2008-5-29 13:07:00 | 显示全部楼层

就是看了帮助

多段线组码里就没有这几项

还有42组码的意义也找不到

回复 支持 反对

使用道具 举报

ZZXXQQ
发表于 2008-5-29 22:57:00 | 显示全部楼层
下面是R14版帮助内容 LWPOLYLINE组码
组码 说明
100  子类标记 (AcDbPolyline)
90   顶点数
70   多段线标志（位码）；缺省值为 0：1 = 关闭的；128 = 多段线生成
43   常量宽度（可选，缺省值= 0）；当设置了变化的宽度（组码 40 和/或 41）时，不使用该组码
38   标高（可选，缺省值= 0）
39   厚度（可选，缺省值= 0）
10   顶点坐标（在 WCS 中）（多图元），每个顶点都有该条目。：X 值；APP：二维点
20   DXF：顶点坐标的 Y 值（在 WCS 中）（多图元）；每个顶点都有该条目。
40   起始宽度（多图元，每个顶点都有该条目）（可选，缺省值= 0，多条目）。如果设置了常量宽度（组码 43），则不使用该组码。
41   结束宽度（多图元，每个顶点都有该条目）（可选，缺省值= 0，多条目）。如果设置了常量宽度（组码 43），则不使用该组码。
42   凸度（多图元，每个顶点都有该条目）（可选，缺省值= 0）。
210  拉伸方向（可选，缺省值= 0, 0, 1）。
     DXF：X 值；APP：三维矢量
220, 230 DXF：拉伸方向的 Y 和 Z 值
回复 支持 反对

使用道具 举报

12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-11-14 14:38 , Processed in 0.214612 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表