我用纯Lisp操作块

bai2000 · 发表于 2015-6-27 18:39:24

本帖最后由 bai2000 于 2015-6-27 18:59 编辑

块删除块中对象呢？
http://bbs.mjtd.com/thread-168585-1-1.html 中一次只能删一个土元

SunSpring · 发表于 2015-6-27 19:09:14

看看怎么遮罩

重慶崽兒 · 发表于 2015-6-27 21:08:52

看看呵呵

重慶崽兒 · 发表于 2015-6-27 22:17:27

本帖最后由重慶崽兒于 2015-6-27 22:18 编辑

我也写了个样条曲线圆弧取点并画线的，没考虑闭合的情况，写得不好：

(defun c:tt()
(setq pts nil)
(setq en (car (entsel)) ent (entget en))
(setq n (getint "\n请输入段数："))
(setq obj (vlax-ename->vla-object en))
(setq duandian (vlax-curve-getendparam obj))
(setq changdu (vlax-curve-getDistAtParam obj duandian))
(setq changdu_1 (/ changdu (float n)))
(setq n_1 0)
(while (< n_1 changdu)
(setq pt (vlax-curve-getpointatdist obj n_1))
(setq pts (append pts (list pt)))
(setq n_1 (+ n_1 changdu_1))
)
(setq pts (append pts (list (vlax-curve-getendpoint obj))))
(entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length pts))) (mapcar '(lambda (x) (cons 10 x)) pts)))
(princ)
)

yshf · 发表于 2015-6-27 22:33:41

复回学习一下！

lucas_3333 · 发表于 2015-6-27 23:20:54

什么叫纯lisp ?

crtrccrt · 发表于 2015-6-28 07:06:38

一个字看看

wyl605 · 发表于 2015-6-28 07:31:19

回复一下看看学习一下

峰峰兒 · 发表于 2015-6-28 07:52:05

提示: 作者被禁止或删除内容自动屏蔽

emk · 发表于 2015-6-28 09:53:19

看看，收藏

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

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2015-6-28 07:52:05 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

[讨论] 我用纯Lisp操作块