奇怪的多段线entmake生成问题

zhuizhu · 发表于 2013-6-20 09:19:55

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

;生成一条两顶点多段线（多顶点类似）
;参数: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))
)

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

炫翔 · 发表于 2013-6-20 09:29:42

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

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

zhuizhu · 发表于 2013-6-20 10:13:39

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

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

Free-Lancer · 发表于 2013-6-20 11:44:52

要二维点吧

ysq101 · 发表于 2013-6-20 13:09:36

比我还新手{:soso_e100:}

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

[求助] 奇怪的多段线entmake生成问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评