只需一步,快速开始
LAY的位置是不是错了?
(defun mkpline (lay pts ) (if (entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")(cons lay) (cons 90 (length pts)) ) (mapcar '(lambda (x) (cons 10 x)) pts) '((210 0. 0. 1.)) ) ) (entlast) ))
使用道具 举报
"(cons lay)"应为(cons 8 lay)
在entmake前,先检查一下该表是否有错,排错后再entmake。
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2025-2-24 17:37 , Processed in 0.152985 second(s), 27 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.