如何使用entmake创建LWPolyline ?

XDSoft · 发表于 2013-4-24 08:35:59

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

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

×

问：
如何使用entmake函数创建LWPolyine实体，并设置层信息和颜色、宽度等。

答：

通过下面的一些组码设置polyline实体的属性。

8 ：指定层
62 ：指定颜色
70 ：封闭与否
40 、 41：设置每一段的起始宽度和终止宽度。

下面代码用来在LISP中使用entmake创建LWPOLYLINES.

游客，本帖隐藏的内容需要积分高于 100 才可浏览，您当前积分为 0

Free-Lancer · 发表于 2013-4-24 09:32:59

来个ActiveX方法
[pcode=lisp,true](defun AddPline (sapce lst)
  (vlax-invoke
sapce
'AddLightWeightPolyline
(apply 'append
   (mapcar '(lambda (x)
      (list (float (car x));_此处应为Double, INT会Fail
      (float (cadr x))
      )
      )
   lst
   )
)
  )
)[/pcode]

ll_j · 发表于 2013-4-24 10:20:36

这是Alisp中构建PL的基本方法，不过你这段代码中有两处值得商榷：
1.宽度问题：前面43代码设定了全局宽度wdt，而后面40、41代码又定值2.0设定分段宽度，这是不合适的，一般说来，设定分段宽度，则不使用全局宽度。
2.固定值点对问题：在entmake时有些固定的点对是必不可少的，比如100组码、0组码，但构建这些固定值点对时，最好还是使用“‘”函数，而不要使用cons函数，这主要是让读者更容易看出那些是常量，那些是变量，并且，个人以为，使用直接的点对，运行效率应该更高些。

sachindkini · 发表于 2013-4-24 17:01:43

Free-Lancer 发表于 2013-4-24 09:32

登录/注册后可看大图

来个ActiveX方法
(defun AddPline (sapce lst)
(vlax-invoke

dear sir,

niceee

jakewow · 发表于 2014-9-27 15:21:04

学习一下，好东西呵呵

jakewow · 发表于 2014-9-27 15:21:36

额居然还看不到，积分不够啊

木个木 · 发表于 2017-6-13 22:54:30

一定要用entmake吗？ command少用？

fn2398 · 发表于 2018-8-23 21:52:23

积分太低，旁看也有收获，谢谢老师们！

talentzfzf · 发表于 2020-1-31 16:42:49

刚好用到，特来学习

mocheng · 发表于 2020-4-4 22:22:24

谢谢楼主分享

libiao0902 · 发表于 2021-5-5 21:31:07

看看，，，，，，

scm11 · 发表于 2021-11-18 14:09:36

好好学习天天向上

hh_lj007 · 发表于 2021-11-19 00:49:22

谢谢分享，很实用

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

[你问我答] 如何使用entmake创建LWPolyline ?

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

相关帖子

评分