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

clh521

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

自贡黄明儒

;;;构造矩形 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

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

clh521

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

谢谢提供资料，已解决

尘缘一生

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

顶起来，这个代码有了？