奇怪的多段线entmake生成问题

zhuizhu

;生成一条两顶点多段线（多顶点类似）
;参数:pt1:起点，pt2:下一点
(defun pline2 (pt1 pt2)
   (entmake
      (list
        '(0 . "lwpolyline")
        '(100 . "acdbentity")
        '(100 . "acdbpolyline")
        (cons 90 2) ;顶点数（一定要有的），例为2个顶点
        (cons 10 pt1)
        (cons 10 pt2)
      )
   )
)


(DEFUN C:tt()
(pline2 (GETPOINT)(GETPOINT))
)

上面的程序，执行后，怎么为空呢？

炫翔

:o仔细看了下，应该是大小写的问题

2. (DEFUN C:xx ()
   
3.   (setq pt1 (getpoint)
   
4.         pt2 (getpoint)
   
5.   )
   
6.   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")
   
7.                  (cons 90 2) (cons 10 pt1) (cons 10 pt2)
   
8.            )
   
9.   )
   
10. )

(DEFUN C:xx ()<br />   (setq pt1 (getpoint)<br />         pt2 (getpoint)<br />   )<br />   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")<br />                  (cons 90 2) (cons 10 pt1) (cons 10 pt2)<br />            )<br />   )<br /> )

zhuizhu

炫翔 发表于 2013-6-20 09:29
仔细看了下，应该是大小写的问题

非常感谢版主，原来是这样的，
那我其他的也要改成这样的才行

Free-Lancer

要 二维点 吧

ysq101

比我还新手{:soso_e100:}