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

看看，收藏
页: 1 [2] 3 4 5 6 7 8 9 10 11
查看完整版本: 我用纯Lisp操作块