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

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

本帖最后由 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 static/image/common/back.gif
;;;构造矩形 highflybird的
(defun Make-Rectange (pt1 pt2)
(entmake


谢谢提供资料，已解决

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

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

顶起来，这个代码有了？
页: [1]
查看完整版本: 如何用entmake创建多线？（注意不是多段线）