如何用entmake创建多线？（注意不是多段线）

clh521 · 发表于 2013-9-18 15:29:49

本帖最后由 clh521 于 2013-9-18 15:32 编辑

如何用entmake创建多线？（如同ML命令创建的多线一样）。entmake创建多线的必要条件是什么啊

自贡黄明儒 · 发表于 2013-9-18 17:00:32

;;;构造矩形 highflybird的
(defun Make-Rectange (pt1 pt2)
  (entmake
(list
   '(0 . "LWPOLYLINE")                                        ;轻多段线
   '(100 . "AcDbEntity")
   '(100 . "AcDbPolyline")
   '(90 . 4)                                                 ;四个顶点
   '(70 . 1)                                                 ;闭合
   (cons 38 (caddr pt1))                                     ;高程
   (cons 10 (list (car pt1) (cadr pt1)))                      ;左下角
   (cons 10 (list (car pt2) (cadr pt1)))                      ;右下角
   (cons 10 (list (car pt2) (cadr pt2)))                      ;右上角
   (cons 10 (list (car pt1) (cadr pt2)))                      ;左上角
   (cons 210 '(0 0 1))                                        ;法线方向
)
  )
)

VBALISPER · 发表于 2013-9-19 09:32:26

先画一个多线,查看它的组码?再根据它的组码来写entmake

clh521 · 发表于 2013-9-22 15:38:22

自贡黄明儒发表于 2013-9-18 17:00
;;;构造矩形 highflybird的
(defun Make-Rectange (pt1 pt2)
(entmake

谢谢提供资料，已解决

尘缘一生 · 发表于 2022-3-25 00:08:35

clh521 发表于 2013-9-22 15:38
谢谢提供资料，已解决

顶起来，这个代码有了？

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

[基础] 如何用entmake创建多线？（注意不是多段线）

相关帖子