明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: 自贡黄明儒

[讨论] 我用纯Lisp操作块

    [复制链接]
发表于 2015-6-27 18:39 | 显示全部楼层
本帖最后由 bai2000 于 2015-6-27 18:59 编辑

删除块中对象呢?
http://bbs.mjtd.com/thread-168585-1-1.html 中一次只能删一个土元
发表于 2015-6-27 19:09 来自手机 | 显示全部楼层
看看怎么遮罩
发表于 2015-6-27 21:08 | 显示全部楼层
看看  呵呵
发表于 2015-6-27 22:17 | 显示全部楼层
本帖最后由 重慶崽兒 于 2015-6-27 22:18 编辑

我也写了个样条曲线 圆弧取点并画线的,没考虑闭合的情况,写得不好:
  1. (defun c:tt()
  2.   (setq pts nil)
  3.   (setq en (car (entsel)) ent (entget en))
  4.   (setq n (getint "\n请输入段数:"))
  5.   (setq obj (vlax-ename->vla-object en))
  6.   (setq duandian (vlax-curve-getendparam obj))
  7.   (setq changdu (vlax-curve-getDistAtParam obj duandian))
  8.   (setq changdu_1 (/ changdu (float n)))
  9.   (setq n_1 0)
  10.   (while (< n_1 changdu)
  11.     (setq pt (vlax-curve-getpointatdist obj n_1))
  12.     (setq pts (append pts (list pt)))
  13.     (setq n_1 (+ n_1 changdu_1))
  14.   )
  15.   (setq pts (append pts (list (vlax-curve-getendpoint obj))))
  16.   (entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length pts))) (mapcar '(lambda (x) (cons 10 x)) pts)))
  17.   (princ)
  18. )
发表于 2015-6-27 22:33 | 显示全部楼层
复回学习一下!
发表于 2015-6-27 23:20 | 显示全部楼层
什么叫纯lisp ?
发表于 2015-6-28 07:06 | 显示全部楼层
一个字 看看
发表于 2015-6-28 07:31 | 显示全部楼层
回复一下看看学习一下
发表于 2015-6-28 07:52 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2015-6-28 09:53 | 显示全部楼层
看看,收藏
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 21:24 , Processed in 0.395333 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表